Bonjour tout le monde,
Pouvez-vous m'aider à régler un souci au niveau de ma listbox SVP?
J'ai un userform dans lequel j'ai intégrer une listbox "SEM" qui renvoi les numéros des semaines depuis une liste prédéfinis (formules).
J'aimerai renvoyer les valeurs sélectionnés de la listbox dans un autre onglet différent (CALENDRIER) de celui où se trouve mon userform, sachant qu'il peut s'agir de sélectionner une à plusieurs semaines à la fois (sélection multiple). L'astuce c'est qu'à chaque sélection de un ou plusieurs éléments les cellules où doivent apparaitre mes sélections doivent aussi être dynamique du genre :
si choix = 1 : ► Sheets("CALENDRIER").Select / range ("L2") = 1
si choix = 2 ou plus : ► Sheets("CALENDRIER").Select / range ("L2") = 1
range ("L3") = 2
range ("L4") = 3
Je ne sais pas si mes explications sont assez claires, je joint un exemple de mon fichier.
C'est vraiment super urgent. Aidez-moi SVP
J'ai adapter le code ci-dessous à mon besoin, sauf que j'ai une erreur (erreur de compilation/variable non définie) lorsque je click sur Validation :
Option Explicit
Private Sub CommandButton1_Click()
Sheets("CALENDRIER").[L1:L60].ClearContents
ligne = 2
For I = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(I) = True Then
Sheets("CALENDRIER").Cells(ligne, 1) = Me.ListBox1.List(I)
Sheets("CALENDRIER").Cells(ligne, 2) = Me.ListBox1.List(I, 1)
ligne = ligne + 1
End If
Next I
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub