Bonjour,  
j'ai besoin de votre aide.
dans un document word, j'ai inséré avec la barre d'outil formulaire une case à cocher.
avec VBA, j'ai crée un Userform avec une Checkbox.
quand je lance la macro, un formulaire s'affiche avec la case à cocher.
je veux cocher la case du formulaire et que, quand je ferme le formulaire avec OK, la case à cocher de mon document soit activée.
En fait, je souhaite le faire plusieurs fois, car je veux que sur mon document les cases soient cochées à côté des items choisis.
j'espère avoir été claire.
Merci d'avance  
 :  
 

si tu entends par activée qu'elle soit cochée alors le code est
tacheckbox.value = true

Effectivement, c'est la valeur que j'ai mise pour la checkbox dans le Userform. Mais je n'arrive pas à trouver le code pour que dans mon document word la "case à cocher" soit cochée. En fait, il me semble que je dois définir la "case à cocher" pour ensuite lui attribuer la valeur true.Mais je ne sais pas comment le faire.
J'avais commencé à écrire :
private sub OK_Click()
if CheckBox1.value = true then
"CaseACocher1".value = true
end if
end sub
 

Bonsoir,  
alors, personne ne peut répondre à ma question?
 

Ta question est très liée à Word, plus qu'au VBA.
Peu de monde connait bien l'utilisation des signets comme identificateurs de champs et de controles dans un document Word de type Formulaire.
Et ces controles se comportent différemment d'un contexte VBA UserForm semble-t-il.
La case à cocher ne semble pas répondre à la même syntaxe qu'en VBA.
J'ai essayé de faire quelques tests pour te répondre, mais rien de probant n'en est sorti sur le peu de temps que je peux y consacrer. Désolé.

 
Ok merci, je vais m'y prendre autrement!
 

Résolu
j'ai réussi à trouver
pour ceux que ça interesse, voici le code:
Private Sub OK_Click()
If CheckBox1.Value = False Then
With ActiveDocument.FormFields.Add(range:=ActiveDocument.range(Start:=0, End:=0), Type:=wdFieldFormCheckBox)
End With
End If
If CheckBox1.Value Then
With ActiveDocument.FormFields.Add(range:=ActiveDocument.range(Start:=0, End:=0), Type:=wdFieldFormCheckBox)
.CheckBox.Value = True
End With
End If
Unload Me
End Sub
A bientôt