CheckBox

[maval]

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

Maval

 

[Papou-net]

Re : CheckBox

Bonjour maval,

Inverse tout bêtement les deux Caption:

Private Sub Affich_Entete_Click()

With UserForm1

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

End Sub

Cordialement.

 

[maval]

Re : CheckBox

Bonjour Papou

Oui c'est vrai mais le problème pourquoi quand on ouvre l'USF il sont décocher normal !

il faut que je coche deux fois pour mettre a jour

Pas évident a expliquer

Cordialement

 

[Papou-net]

Re : CheckBox

RE :

Réflexion faite, le fait de modifier le Caption des CheckBox amène une certaine confusion dans la compréhension du formulaire.

Je te propose donc une solution plus légère, et qui a l'avantage d'adapter la coche à la visibilité des formules et des en-têtes.

Espérant avoir aidé.

Cordialement.

 

[Papou-net]

Re : CheckBox

Bonjour Papou

Oui c'est vrai mais le problème pourquoi quand on ouvre l'USF il sont décocher normal !

il faut que je coche deux fois pour mettre a jour

Pas évident a expliquer

Cordialement

Vois ma réponse anticipée en #4.

Cordialement.

 

[laetitia90]

Re : CheckBox

bonjour maval ,Papou
je le verrais comme cela???

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

Private Sub UserForm_Initialize()
If ActiveWindow.DisplayHeadings = True Then
Affich_Entete.Caption = "Ôter les Entêtes de Lignes et de Colonnes"
Else
Affich_Entete.Caption = "Afficher les Entêtes de Lignes et de Colonnes"
End If
End Sub

eventuellement utiliser IIf a la place de if pour simplifier pas de pb..vu que l'on teste les 2 conditions

 

[maval]

Re : CheckBox

Bonjour Lætitia

Merci Lætitia sa marche nickel et merci a toi Papou

Bonne soirée

Cordialement

Maval

 

[grisan29]

Re : CheckBox

bonjour a tous ceux qui ont répondu a Maval

car il a lancé le meme post sur développez.com sous le pseudo de maxval18
[XL-2007] CheckBox avec double message - Forum des professionnels en informatique

Pascal