Résulat d'une checkbox

Bonjour à tous,

J'ai un petit problème avec une checkbox qui est sur un Userform
En effet, je copie le résultat de celle-ci dans une cellule Excel grâce à quelque chose comme ça :

Code:

---

Worksheets("Page1").Range("A1").value = CheckBox1.value

---

Si la case est cochée, j'ai donc : A1 = Vrai

Le problème c'est que j'ai besoin de connaitre cette valeur à un moment donné, et je fais donc :

Code:

---

CheckBox1.value = Worksheets("Page1").range("A1").value

---

Et là, la cellule est cochée, mais grisée :triste:

En réalité, ça fonctionne si A1 à pour valeur "VRAI" et non pas "Vrai" (idem pour Faux)...

Avez-vous une solution simple à ce problème (Sans passer par If Checkbox...)

Merci ;-)

bonjour Korleone le forum j'ai teste avec 2 CommandButtons pas ce pb...que cherche tu as faire ????

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() CheckBox1 = Sheets("Page1").[a1] End Sub Private Sub CommandButton2_Click() Sheets("Page1").[a1] = CheckBox1 End Sub

---

Bonjour.

Si la CheckBox se grise, c'est que la valeur chargée doit être Null.
Comme dit Laetitia, normalement ça marche.
Mais tu dis aussi que tu peux avoir dans la feuille "VRAI" ou "Vrai", ce qui n'est pas pareil du tout. Pour la CheckBox, "Vrai" signifie Null, parce que c'est un texte, pas un booléen.

Donc la question est : tu fais comment pour obtenir dans la feuille "Vrai" ou "Faux" au lieu de "VRAI" ou "FAUX"?

Cordialement,

PGZ

Bonjour Laetitia et pgz, et merci de votre aide.
En fait, je viens de me rendre compte que c'est parce que je passais par une variable qui était elle même en string... Un peu genre :

Code:

---

1 2 3 4 5

Private Sub CommandButton2_Click() Dim aa As String aa = CheckBox1 Sheets("Page1").[a1] = aa End Sub

---

Désolé de vous avoir importuné pour ça...:roll:

En réalité, c'est plus compliqué que ça, puisque j'ai pas mal de conditions, donc pour faire simple, j'ai concaténé du texte avec le résultat de la Checkbox dans le but de spliter le tout lors de l'exploitation de cette "phrase".
Du coup, même si il n'y a pas de variable, le résultat de

Code:

---

1 2	Chaine = Split("Mon texte" & "|" & ComboBox1,"|") Resultat = Chaine(1)

---

Donne du texte...

Pour contourner, j'ai fait quelque chose du genre :

Code:

---

1 2	If Resultat = "Vrai" then Resultat = True If Resultat = "Faux" then Resultat = False

---