Remplirune listeComboBox en fonction d'une autre ComboBox

Bonjour,

Je voulais remplir une liste ComboBox3 par les valeur des cellules '' F2 : F100" en fonction de la feuille choisi ( la valeur du premier ComboBox : voila ma procédure :

Private Sub ComboBox1_Change()

'Charger les valeurs d'un combobox en fonction de la feuille

Dim R As Range

If (Not IsEmpty(ComboBox1.Value)) Then

ComboBox3.Clear 'Pour vider les la liste précédente

For Each R In Sheets(ComboBox1.Value).Range("F2:F200")

If (Not IsEmpty(R.Value)) Then

ComboBox3.AddItem R

End If

Next R

End If

End Sub

mais il m'affiche une erreur N°9 et il me signale la ligne :

For Each R In Sheets(ComboBox1.Value).Range("F2:F200")

ou est le problème ?

Bonjour,

D'après le code VBA et l'erreur signalée : le nom de la feuille correspondant à la valeur saisie dans la Combobox1 n'existe pas.

Difficile à dire sans un fichier en exemple.

Bouben

Bonjour,

vous trouvez ci-joint un exemple de mon travail, dans le quel je sélectionne la feuille à travailler sur le 1er combobox et je doit récupérer la liste des cellules F2: F200 de la feuille choisie dans le combobox3.

Bonjour,

Le fichier fonctionne presque parfaitement !

Le seul hic, c'est lorsque l'on ne sélectionne aucune valeur dans la combo (et entraîne ce bug).

Ligne à modifier :

If (Not IsEmpty(ComboBox1.Value)) Then

à remplacer par :

If ComboBox1.Value <> "" Then

Bouben

Merci beaucoup,

j'ai découvert la même erreur que vous m'avez signalé , c gentil.

Par contre,

je veux filtrer la liste du comboBox en fonction des premières lettres saisies sur ce dernier. Est_ce que vous pouvez m'aider svp ?