Microsoft 365 ListBox

sliver · 9 Août 2022

Bonjour le Forum,

Dans le fichier ci-joint je me suis inspirer d’un userform de Mr Boisgontier pour l’adapter a mes besoins.

J’ai ajouté une Listbox (Listbox2) « Accord Met vins », j’ai bêtement fait un copier-coller de la ListBox1,

Lors de la Validation les modifications sont pas pris en compte et le RAZ non plus

Pouvez-vous svp jeter un coup d’œil au code et m’expliqué les erreurs que j’ai commis je souhaiterais comprendre la démarche.

Merci pour votre aide

Bien cordialement

sousou · 9 Août 2022

Bonjour .
Tes erreurs en gras : tu utilises la même variable temp dans les deux listbox ,
tu ne ranges pas dans ta base de données la dejuxième liste box
Regarde avec ce code
'-- Cépages et accords
temp = "": temp1 = ""
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & ";"
Next i
For i = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(i) = True Then temp1 = temp1 & Me.ListBox2.List(i) & ";"
Next i

Range(nomtableau).Item(enreg, 17) = temp
Range(nomtableau).Item(enreg, 16) = temp1
raz

sliver · 9 Août 2022

Bonjour sousou,

merci pour tes explications et pour le code modifié, ca fonctionne très bien.
Bonne journée

Microsoft 365 ListBox

sliver

XLDnaute Nouveau

Pièces jointes

sousou

XLDnaute Barbatruc

sliver

XLDnaute Nouveau

Discussions similaires