Autres apparition message si clic

S

soan

XLDnaute Barbatruc

Inactif

• 27 Août 2020

• #2

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

 

Vote positif 0 Vote négatif

J

Jemiyo3

XLDnaute Nouveau

• 27 Août 2020

• #3

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 27 Août 2020

• #4

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

 

Vote positif 0 Vote négatif

J

Jemiyo3

XLDnaute Nouveau

• 27 Août 2020

• #5

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 ?

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 27 Août 2020

• #6

VB:

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

 

Vote positif 0 Vote négatif

Solution

J

Jemiyo3

XLDnaute Nouveau

• 27 Août 2020

• #7

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 27 Août 2020

• #8

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) :

VB:

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

soan

 

Vote positif 0 Vote négatif

J

Jemiyo3

XLDnaute Nouveau

• 28 Août 2020

• #9

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 .🙂

 

Vote positif 0 Vote négatif