Checkbox, changer son état

Bonjour,
j'ai un soucis pour pour changer automatiquement l'état d'une checkbox, je m'explique :

Je veux changer l'état d'une checkbox, pour la mettre à "true" en fonction de la valeur qui se trouve dans un combobox
ex :

Code:

---

1 2 3 4 5 6 7 8

Select Case Saisietest   case "test" = alors checkbox1 est cochée case "test2" = alors checkbox2 est cochée case "test5" = alors checkbox7 est cochée ' etc...   end Select

---

Merci pour votre assistance

Essaye ca :

Code:

---

CheckBox1.Value = Worksheets(1).Range("D4").Value

---

Worksheets(1) : 1 étant le premier onglet. Tu peux aussi mettre Worksheets("Nom de l'onglet")

Ca devrait marcher ... :lol:

Bonjour

En complément de la méthode de Wanaka

Code:

---

CheckBox1.Value = IIf(Range("A1").Value = "test", 1, 0)

---

test étant la valeur attendue pour cocher la checkbox.

Ca ne marche pas.
Mon problème est que je n'arrive pas à mettre ma chekbox à "True", en fonction de la valeur contenue dans le combobox nommé "SaisieTest".
Pour être plus explicite voici une partie du code :
j'ai un combobox qui peut prendre plusieurs valeurs (Tata, Toto, Tutu, Titi)

Code:

---

1 2 3 4 5 6 7 8 9 10

Select Case SaisieTest Case "Tata" CheckBox1.Value = 1 '*********ne marche pas Case "Toto" CheckBox2 = True '*********ne marche pas Case "Tutu" CheckBox3 = True Case "Titi" CheckBox4 = True End Select

---

En fonction de la valeur de Saisietest, le Select Case va bien sur le Case correspondant, mais ce que je ne sais pas faire, c'est de mettre la Checkbox à "True"

Peux tu nous dire ce qu'est SaisieTest? une variable, une textbox?
Si variable quelle type

Sinon

Code:

---

CheckBox1.Value = 1

---

ou

Code:

---

CheckBox1.Value = True

---

Tant possible evite

Code:

---

CheckBox1 = True

---

Cela utilise une propriété de l'objet par défaut qui ne fonctionne plus dans le VB.NET.
Tant qu'a prendre de bonnes habitudes ;)

bonjour comme je comprends !!

exemple change le nom de la combo

Code:

---

1 2 3 4 5 6

Private Sub ComboBox1_Change() CheckBox1 = IIf(ComboBox1 = "tata", 1, 0) CheckBox2 = IIf(ComboBox1 = "toto", 1, 0) CheckBox3 = IIf(ComboBox1 = "tutu", 1, 0) CheckBox4 = IIf(ComboBox1 = "titi", 1, 0) End Sub

---

autrement si plus de noms "travailler" sur des boucles for next ect...

bonjour,

Si je prends ce code pour le mettre dans le SelectCase

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

' avant il y a du code SelectCase SaisieTest   Case "tata" CheckBox1 = IIf(ComboBox1 = "tata", 1, 0) Case "toto" CheckBox2 = IIf(ComboBox1 = "toto", 1, 0)   ' etc...   End Select   ' ensuite il y du code   Private Sub ComboBox1_Change() CheckBox1 = IIf(ComboBox1 = "tata", 1, 0) CheckBox2 = IIf(ComboBox1 = "toto", 1, 0) CheckBox3 = IIf(ComboBox1 = "tutu", 1, 0) CheckBox4 = IIf(ComboBox1 = "titi", 1, 0) End Sub

---

autrement si plus de noms "travailler" sur des boucles for next ect...

:Dbonjour,

Si je prends ce code pour le mettre dans le SelectCase, ça ne marche pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private SubBtValider_Click(). ' il y a du code ' ............... ' ............... SelectCase SaisieTest   Case "Tata" Worksheets("Feuil1").CheckBox1.Value = 1 Case "Toto" Worksheets("Feuil1").CheckBox2.Value = 1 ' ETC... ' .............. ' .............. End sub

---

Ca marche, il fallait juste que je précise le nom la feuille "Worksheets("Feuil1")"

merci pour votre aide