Discussion :

[Moux71]

Re-bonjour !

En fait j'ai un autre petit problème.
Vous avez pu remarquer la présence d'un formulaire en construction utilisant la propriété RowSource (comme listfillrange).

Un message proposant le débogueur s'affiche lorsque je choisi une machine qui n'est pas lié à une liste de panne.

Par exemple assemblage -> palan.
Je n'arrive pas à laisser la ListeBox3 vide QUAND la valeur de la ListBox2 ne correspond pas à une plage nommée.

Voici la dernière version du fichier avec le bouton ouvrant le formulaire.

En vous remerciant encore une fois.
Cordialement,
Moux71.

[SfJ5Rpw8]

Bonjour,

...
Un message proposant le débogueur s'affiche lorsque je choisi une machine qui n'est pas lié à une liste de panne.
..

et c'est quoi le problème ? tu ne sais pas lire le message et nous le retranscrire ici ?

[Moux71]

Bonjour,

. Enfait, lorsque je clique sur une valeur dans une listebox et qui ne correspond pas à une plage déjà nommée, une erreur apparait m’incitant au débogage. (erreur 380 sur la proprièté rowsource).

Connaissez vous le moyen de contourner cette erreur, par exemple en vidant la liste suivante SI le choix ne correspond pas à une plage nommée ?

voici comment alimente ma liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub ListBox2_Click()
With ListBox3
 
ListBox3.RowSource = ""
 
ListBox3.RowSource = ListBox2.Value
 
End With
End Sub

ps : j'ai ajouter un bouton pour ouvrir le nouveau formulaire.

Merci.
Moux71.

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ListBox2_Click()
With ListBox3
 
ListBox3.RowSource = ""
On Error Resume Next
ListBox3.RowSource = ListBox2.Value
On Error GoTo 0
 
End With
End Sub