XL 2010 ListBox avec case à cocher

Bonsoir le forum
Bonsoir Danyehs

Tu mets la propriété ListStyle à 1 de ta ListBox et la propriété MultiSelect à 1 également .
Bonne soirée à toutes & à tous
@+ Eric c

Bonsoir,


Exemples:



Boisgontier

Merci pour votre réponse!! Cela fonctionne

Cependant, la fonction enregistrer ne fonctionne plus. lorsque le Multi-sélection est activé.


Voici la formule que j'avais pour enregistrer l'item sortie ou entrée. (Avant multi-selection)

S'il y a plus d'un article sélectionné et que j'enregistre, les données sont sauvegarder dans ma feuille d'entrée et sortie.

Dim i As Integer
Dim nb As Integer
Dim ligne As Integer

nb = lstArticles.ListCount
ligne = Feuil3.Cells(Rows.Count, 5).End(xlUp).Row + 1 ' cherche la dernière ligne vide d'un tableau

For i = 0 To nb

If Me.lstArticles.Selected(i) = True Then

With Worksheets("Entrée_Sortie")
.Cells(ligne, 1) = Me.lstArticles.List(i)
.Cells(ligne, 2) = Me.lstArticles.List(i, 1)
.Cells(ligne, 3) = Me.lstArticles.List(i, 2)
.Cells(ligne, 4) = Me.lstArticles.List(i, 3)
.Cells(ligne, 5) = Me.lstArticles.List(i, 4)
.Cells(ligne, 6) = txt_quantite
.Cells(ligne, 7) = txt_DateSortie
.Cells(ligne, 8) = txt_DateRetour
.Cells(ligne, 9) = ComboBox_gestionnaires
.Cells(ligne, 10) = txt_projet
End With
ligne = ligne + 1
End If

Next i
Feuil3.Activate
Unload Me

End Sub

Merci de votre aide et désolé je viens tout juste de commencer à travailler en VBA et tout ne mes pas familier encore.

Bonjour,

Est-ce que quelqu'un sait comment faire pour "enregistrer" tous les éléments sélectionnés dans ma feuille?

Merci à l'avance!!