Est-il possible d'activer et désactiver une macro avec le même bouton ?

[libellule85]

Bonjour le forum,

Dans le thisworkbook j'ai la macro suivante qui empêche la sélection des cellules contenants des formules. Actuellement quand je veux désactiver celle-ci j'ai deux possiblibités soit allez dans onglet Développeur et cliquer sur Mode Création ou alors allez dans le VB et mettre des ' devant chaque lignes !
Je voulais donc savoir si il n'y avait pas moyen d'activer et de désactiver cette macro à l'aide d'un même bouton.
Je vous remerciant par avance de votre aide.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub

 

[Misange]

Re : Est-il possible d'activer et désactiver une macro avec le même bouton ?

Bonjour Libellule
Si c'est pour faire des tests et basculer facilement de l'un à l'autre, tu peux dans une cellule (disons A1) avec données/validation mettre deux valeurs : actif/inactif
et ajouter dans ta macro
if [A1]="actif" then... et la suite de ta macro

 

[libellule85]

Re : Est-il possible d'activer et désactiver une macro avec le même bouton ?

Bonjour Misange,

Merci beaucoup pour ta réponse mais je mets comment dans la validation des données style ="Actif""Inactif"
Ci-joint un fichier

 

[Fo_rum]

Re : Est-il possible d'activer et désactiver une macro avec le même bouton ?

Bonsoir,

une autre façon parmi tant d'autres.

 

[libellule85]

Re : Est-il possible d'activer et désactiver une macro avec le même bouton ?

Bonsoir Fo_rum,

Un grand merci c'est exactement ce que je recherchais, mais à la place de vrai faux comment mettre Actif Inactif
d'avance merci

 

[Roland_M]

Re : Est-il possible d'activer et désactiver une macro avec le même bouton ?

bonsoir

voir modif

 

[libellule85]

Re : Est-il possible d'activer et désactiver une macro avec le même bouton ?

Bonsoir Roland_M,

Merci beaucoup pour la modification
Bonne soirée