Incrémentation du numéro de ligne
Résolu
S9091
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
S9091 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
S9091 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Incrémentation du numéro de ligne
- Partage de photos en ligne - Guide
- Numero prive - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
1 réponse
Bonjour,
Par exemple :
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
S9091
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
merci beaucoup pour votre aide