boucles avec des dates

[Pascal Liberty]

'Bonjour,

'Avez vous déja fait des boucles avec des dates
'génial pour les recherches, planning ...
'A vous de juger!

Private Sub CommandButton1_Click()
d1 = Range("A1") ' une date en A1
d2 = Range("A2") ' une date en A2
a = 0
For di = d1 To d2
a = a + 1
Range("B" & a) = di 'resultat dans la colonne B
Next di
End Sub

'Bon partage et que d'applications
'bon courage

 

[denis]

salut c est super le boucles dates
mais peut on le faire avec plusieurs dates
merci

 

[Pascal Liberty]

Salut denis

je ne comprend pas la question

il est toujours possible d'imbriquer des dates

Pascal Lyberty

 

[philippe]

Salut,

Excusez moi d'intervenir dans ce post mais comment faites vous pour aller sur le forum car le lien ne fonctionne plus ?

Merci

Phil

 

[fabrice]

salut,

c'est normal, il faut attrendre un peu pour que David puisse réparer le Forum.

A+
FAb

 

[denis]

pour aller dans le forum je vais par recherche

 

[denis]

bonjour pascal

dans ta formule suivante, j aimerai , pour un seul bouton mettre plusieurs dates (periodes de conges )

exemple
1er periode
du 1/5/03 en d1
au 6/5/03 en d2

puis une deuxieme
du 4/8/03 en d?
au 18/8/03 en d?

ainsi de suite
si tu as la solution, vu ton excel an niveau cela doit etre enfantin pour TOI.
merci


Private Sub CommandButton1_Click()
d1 = Range("A1") ' une date en A1
d2 = Range("A2") ' une date en A2
a = 0
For di = d1 To d2
a = a + 1
Range("B" & a) = di 'resultat dans la colonne B
Next di
End Sub

 

[Pascal Liberty]

Bonjour Denis

Dans l’exemple parcours de la plage «A1:A10» toutes les 2 cellules
Et affectation à la colonne B

Private Sub CommandButton1_Click()
a = 0
For Mplage = 1 To 10 Step 2
d1 = Cells(Mplage, 1) ' une date en A1-->A3--> etc
d2 = Cells(Mplage + 1, 1) ' une date en A2-->A4--> etc
For di = d1 To d2
a = a + 1
Range("B" & a) = di 'resultat dans la colonne B
Next di
Next Mplage
End Sub

Amicalement Pascal Liberty