Sub AfficherHelp()
On Error GoTo Fin
'Message doit contenir la liste des messages dans l'ordre.
'Le premier pour #1, le second pour #2 ....
Message = Array( _
"Ceci est le message 1", _
"Ceci est le message 2", _
"Ceci est le message 3", _
"Ceci est le message 4", _
"Ceci est le message 5" _
)
Titre = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text ' Extrait le mot contenu dans le bouton
Numéro = Val(Split(Titre, "#")(1)) ' Extrait le N° qui est dans le bouton
MsgBox Message(Numéro - 1), , Titre ' Affiche le message
Fin:
End Sub
Sub AfficherHelp()
On Error GoTo Fin
Dim Message(100)
Message(1) = "Pour exemple, Ceci est le Message Numéro 1"
Message(2) = "Pour exemple, Ceci est le Message Numéro 2"
'....'
Message(48) = "Pour exemple, Ceci est le Message Numéro 48"
Message(49) = "Pour exemple, Ceci est le Message Numéro 49"
Message(50) = "Pour exemple, Ceci est le Message Numéro 50"
Titre = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text ' Extrait le mot contenu dans le bouton
Numéro = Val(Split(Titre, "#")(1)) ' Extrait le N° qui est dans le bouton
MsgBox Message(Numéro), , Titre ' Affiche le message
Fin:
End Sub