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

1 réponse

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
    1. 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
    2. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      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
    3. 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
    4. Moujik1
       
      en fait ça marche merci beaucoup gbinforme tu es un as
      0