[VBA] DATES

DATES [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 12-06-2013 à 12:08:23    

Bonjour à tous,
 
(J'avoue que je n'étais pas très inspiré pour le titre :) )
 
Alors voila je dispose d'un tableau comme ci-dessous :
 
_______________________________________________________________________
             114             115  
              du               au
10      01/04/2013     15/05/2013
11     17/05/2013     30/05/2013
12      31/05/2013     20/06/2013
13      03/03/2013     20/03/2013
14
15    
_______________________________________________________________________
 
Je souhaite afficher les periodes manquantes entre la date la plus ancienne et la plus récente  
 
Ainsi, ici, je souhaite obtenir :
 
                                 252
4        -dates manquantes : du 15/05/2013 au 17/05/2013
5        -dates manquantes : du 20/03/2013 au 01/04/2013
 
 
 
J'essaye mais je n'obtiens pas les resultats esperes alors je m'adresse à vous  :hello:  pour avoir quelquels pistes ou methodes
 
Voici mon dernier essai :
 

Code :
  1. Cells(Rows.Count, 114).End(xlUp).Select
  2. der_SORTIE = ActiveCell.Row
  4. Cells(Rows.Count, 252).End(xlUp).Select
  5. der = ActiveCell.Row
  6. For cel = 4 To der
  7. Cells(cel, 252) = ""
  8. Next
  12.            
  14. cpt = 0
  15. compt = 1
  16.     For L1 = 10 To der_SORTIE
  17.         For L2 = 10 To der_SORTIE
  18.           If Cells(L1, 114) <> Cells(L2, 114) And Cells(L1, 115) <> Cells(L2, 115) And Cells(L1, 115) < Cells(L2, 114) Then
  19.             If Cells(L1, 115) < Cells(L2, 114) Then
  20.                 c = 0
  21.                 If L2 <> der_SORTIE Then
  22.                 For L3 = L2 To der_SORTIE
  23.                     If (Cells(L2, 114) - Cells(L1, 115)) < (Cells(L3, 114) - Cells(L2, 115)) Then
  24.                         c = 1
  25.                     End If
  26.                 Next
  27.                 End If
  28.                 If c = 0 Then
  29.                     If (Cells(L2, 114) - Cells(L1, 115)) > 1 Then
  30.                         Cells(Rows.Count, 252).End(xlUp).Select
  31.                         der = ActiveCell.Row
  32.                         Cells(der + 1, 252) = "    Dates manquantes du " & Cells(L1, 115) & " au " & Cells(L2, 114)
  33.                     End If
  34.                 End If
  35.             End If
  36.         End If
  37.     Next
  38. Next


 
 
J'obtiens :
 
_______________________________________________________________________
 
                                 252
4        -dates manquantes : du 14/05/2013 au 17/05/2013
5        -dates manquantes : du 14/05/2013 au 31/05/2013
6        -dates manquantes : du 20/03/2013 au 17/05/2013
7        -dates manquantes : du 20/03/2013 au 31/05/2013
_______________________________________________________________________


Message édité par glaspow le 12-06-2013 à 13:13:55
Reply

Marsh Posté le 12-06-2013 à 12:08:23   

Reply

Marsh Posté le 12-06-2013 à 14:55:31    

J'ai finalement réussi en faisant :
 

Code :
  1. Cells(Rows.Count, 114).End(xlUp).Select
  2. der_SORTIE = ActiveCell.Row
  5. For sup = 4 To 24
  6.     Cells(252, sup) = ""
  7. Next
  10. Cells(Rows.Count, 252).End(xlUp).Select
  11. der = ActiveCell.Row
  12. For cel = 4 To der
  13. Cells(cel, 252) = ""
  14. Next
  18.            
  20. cpt = 0
  21. compt = 1
  22.     For L1 = 10 To der_SORTIE
  23.     c = 0
  24.         For L2 = 10 To der_SORTIE
  25.           If Cells(L1, 114) <> Cells(L2, 114) And Cells(L1, 115) <> Cells(L2, 115) And Cells(L1, 115) < Cells(L2, 114) Then
  26.             If Cells(L1, 115) < Cells(L2, 114) Then
  27.                
  28.                 If c = 0 Then
  29.                 savv = Cells(L2, 114)
  30.                 c = c + 1
  31.                 ElseIf Cells(L2, 114) < savv Then
  32.                 savv = Cells(L2, 114)
  33.                 End If
  34.             End If
  35.           End If
  36.         Next
  37.                     If (savv - Cells(L1, 115)) > 1 Then
  38.                         Cells(Rows.Count, 252).End(xlUp).Select
  39.                         der = ActiveCell.Row
  40.                         Cells(der + 1, 252) = "    Archive du " & Cells(L1, 115) & " au " & savv & " à ajouter"
  41.                     End If
  42.            
  43. Next


 
 :jap:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed