Listbox : erreur

[manolo]

Bonjour,

Je me décide à vous écrire, parce que je bute sur un problèmes depuis plusieurs jours... 😡

Dans un userform VBA sur Excel, j'ai une listbox qui a une hauteur fixe de 10 lignes.
Cette listbox est alimentée par 3 combobox.
Quand dans cette listbox ne figure que 3 lignes (par exemple), les 7 autres lignes (vides) semblent activent (je peux les cliquer).
Quand je clique sur 1 de ces 7 lignes, excel me renvoi une erreur.
Comment puis-je "neutraliser" ces lignes?

Merci à tous et à toutes de votre aide.
Manolo.

 

[JNP]

Re : Listbox : erreur

Bonjour Manolo et bienvenue 🙂,
Dire que David viens de modifier l'ouverture des discussions pour rappeler qu'un fichier était souvent indispensable 😡...
Comment veux-tu que l'on recréée ton erreur pour la corriger 😱 ?
Bon WE 😎

 

[manolo]

Re : Listbox : erreur

Bonjour Manolo et bienvenue 🙂,
Dire que David viens de modifier l'ouverture des discussions pour rappeler qu'un fichier était souvent indispensable 😡...
Comment veux-tu que l'on recréée ton erreur pour la corriger 😱 ?
Bon WE 😎

Oups!!!!
Effectivement, voilà le fichier.

Merci beaucoup.
Manolo.

 

[Pierrot93]

Re : Listbox : erreur

Bonjour Manolo, JNP

Comment cette listbox est alimentée ? prèfère les méthodes "additem" et "list" à "rowsource", voir dans la FAQ le post concernant ce sujet.
bonne journée
@+

 

[manolo]

Re : Listbox : erreur

Bonjour Manolo, JNP

Comment cette listbox est alimentée ? prèfère les méthodes "additem" et "list" à "rowsource", voir dans la FAQ le post concernant ce sujet.
bonne journée
@+

Voilà, avec le fichier, ce sera plus facile!

 

[JNP]

Re : Listbox : erreur

Re, salut Pierrot 🙂,
Peut-être tout simplement comme ça (j'ai pas pu tester plus loin, tu as supprimé ton 2ème USF 🙄).

Private Sub lr1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[COLOR=red][B]If lr1.ListIndex = -1 Then Exit Sub[/B][/COLOR]
    ligSelect = lr1.Column(7, lr1.ListIndex)
    affichagecr1.Show
    Unload Me
   End Sub

Bon WE 😎

 

[manolo]

Re : Listbox : erreur

Re, salut Pierrot 🙂,
Peut-être tout simplement comme ça (j'ai pas pu tester plus loin, tu as supprimé ton 2ème USF 🙄).

Private Sub lr1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[COLOR=red][B]If lr1.ListIndex = -1 Then Exit Sub[/B][/COLOR]
    ligSelect = lr1.Column(7, lr1.ListIndex)
    affichagecr1.Show
    Unload Me
   End Sub

Bon WE 😎

Tip top! 😀

Merci beaucoup et bon week-end à tous.
Manolo.