Modifier une macro pour utiliser 1 bouton

Résolu/Fermé
Signaler
Messages postés
805
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
1 décembre 2021
-
Messages postés
805
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
1 décembre 2021
-
Bonjour,

Actuellement pour verrouiller et déverrouiller des formules j'utilise 1 seul bouton avec cette macro ci-dessous

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CommandButton1.Caption = "Formules_Verrouillés" Then
If Not Intersect(Target, [E11]) Is Nothing Then Target(1).Offset(, 1).Select
Else
End If
End Sub
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Formules_Déverrouillés" Then
CommandButton1.Caption = "Formules_Verrouillés"
Else
CommandButton1.Caption = "Formules_Déverrouillés"
End If
End Sub

Ensuite pour afficher et masquer les colonnes AetB, j'utilise 2 boutons indépendants avec ces deux macros ci-dessous

Private Sub Affiche_A_B_Click()
Sheets("Essais").Range("A:B").EntireColumn.Hidden = False
End Sub

Private Sub Masque_A_B_Click()
Sheets("Essais").Range("A:B").EntireColumn.Hidden = True
End Sub

Voir le fichier http://www.cjoint.com/c/FBdsLyQUtHs
  • Mon intention serait d'utiliser qu'un seul bouton pour afficher et masquer les colonnes, un genre comme, pour verrouiller et déverrouiller les formules

Merci de votre aide


2 réponses

Messages postés
7614
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
4 décembre 2021
672
Bonjour,

Comme ceci:


Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Affiche" Then
Sheets("Essais").Range("A:B").EntireColumn.Hidden = False
CommandButton1.Caption = "Masque"
Else
CommandButton1.Caption = "Affiche"
Sheets("Essais").Range("A:B").EntireColumn.Hidden = True
End If
End Sub

Messages postés
805
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
1 décembre 2021
148
Bonsoir le Pivert

Encore une fois un grand merci pour ta réactivité, et pour ton efficacité, c'est au top! rien à redire.

Merci de ton implication

Bonne soirée

Henri