Microsoft 365 ListBox

[sliver]

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]

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]

Bonjour sousou,

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