Case a cocher dans une UserForm

Bonjour,

voici mon problème je souhaite quand je coche la case la combox1 aie chercher les valeurs dans un autre onglet "donnée internet.

voici la macro, mais il y a un petit souci

Private Sub Userform_Initialize()

'ComboBox1.RowSource = "donnée!B2:B40" 'Récupération des Données

ComboBox2.RowSource = "Feuil3!A2:A40" 'Récupération des Données

Select Case CheckBox1.Value

Case True: UserForm1.ComboBox1.RowSource = "donnée interne!B2:B40"

Case False: UserForm1.ComboBox1.RowSource = "donnée!B2:B40"

End If

End Sub

ps:fichier joint

Bonjour

Dans ton userform1, modifie le code Initialize comme suit

Private Sub Userform_Initialize()
For i = 2 To Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row
ComboBox2.AddItem Sheets("Feuil3").Range("A" & i) 'Récupération des Données
Next
ComboBox1.Clear
End Sub

Une fois fait, ajoute ce code juste après le code Initialize

Private Sub CheckBox1_Click()
'Macro Dan 13/12/12
Dim i As Integer
Select Case CheckBox1
Case True
    UserForm1.ComboBox1.Clear
    For i = 2 To Sheets("donnée interne").Range("A" & Rows.Count).End(xlUp).Row
    UserForm1.ComboBox1.AddItem Sheets("donnée interne").Range("B" & i)
    Next
Case False
    UserForm1.ComboBox1.Clear
    For i = 2 To Sheets("donnée").Range("A" & Rows.Count).End(xlUp).Row
    UserForm1.ComboBox1.AddItem Sheets("donnée").Range("B" & i)
    Next
End Select
End Sub

Si ok, lors de ta réponse merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Bonjour

Bonjour Dan ( D'accord avec toi il vaut mieux passer par AddItem )

Modifies ta macro Userform_Initialize

Private Sub Userform_Initialize()
  Me.ComboBox1.RowSource = "donnée!B2:B40" 'Récupération des Données
  Me.ComboBox2.RowSource = "Feuil3!A2:A40" 'Récupération des Données
End Sub

Ajoutes cette macro dans le code de l'Userform

Private Sub CheckBox1_Click()
  If CheckBox1 = True Then
    Me.ComboBox1.RowSource = "'donnée interne'!B2:B40"
  Else
    Me.ComboBox1.RowSource = "'donnée'!B2:B40"
  End If
  Me.ComboBox1.ListIndex = -1
End Sub

Bonjour,

un grand merci a vous çà fonctionne.