OVH Cloud OVH Cloud

Dé. / Recocher un checkbox en vba

6 réponses
Avatar
Frédo P
Bonjour Ttes et ts
Quel est le code pour cocher et décocher un checkbox si l'on peut le faire.
--
Fred

6 réponses

Avatar
Clément Marcotte
Bonjour,

Pour cocher:

CheckBox1.value = true

Pour décocher:

CheckBox1.value = false



"Frédo P" a écrit dans le message de
news:
Bonjour Ttes et ts
Quel est le code pour cocher et décocher un checkbox si l'on peut le
faire.

--
Fred




Avatar
Frédo P
Bonsoir Clément
Le checkbox en question se trouve sur une feuille ,s'en est peut être la
cause de non fonctionnement, je mets la cellule liée à false et il reste
quand même coché.,checkbox1.valueúlse ne fait rien non plus. je cherche
une autre solution.

--
Fred
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Pour cocher:

CheckBox1.value = true

Pour décocher:

CheckBox1.value = false



"Frédo P" a écrit dans le message de
news:
Bonjour Ttes et ts
Quel est le code pour cocher et décocher un checkbox si l'on peut le
faire.

--
Fred







Avatar
Frédo P
L'enregistreur de macro me donne
Application.CommandBars("Stop Recording").Visible = False
sans résultat .
--
Fred
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Pour cocher:

CheckBox1.value = true

Pour décocher:

CheckBox1.value = false



"Frédo P" a écrit dans le message de
news:
Bonjour Ttes et ts
Quel est le code pour cocher et décocher un checkbox si l'on peut le
faire.

--
Fred







Avatar
Frédo P
J'ai créé 2 images du Checkbox1 ,un position coché l'autre pas,les ai mis
l'un sur l'autre,leurs ai affecté la même macro.
Sub petit()
Application.ScreenUpdating = False
If [F1] = False Then
ActiveSheet.Shapes("Petit").Select
Selection.ShapeRange.ZOrder msoSendToBack
[F1] = True
Else
ActiveSheet.Shapes("Petit").Select
Selection.ShapeRange.ZOrder msoBringToFront
[F1] = False
End If
Range("E8").Select
End Sub


--
Fred
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Pour cocher:

CheckBox1.value = true

Pour décocher:

CheckBox1.value = false



"Frédo P" a écrit dans le message de
news:
Bonjour Ttes et ts
Quel est le code pour cocher et décocher un checkbox si l'on peut le
faire.

--
Fred







Avatar
Frédo P
J'ai créé 2 images du Checkbox1 ,un position coché l'autre pas,les ai mis
l'un sur l'autre,leurs ai affecté la même macro.On y voit queudchi!
Sub petit()
Application.ScreenUpdating = False
If [F1] = False Then
ActiveSheet.Shapes("Petit").Select
Selection.ShapeRange.ZOrder msoSendToBack
[F1] = True
Else
ActiveSheet.Shapes("Petit").Select
Selection.ShapeRange.ZOrder msoBringToFront
[F1] = False
End If
Range("E8").Select
End Sub


--
Fred
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Pour cocher:

CheckBox1.value = true

Pour décocher:

CheckBox1.value = false



"Frédo P" a écrit dans le message de
news:
Bonjour Ttes et ts
Quel est le code pour cocher et décocher un checkbox si l'on peut le
faire.

--
Fred







Avatar
Clément Marcotte
Je pensais que c'était un Checkbox d'UserForm. Pour les checkboxes de
feuilles, ce n'est pas ma spécialité.


"Frédo P" a écrit dans le message de
news:
Bonsoir Clément
Le checkbox en question se trouve sur une feuille ,s'en est peut
être la

cause de non fonctionnement, je mets la cellule liée à false et il
reste

quand même coché.,checkbox1.valueúlse ne fait rien non plus. je
cherche

une autre solution.

--
Fred
"Clément Marcotte" a écrit dans le
message

de news:
Bonjour,

Pour cocher:

CheckBox1.value = true

Pour décocher:

CheckBox1.value = false



"Frédo P" a écrit dans le message de
news:
Bonjour Ttes et ts
Quel est le code pour cocher et décocher un checkbox si l'on
peut le



faire.
--
Fred