Modifier une macro pour utiliser 1 bouton
Résolu
The_boss_68
Messages postés
952
Date d'inscription
Statut
Membre
Dernière intervention
-
The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention -
The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Actuellement pour verrouiller et déverrouiller des formules j'utilise 1 seul bouton avec cette macro ci-dessous
Ensuite pour afficher et masquer les colonnes AetB, j'utilise 2 boutons indépendants avec ces deux macros ci-dessous
Voir le fichier http://www.cjoint.com/c/FBdsLyQUtHs
Merci de votre aide
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é
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Modifier une story facebook - Guide
- Numero masque - Guide
2 réponses
Bonjour,
Comme ceci:
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
