Explication et traduction

  • Initiateur de la discussion Initiateur de la discussion abc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

abc

XLDnaute Impliqué
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 +
 
Re : Explication et traduction

Bonjour,

Private Sub Calendar1_Click()
i = i + 1
'REDIMENSIONNE LE TABLEAU EN FONCTION DE i QUI VARIE EN GARDANT LES VALEUR DEJA DANS LE TABLEAU
ReDim Preserve a(i)
'RECUPERE LA VALEUR DU CALENDRIER DANS a(i)
a(i) = Me.Calendar1.Value
End Sub

Private Sub CommandButton1_Click()
'EFFACE LA PLAGE DES CELLULES I18...
Range("l18:aa18").ClearContents
'BOUCLE POUR x =1 au maxi du nombre de valeurs du tableau a
For x = 1 To UBound(a)
'LA CELLULE DECALEE PAR RAPPORT A L ou I18 D'UN NB DE COLONNE x
'PREND LA VALEUR DE a(x)
Range("l18").Offset(0, x).Value = a(x)
Next x
i = 0
'REMET A ZERO - EFFACE LE TABLEAU a
Erase a()
End Sub


;-)
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
568
Réponses
6
Affichages
517
Réponses
10
Affichages
714
Retour