Case à cocher

[tomtom09]

Bonjour à touts et à touts.

J'utilise des cases à cocher dans mon document et pas de user form.
Je souhaiterai cocher une case à cocher quand une case est cocher.

Pour l'instant, j'utilise le code suivant :

Private sub Test1_Click()
En sub

If Test1.Value = True Then
        Set objDoc = Application.Document.OPen("\\Doc1.doc")
        Selection.WholeStory
        Selection.Copy
        Selection.Document.Close
        Set objDoc = Application.Document.OPen("\\Doc1.doc")
        Selection.EndKey Unit:=wdStory
        Selection.Paste
EndIF

 

[Guest]

Re : Case à cocher

Bonjour tom,

Tu es dans Word ou Excel.
si c'est word, il y a un nouveau forum ici

Sinon, je ne comprends pas bien la question.

A bientôt

 

[tomtom09]

Re : Case à cocher

Salut Hasco,
J'ai trouver la solution. C'etait très simple :

Private Sub case_coché_Click()
End Sub
 
 
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    case_coché.Value = 1 'La case se coche
ElseIf CheckBox1.Value = False Then
    case_coché.Value = 0 'La case se décoche
End If

PS : Merci pour le menu déroulant. Cela marche très bien. Je n'es pas à devoir cliquer sur les sheets pour les voir ensuite aparaitre sur le menu.

A bientôt

 

[Guest]

Re : Case à cocher

Tom,

Encore plus simple:

Private Sub CheckBox1_Click()
case_coché.Value=Abs(CheckBox1.Value)
end Sub

Découle du fait que True=-1 et False=0 et que abs(renvoie la valeur absolue d'un nombre) 1 pour true O pour false