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

[Theze]

Bonjour,

Tu n'as pas besoin de changer le Caption, si c'est coché les entêtes sont visibles sinon, elles ne le sont pas (ou vice versa) !

Hervé.

[gFZT82]

Bonjour maxval18,

Pourquoi ce post datant d’hier à 18h12 alors que tu as reçu une réponse qui semble te satisfaire sur un autre forum hier à 17h34 ?
A minima, essaie de clore la discussion en indiquant la réponse sans quoi tu risques fort de décevoir les intervenants qui prennent sur leur temps pour te répondre.

Cordialement.