Discussion :

[Korleone]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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 ;-)

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

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

[Korleone]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Korleone]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Donne du texte...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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