Problème remplissage automatique listbox

Bonjour,

Cela fait 3 jours que j'essai de remplir automatiquement une listbox en fonction du choix fait par un utilisateur sur une autre listbox, mais je n'y arrive pas...

1- L'utilisateur choisi une refbase dans une listbox1

2-En fonction du choix de l'utilisateur, une listbox 2 se rempli automatiquement

Le problème c'est que si je l'utilisateur fait un autre choix sur la listbox1, la listebox2 se met à jour, mais ne supprime pas la liste chargé précédemment...

Merci d'avance pour votre aide précieux ! je met en fichier joint la formulaire concerné pour que vous y voyez plus clair.

Merci d'avance !

Bonsoir,

Ceci devrait résoudre votre problème

genial genial genial merci beaucoup thev !!!!

Pour ma culture, pourquoi la méthode .addItem ne pouvait convenir ?

Sinon, une dernière demande, j'ai essayé le code mis en commentaire dans ma programmation, pour empecher la saisie au clavier dans les listbox, mais le code ne marche pas, je ne comprend pas pourquoi...

teddyBear37 a écrit :

Pour ma culture, pourquoi la méthode .addItem ne pouvait convenir ?

La méthode .additem pouvait convenir mais il fallait alors la faire précéder de la méthode .clear pour réinitialiser la Combobox.

La méthode . list est plus simple et plus rapide que la méthode .additem qui ajoute les éléments un par un.

teddyBear37 a écrit :

Sinon, une dernière demande, j'ai essayé le code mis en commentaire dans ma programmation, pour empecher la saisie au clavier dans les listbox, mais le code ne marche pas, je ne comprend pas pourquoi...

Essayer plutôt ce code

Private Sub listeRefPiece_Change()
    With listeRefPiece
        If .ListIndex = -1 Then .Value = ""
    End With
End Sub

Essayer plutôt ce code

Private Sub listeRefPiece_Change()
    With listeRefPiece
        If .ListIndex = -1 Then .Value = ""
    End With
End Sub

[/quote]

J'ai placé le bout de code avant mon select case, mais cela ne marche pas.

Private Sub listeRefPiece_Change()
    With listeRefPiece
        If .ListIndex = -1 Then .Value = ""
    End With

    Select case (listeRef....)
    ...
End Sub

j'ai aussi essayé de programmer de cette façon, mais ne marche pas non plus

Private Sub listeRefPiece_Change()
    With listeRefPiece
        If .ListIndex = -1 Then .Value = ""

                    Select case (listeRef....)
                    ...
                    End Select
    End With
End Sub

Je ne sais pas où vous avez placé le code mais ceci fonctionne sans problème.

thev a écrit :

Je ne sais pas où vous avez placé le code mais ceci fonctionne sans problème.

Oui, ça marche effectivement, j'avais fais l'erreur de coder sur excel mac, ce qui au final me montre qu'il vaut mieux que je passe par windows pour les futurs codage ^^

Merci beaucoup pour ton aide thev