besoin d aide sur formule

[denis]

bonjour a tous
si quelq un a une solution sur le document joint.
merci

 

[Ber Nar]

Je voudrais bien t'aider, mais je n'arrive pas ouvrir ton fichier !!

Ber Nar

 

[denis]

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