Liste déroulante selon condition checkbox

Bonjour le Forum,

J'ai besoin de votre aide aujourd'hui pour un problème de condition sur un checlbox, je m'explique :

Dans mon fichier, j'ai 3 pages ACCUEIL, QUOTATION, BDD.

Dans la feuille "ACCUEIL" j'ai entre autre un bouton qui appel un Userform. Dans cette userform j'ai des TextBox et ComboBox (celle sont alimentés par des listes déroulantes en feuille BDD.

Là ou j'ai un problème, c'est que associé à la ComboBox2, j'ai un CheckBox (CheckBox1) qui pourrait me permettre de créer une condition. si checkbox 1 cochée, alors afficher dans la combobox2 en liste déroulante la plage (A1;A)si non cochée alors afficher dans la combobox2 en liste déroulante la plage (B1;B)

j'avoue avoir cherché, cherché mais sans résultat concret, la seule chose qui en est sortie de ces recherche c'est :

If CheckBox1 = True Then 'Si coché ...

End If

Merci de m'avoir lu et de m'accorder votre temps

Pipin54000

Bonjour,

Un essai ...

Private Sub CheckBox1_Click()
Dim ChekBoxOui
Dim ChekBoxNon

   ChekBoxOui = "F8:F12"
   ChekBoxNon = "D8:D97"

   If CheckBox1 = True Then      'Si coché ...
      ComboBox2.List = Worksheets("BDD").Range(ChekBoxOui).Value
   Else: CheckBox1 = False      'Si non coché ...
      ComboBox2.List = Worksheets("BDD").Range(ChekBoxNon).Value
   End If
End Sub

ric

Bonjour Ric,

un grand merci, ça fonctionne du tonnerre ainsi c'est juste parfait !

au plaisir de te lire

Pipin54000

ric