ListBox - pouvoir ne rien sélectionner - renvoyer " "

Bonjour à tous,

J'ai un petit souci avec l'extraction de ma listbox

En effet je dois pouvoir ne rien sélectionner, ce qui me renverrait un résultat "" mais je n'y parviens pas

For i = 0 To ListBoxAnimaux.ListCount - 1

    If ListBoxAnimaux.Selected(i) Then machaine2 = machaine2 & ListBoxAnimaux.List(i) & vbLf

Next
machaine2 = Left(machaine2, Len(machaine2) - 1) ' pour supprimer le dernier vblf
Cells(ligne, 17) = machaine2

J'ai ajouté : If Not ListBoxAnimaux.Selected(i) Then Exit For mais ça ne doit pas être ça...

Pouvez vous m'aider à trouver comment écrire que si aucun item n'est sélectionné le résultat de machaine2 serait " " ?

Merci à vous ;)

Bonjour,

Perso, je passe par deux CommandButton :

• Le premier sert à valider, mettre à jour et à sortir du userform.
• Le deuxième sert à sortir du userform sans mettre à jour.

En fait je voudrais bien que ça mon userform se valide tout de même, en acceptant un résultat null sur cette chaine

Bonsoir …

Comment est lancée la procédure avec ce morceau de codes ?

Avec un autre évènement (Exit pour lancer la macro en cliquant ailleurs)

Private Sub ListBoxAnimaux_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  For i = 0 To ListBoxAnimaux.ListCount - 1
  If ListBoxAnimaux.Selected(i) Then machaine2 = machaine2 & ListBoxAnimaux.List(i) & vbLf
  Next
  If machaine2 = "" Then Exit Sub ‘ voilà la sortie si aucun item n’est sélectionné
  machaine2 = Left(machaine2, Len(machaine2) - 1) ' pour supprimer le dernier vblf
  Cells(ligne, 17) = machaine2 'ligne devantt être initialisée
End Sub