Bonjour
Dans le cadre de mon stage, je dois réaliser un fichier excel avec des cases à cocher, quand elles sont cochées laissent apparaitre un paragraphe dans le fichier word.
Pour l’instant j’arrive à le faire en word, c’est à dire la case à cocher est situé dans le document word mais pas en excel voici mon programme :
Private Sub CheckBox22_Click()
Dim myR As Range
Set myR = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks(“mise1”).Range.Start, End:=ActiveDocument.Bookmarks(“mise2”).Range.End)
If myR.Font.Hidden = True Then
myR.Font.Hidden = False
Debug.Print "Caché"
Else
myR.Font.Hidden = True
Debug.Print "Visible"
End If
Set myR = Nothing
End Sub
Merci pour votre aide