re bonjour
si dessous mon fichier denis.xls
j aimerai adapter la formule a plusieurs liste
soit par un seul bouton ou dès que j ouvre une feuille
clonne a col b col c col d
liste 1 liste 2 liste 3 liste4
01/02/03 02-mai 01-mai 01-janv
10/02/03 02-mai 06-mai 12-janv
15/06/03 06-sept 13-juil 02-mai
18/06/03 08-sept 15-juil 25-mai
03/08/03 13-oct 07-août
20/08/03 14-oct 05-sept
07-sept
08-déc
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
merci