[Excel] PB avec combobox filtrées en cascades

fafeouw Messages postés 4 Statut Membre -  
fafeouw Messages postés 4 Statut Membre -
Bonjour à tous,

Je rencontre actuellement sur un fichier excel que je programme avec VBA un problème pour réaliser deux combobox qui serait filtrées en cascades. l'utilisateur une fois son choix fait dans combo1 obtiendrai donc une liste restreinte dans combo 2. Je précise que les données se trouve sur une feuille à part et que les combo sont situés sur une feuille excel et non pas sur un userform.

voici le bout de code VBA que j'ai fait :

Private Sub Combobox1_Change()
Dim x As Integer

Me.Combobox2.Clear
With Sheets("Feuill1")
For x = 1 To .Range("E65536").End(xlUp).Row
If .Range("E" & x) = Val(Me.Combobox1.Value) Then Me.Combobox2.AddItem.Range ("F" & x)
Next
End With

End Sub

le problème qui se pose lorsque que je fais mon choix dans combo1 et que je vais cliquer sur combo2 pour finaliser j'ai une erreur :

Erreur de compilation, qualificateur incorrect.


Voilà si quelqu'un à une solution ça serait sympa.

@+
Fafeouw
A voir également:

2 réponses

Réponse 1 / 2
Sergio63 Messages postés 53 Statut Membre 24
 
Bonjour,

Ta méthode me semble un peu compliquée,

Il y a un article intéressant à ce sujet ici :

listes dependantes sous excel

J'ai déjà utilisé cette méthode et ça marche très bien.

Cordialement

Sergio
0
Réponse 2 / 2
fafeouw Messages postés 4 Statut Membre
 
Bonjour Sergio, Bounjour Le Forum,

Désolé pour le délai de réponse mais j'ai eu un problème d'accès durant une semaine.

Sergio merci pour ta réponse cela fonctionne très bien.

Pour info j'ai retouché mon code et celà fonctionne aussi.

Private Sub Combobox1_Change()
Dim x As Integer

Me.Combobox2.Clear
With Sheets("Feuill1")
For x = 1 To .Range("E65536").End(xlUp).Row
If .Range("E" & x) = Combobox1.Value Then Me.Combobox2.AddItem .Range ("F" & x)
Next
End With

End Sub

Et voilà il ne me manquait pas grand chose.

@+
Fafeouw
0