1 pièce(s) jointe(s)
CheckBox avec double message
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:
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