Discussion :

[maxval18]

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"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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