Autres apparition message si clic

[Jemiyo3]

Bonjour.
J'ai créer 2 dessins avec une macro.
Je cherche une solution pour lorsque que je clique sur un dessin précis, cela affiche un message.
Amitiés
Jemiyo
Excel 2007

 

[soan]

Bonjour Jemiyo,

Si tes 2 dessins sont 2 formes automatiques que tu as insérées, alors pour chaque,
fais un clic droit dessus et choisis l'option « Affecter une macro » ; cette macro
aura cette ligne : MsgBox "Message".

soan

 

[Jemiyo3]

Oui mais il y a déjà une macro sur chaque dessin. Est ce qu'on peu ajouter une seconde macro
Jemiyo

 

[soan]

Ah non, on ne peut pas affecter 2 macros différentes au même dessin.
Tout doit être fait par la même macro, donc ajouter le MsgBox en fin
de macro, juste avant le « End Sub ».

soan

 

[Jemiyo3]

Re

Sub DeprotectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="1234"
Next Feuil
End Sub

Voici ma macro. Ou et comment ajouter ma MsGBos ?

 

[soan]

Sub DeprotectionToutesLesFeuilles()
  Dim Feuil As Worksheet
  For Each Feuil In Worksheets
    Feuil.Unprotect Password:="1234"
  Next Feuil
  MsgBox "Travail effectué", 64, "Déprotection"
End Sub

soan

 

[Jemiyo3]

Re
Cela me convient, par contre je voudrais que le message reste visible dans une cellule sur la feuille.
PS: à quoi sert le chiffre 64 ?
Jemiyo

 

[soan]

Le 64 est pour l'icône bleu « i » (information).

C'est aussi la valeur de cette constante VBA : vbInformation

Pour que le message soit visible dans la cellule D5 de la feuille (par exemple) :

Sub DeprotectionToutesLesFeuilles()
  Dim Feuil As Worksheet
  For Each Feuil In Worksheets
    Feuil.Unprotect Password:="1234"
  Next Feuil
  [D5] = "Travail effectué"
End Sub

soan

 

[Jemiyo3]

Bonsoir. J'ai opté pour la solution MsgBox.
je cherchais une solution pour que le non protéger reste visible jusqu'au moment ou on rectifie avec le protégé. Mais il reste visible après la protection
Amitiés .🙂