Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

boucles avec des dates

  • Initiateur de la discussion Pascal Liberty
  • Date de début
P

Pascal Liberty

Guest
'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
 
D

denis

Guest
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
 
P

Pascal Liberty

Guest
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
 

Discussions similaires

Réponses
2
Affichages
311
Réponses
14
Affichages
558
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…