rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

[Excel] PB avec combobox filtrées en cascades

Posté par fafeouw, le lundi 4 juin 2007 à 23:58:36
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
Configuration: Windows 2000
Internet Explorer 6.0
Répondre à fafeouw  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Sergio63, le vendredi 8 juin 2007 à 10:21:43
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
Répondre à Sergio63

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 fafeouw, le vendredi 15 juin 2007 à 19:06:13
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
Répondre à fafeouw
Logiciels pertinents trouvés dans les téléchargements
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger DS Monkey Audio - Filtre APE 1.00DS Monkey Audio - Filtre APE - Le format MonkeysAudio (extension *.ape) est un format de compression audio lossless (sans pertes) permettant de réduire la...Catégorie: Plugins audio
Licence: Freeware/gratuit
Télécharger Photofiltre 6.3.1Photofiltre - PhotoFiltre est un logiciel de retouche d’images très complet. Il permet d'effectuer des réglages simples ou avancés sur une...Catégorie: Retouche photo
Licence: Freeware/gratuit
Télécharger SPAMfighter Version	5.2.4SPAMfighter - SpamFighter est un Filtre Anti Spam gratuit pour Outlook et Outlook Express éliminant automatiquement les messages...Catégorie: Antispam
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [Excel] PB avec combobox filtrées en cascades »