Modifier une macro pour utiliser 1 bouton

Résolu/Fermé

The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 - 3 févr. 2016 à 19:45
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 - 3 févr. 2016 à 20:19

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

A voir également:

Impossible de modifier une macro dans un classeur masqué
Appel masqué - Guide
Comment modifier un pdf - Guide
Modifier liste déroulante excel - Guide
Modifier dns - Guide
Masque apple - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 févr. 2016 à 19:53

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

Réponse 2 / 2

The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 174
3 févr. 2016 à 20:19

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

Discussions similaires

Rappeler un numéro inconnu

Comment faire un masque sous word ?

Discussions similaires

Newsletters