Bonjour,
grâce au forum ,j'ai pu réaliser mon pragramme en VBA.
Quelqu'un aurait-il la gentilesse de me l'expliquer en français.
J'en comprend une partie mais je bloque sur certain truc.
Le but du programme est d'afficher un calandar(ok) et de pouvoir sélectionner plusieurs dates et de les afficher les une a la suite des autres dans des cellules précises.
Private Sub Calendar1_Click()
i = i + 1
ReDim Preserve a(i)
a(i) = Me.Calendar1.Value
End Sub
Private Sub CommandButton1_Click()
Range("l18:aa18").ClearContents
For x = 1 To UBound(a)
Range("l18").Offset(0, x).Value = a(x)
Next x
i = 0
Erase a()
End Sub
Merci d'avance.
A +
grâce au forum ,j'ai pu réaliser mon pragramme en VBA.
Quelqu'un aurait-il la gentilesse de me l'expliquer en français.
J'en comprend une partie mais je bloque sur certain truc.
Le but du programme est d'afficher un calandar(ok) et de pouvoir sélectionner plusieurs dates et de les afficher les une a la suite des autres dans des cellules précises.
Private Sub Calendar1_Click()
i = i + 1
ReDim Preserve a(i)
a(i) = Me.Calendar1.Value
End Sub
Private Sub CommandButton1_Click()
Range("l18:aa18").ClearContents
For x = 1 To UBound(a)
Range("l18").Offset(0, x).Value = a(x)
Next x
i = 0
Erase a()
End Sub
Merci d'avance.
A +