modif macro

[denis]

bonjour a tous

dans cette macro, peut on la modifier pour quelle puisse s appliquer a plusieurs liste de date et avoir un resultat separé colonne B C D

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 a tous

 

[Valérie]

Slt Denis, et le forum bien entendu

Je te propose la solution suivante

Private Sub CommandButton1_Click()

For Mplage = 1 To 10 Step 2
a = 0 'Remise à 0 de a pour chacune des colonnes
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
Cells(a, (Mplage + 1) / 2 + 1) = di 'résultat dans la colonne B, C, D etc...
Next di
Next Mplage
End Sub

J'espère que cela répondra à ta question

@ bientôt
Valérie