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.
 

Eric C

XLDnaute Accro
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
 

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.
 

Danyehs86

XLDnaute Nouveau
Bonjour,

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

Merci à l'avance!!
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas