Remplir Combobox excel VBA

Résolu
Moujik1 -  
 Moujik1 -
Bonjour,

Je cherche à remplir un combobox en fonction des valeurs sélectionnées dans un premier combobox rempli précédemment dans mon userform.

Mon code placé dans userform1 (code) est le suivant :

Private Sub ComboBox2_Change()

If ComboBox2.Value = c1 Then
ThisWorkbook.Sheets("Feuil2").Select
ComboBox3.RowSource = d1: d5
End If

If ComboBox2.Value = c2 Then
ThisWorkbook.Sheets("Feuil2").Select
ComboBox3.RowSource = d6: d9
End If

If ComboBox2.Value = c2 Then
ThisWorkbook.Sheets("Feuil2").Select
ComboBox3.RowSource = d10: d15
End If
End Sub


Le message d'erreur qui s'affiche est "erreur de compilation sub ou fonction non définie".
Je suis complètement coincé et j'ai besoin d'aide car je ne trouve rien correspondant à mon problème sur les forums.

Merci d'avance




A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour

Avec des guillemets cela serait sans doute mieux accepté sinon il faut nommer : 

If ComboBox2.Value = "c1" Then 
ThisWorkbook.Sheets("Feuil2").Select
ComboBox3.RowSource = "d1:d5"


Toujours zen
0
Moujik1
 
non les guillemets ne changent rien il semble que le problème commence dès la ligne :

private sub combobox2_change()

Merci quand même
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
non les guillemets ne changent rien

Cela serait nouveau sauf si tu t'es permis de modifier le code excel...

Avec les guillemets cela fonctionne sur mon excel standard ;-)
0
Moujik1
 
Mille excuses tu as raison il n'y a plus de message d'erreur en revanche mon combobox3 ne se rempli pas


Merci de tes conseils
0
Moujik1
 
en fait ça marche merci beaucoup gbinforme tu es un as
0

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses