maval
XLDnaute Barbatruc
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"
Je joint un fichier qui seras plus explicatif !
Je vous remercie d'avance
Cordialement
Maval
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:
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