Incrémentation du numéro de ligne
Résolu
S9091
Messages postés
8
Statut
Membre
-
S9091 Messages postés 8 Statut Membre -
S9091 Messages postés 8 Statut Membre -
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
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
1 réponse
-
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
