Checkbox vba besoin help avec mon code
titepestounette
Messages postés
24
Statut
Membre
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
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+
