Choix multiple ListBox
J
Bonjour,
J'ai créé une listBox à choix multiple dans laquelle se trouve un certains nombre de Noms.
Lorsque je clique sur le carré de la feuille motards j'ouvre une UserForm.
Je souhaite que les noms sélectionnés, sachant que je peux en sélectionner jusqu'à 32, apparaissent dans la colonne A, à partir de A1, de ma feuille "motards" lorsque je clique sur mon Bouton ok.
Merci de votre aide.
JC
J'ai créé une listBox à choix multiple dans laquelle se trouve un certains nombre de Noms.
Lorsque je clique sur le carré de la feuille motards j'ouvre une UserForm.
Je souhaite que les noms sélectionnés, sachant que je peux en sélectionner jusqu'à 32, apparaissent dans la colonne A, à partir de A1, de ma feuille "motards" lorsque je clique sur mon Bouton ok.
Merci de votre aide.
JC
Hello,
Dans le bouton Ok :
Private Sub CommandButton1_Click()
Dim nombre As Integer
Dim i As Integer
nombre = 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then Worksheets("Motards").Range("j" & nombre).Value = ListBox1.List(i): nombre = nombre + 1
Next i
End SubJ
Bonjour,
Merci, ça marche super bien.
bonne journée
J
re bonjour,
J'ai encore un petit souci.
Je cherche à supprimer une ligne si la cellule B est vide, par exemple si B15 est vide je supprime la ligne 15.
Et ce de B15 à B41.
Merci