Macro "Interrupteur" (activé/désactivé)

[Madjer]

Bonjour à tous,

Petit soucis aujourd'hui (encore... !)

C'est très simple :

J'ai deux macros, dans deux modules.

- La première macro me transforme des références en lien hypertexte.
- La deuxième macro supprime tous les liens hypertexte présent dans mon classeur.


Je souhaiterais, via une unique macro (que j'associerai à un bouton) faire en sorte que :

Au 1er clic : macro1 se lance (activation des liens hypertexte)
au 2ème clic (toujours sur le même bouton) : macro2 se lance (désactivation des liens hypertexte)
Au 3ème clic (toujours sur le même bouton) : macro1 se lance (activation des liens hypertexte)
Au 4ème clic...

Etc...

Vous avez bien compris, l'idée étant d'avoir un unique bouton. C'est peut être très simple à mettre en place, mais je ne vois pas...

J'espère avoir été clair (je pense !), et je remercie celles et ceux qui prendront le temps de réfléchir.

A vos claviers !

 

[JCGL]

Re : Macro "Interrupteur" (activé/désactivé)

Bonjour à tous,

Pour un unique bouton : un bouton toupie...

Si Vrai : macro1, si Faux : macro2..

Propos abscons ou confus... Joins un fichier anonymisé.

A+ à tous

 

[mutzik]

Re : Macro "Interrupteur" (activé/désactivé)

bonjour

code à mettre sur un bouton
Option Explicit

Public bouton

Private Sub CommandButton1_Click()
bouton = Not bouton
If bouton Then MsgBox "1er click" Else: MsgBox "2eme click"
End Sub


à toi d'adapter

 

[joss56]

Re : Macro "Interrupteur" (activé/désactivé)

Bonjour

Le principe de résolution peut être celui ci : ajouter un indicateur d'état. 1 si liens activés et 0 si liens désactivés (par exemple). Tu testes la valeur de la variable qu tu auras stockée dans une cellule de ta feuille en début de procédure. Si variable=1 tu désactives sinon tu actives.

Bonne journée.

Jocleyn

 

[joss56]

Re : Macro "Interrupteur" (activé/désactivé)

Bonjour JCGL et mutzik, pardon, vous avez été plus rapides que moi.

 

[Madjer]

Re : Macro "Interrupteur" (activé/désactivé)

Merci pour vos réponses.
J'ai oublié de préciser que je ne travaille que sur des grandes listes filtrées.

J'ai joint un exemple en PJ.