CheckBox

Bonjour,

Voila j'ai un USF avec 2 CheckBox qui fonctionne relativement bien sauf qu'il fonctionne a l'envers ?

Je m'explique, je coche sur le CheckBox il supprime les entêtes de feuille avec le code suivant et au lieu de de marque sur le CheckBox "Afficher les Entêtes de Lignes et de Colonnes" il marque "Ôter les Entêtes de Lignes et de Colonnes"

Private Sub Affich_Entete_Click()

With UserForm1

     If .Affich_Entete = True Then
        Affich_Entete.Caption = "Afficher les Entêtes de Lignes et de Colonnes"
            ActiveWindow.DisplayHeadings = True
        Else
         Affich_Entete.Caption = "Ôter les Entêtes de Lignes et de Colonnes"
            ActiveWindow.DisplayHeadings = False
        End If

        End With

End Sub

Je joint un fichier qui seras plus explicatif !

Je vous remercie d'avance

Cordialement

Max

Hello,

Il faut que tu inverses les caption !