Incrémentation du numéro de ligne [Résolu/Fermé]

Signaler
Messages postés
7
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
13 juillet 2016
-
Messages postés
7
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
13 juillet 2016
-
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

1 réponse

Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
1 658
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
Messages postés
7
Date d'inscription
lundi 11 juillet 2016
Statut
Membre
Dernière intervention
13 juillet 2016

merci beaucoup pour votre aide