checkbox vba besoin help avec mon code Fermé

Question

Bonjour, je vais faire simple pourquoi ca ne fonctionne pas

Private Sub CommandButton1_Click()
Dim str As Variant
If CheckBox1 = True Then
str = Range("A1").Value
CheckBox1 = str
else if (checkbox1 = false and checkbox2 = true) then
str = Range("A1").Value
CheckBox2 = str
else if (checkbox1 = true and checkbox2 = true) then
str = Range("A1").Value
CheckBox1 = str
str = Range("A2").Value
CheckBox2 = str
End If
End Sub

merci de votre aide 
Titepestounette

Bidouilleu_R · Answer

bonjour,

et comme ça en passant tu pourrais nous dire ce que contient A1
car en lisant...
Private Sub CommandButton1_Click()
Dim str As Variant
If CheckBox1 = True Then           ' checkbox1 reçoit un boolean c'est à dire true ou false 
     str = Range("A1").Value        ' str est déclaré en variant
     CheckBox1 = str                    ' checkbox1 reçoit str qui est un variant!!!

Donc en supposant que tu écrives Vrai ou True en A1
il faut écrire if [A1].value="Vrai" then checkbox1.value=True

dans ce cas "vrai" est une variable string est True un boolean

Tu dis si tu as encore besoin d'aide...
A+

Checkbox vba besoin help avec mon code

1 réponse

Discussions similaires