XL 2016 Listbox et valeur associée

[jozerebel]

Bonjour à tous,

Je m'arrache les cheveux avec des listbox d'un userform.

Celle-ci sont alimentées par Rowsource pour les choix déroulants.
Cependant, j'ignore pourquoi, certaines listbox apparaissent avec un choix déjà sélectionné (surligné en bleu). Et ce, de manière aléatoire lors de l'initialisation.

Par ailleurs, lorsque sélectionnés, les choix alimentent une feuille excel.

Lorsque je veux modifier un item, j'ai une macro qui est censée remplir ces listboxs. Cependant, de manière aléatoire, le remplissage ne se fait pas...

Ci-dessous la macro pour remplir les cellules via les sélections des listbox:

Worksheets("bdd_dpt").Range("a" & Lignedpt3).Value = Me.fichedpt_cle_dpt.Value
Worksheets("bdd_dpt").Range("b" & Lignedpt3).Value = Me.fichedpt_nom1.Value
Worksheets("bdd_dpt").Range("c" & Lignedpt3).Value = Me.fichedpt_nom2.Value
Worksheets("bdd_dpt").Range("d" & Lignedpt3).Value = Me.fichedpt_service.Value
Worksheets("bdd_dpt").Range("e" & Lignedpt3).Value = Me.fichedpt_adr1.Value
Worksheets("bdd_dpt").Range("f" & Lignedpt3).Value = Me.fichedpt_adr2.Value
Worksheets("bdd_dpt").Range("g" & Lignedpt3).Value = Me.fichedpt_cp.Value
Worksheets("bdd_dpt").Range("h" & Lignedpt3).Value = Me.fichedpt_ville.Value
Worksheets("bdd_dpt").Range("i" & Lignedpt3).Value = Me.fichedpt_mail.Value
Worksheets("bdd_dpt").Range("j" & Lignedpt3).Value = Me.fiche_dpt_we.Value
Worksheets("bdd_dpt").Range("k" & Lignedpt3).Value = Me.fiche_dpt_abs.Value
Worksheets("bdd_dpt").Range("l" & Lignedpt3).Value = Me.fiche_dpt_hospi.Value
Worksheets("bdd_dpt").Range("m" & Lignedpt3).Value = Me.fiche_dpt_repas.Value
Worksheets("bdd_dpt").Range("n" & Lignedpt3).Value = Me.fiche_dpt_mini.Value
Worksheets("bdd_dpt").Range("o" & Lignedpt3).Value = Me.fiche_dpt_factu.Value

et ci-dessous l'initialisation de l'userform:

Me.fichedpt_cle_dpt.Value = Sheets("selection").Range("p2").Value


With Worksheets("bdd_dpt")
Dim Lignedpt As Long
Lignedpt = Recherche(Me.fichedpt_cle_dpt.Text, 1)
Me.fichedpt_nom1.Value = Range("b" & Lignedpt).Value
Me.fichedpt_nom2.Value = Range("c" & Lignedpt).Value
Me.fichedpt_service.Value = Range("d" & Lignedpt).Value
Me.fichedpt_adr1.Value = Range("e" & Lignedpt).Value
Me.fichedpt_adr2.Value = Range("f" & Lignedpt).Value
Me.fichedpt_cp.Value = Range("g" & Lignedpt).Value
Me.fichedpt_ville.Value = Range("h" & Lignedpt).Value
Me.fichedpt_mail.Value = Range("i" & Lignedpt).Value
Me.fiche_dpt_we.Value = Range("j" & Lignedpt).Value
Me.fiche_dpt_abs.Value = Range("k" & Lignedpt).Value
Me.fiche_dpt_hospi.Value = Range("l" & Lignedpt).Value
Me.fiche_dpt_repas.Value = Range("m" & Lignedpt).Value
Me.fiche_dpt_mini.Value = Range("n" & Lignedpt).Value
End With

je ne comprends pas pourquoi ces listbox agissent de cette manière...

D'avance je vous remercie.

 

[jozerebel]

Re
Je n'ai peut-être rien compris.
Ce que j'ai cru comprendre
C'est que si dans :

Il y a une cellule vide .
Et bien boum erreur .
Mais bon ,sûrement pas compris lol
Bonne fin de soirée
Jean marie

Ben il ne peut pas avoir de cellule vide car les cellules sont remplies par sélection dans la listbox.

 

[jozerebel]

Bonsoir le fil

@jozerebel

Est-ce que tu as saisi des valeurs dans les Tag des TextBox
(comme indiqué dans le message#8 ==> voir le Nota Bene)

Salut Staple,
Yes, fonction modifiée et tag dans les textbox uniquement. pas dans les listbox.