incrémentation du numéro de ligne Résolu

Question

Bonjour, 
 j'ai la boucle ci-dessous et je veux que le numero de ligne s'incrementente de maniere automatique afin que le reste du tableau soit rempli . Comment faire ? merci 

D = CDate(Range("BL2")) 'définit la date D
   
For I = 1 To 7 'boucle sur 7 jours
    'si la date D + 1 tombe un jeudi, définit la date DJ, sort de la boucle
    If Format(D + I, "DDDD") = Range("BK2") Then DJ = D + I: Exit For
Next I 
Range("O2") = DJ

Patrice33740 · Answer

Bonjour,

Par exemple :
premL = 2
dernL = 20
For numL = premL To dernL
  D = CDate(Range("BL" & numL)) 'définit la date D
  For I = 1 To 7 'boucle sur 7 jours
    'si la date D + 1 tombe un jeudi, définit DJ, sort de la boucle
    If Format(D + I, "DDDD") = Range("BK" & numL) Then 
      DJ = D + I
      Exit For
    End If
  Next I
  Range("O" & numL) = DJ
Next numL

Incrémentation du numéro de ligne

1 réponse

Discussions similaires

Newsletters