XL 2010 ListBox avec case à cocher

Danyehs86

XLDnaute Nouveau
Bonjour à tous,

Pour vous mettre en contexte :

J'ai un fichier de suivi pour la gestion du matériel (Une feuille pour l'inventaire et une pour l'entrée et sortie). Quand j'ouvre mon mon formulaire dans la feuille entrée et sortie, je peux sélectionner seulement un item pour l'instant.
1575305654424.png


Je me demande s'il est possible d'insérer une case à cocher vis-à-vis chaque article afin de pouvoir sélectionner plus d'un article dans une entrée ou une sortie.


Est-ce qu'il y a une façon de faire pour éviter de sélectionner un par un chaque item entrée ou sortie?

Je ne peux joindre mon fichier puisqu'il est trop volumineux. Malheureusement.

Merci à l'avance pour votre aide et bonne journée à tous.
 

Danyehs86

XLDnaute Nouveau
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.
 

Discussions similaires

Réponses
4
Affichages
268

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo