Code macro vba de bande deroulante sur une feuille excel

Salam sylla.junior2.

Voici une solution avec du code VBA. Procède comme suit :

1- Clique-droit sur l'onglet où tu veux mettre ton message déroulant.
2- Clique sur "Visualiser le code" pour ouvrir l'éditeur VBA.
3- Colle le code suivant :

Private Sub Worksheet_Activate()
MessageActif = True
Call DéroulerMessage
End Sub

Private Sub Worksheet_Deactivate()
MessageActif = False
Call DéroulerMessage
End Sub

4- Double-clique sur ThisWorkbook (à gauche de l'écran).
5- Colle le code suivant:

Private Sub Workbook_Open()
Sheets(Feuille).Activate
MessageActif = True
Call DéroulerMessage
End Sub

6- Dans le menu de l'éditeur VBA, clique sur "Insertion" puis "Module".
7- Colle le code suivant:

Public Const Feuille = "Feuil1"
Public Const Message = "          Bonjour! Ma calculatrice vous facilite tout."
Public MessageActif As Boolean
Public Const Pause = 30000000
Public Const PositionMessage = "A1"

Public Sub DéroulerMessage()
Caractère = 1
While MessageActif
  message1 = Mid(Message, Caractère, Len(Message) - Caractère + 1)
  message2 = Mid(Message, 1, Caractère - 1)
  Sheets(Feuille).Range(PositionMessage) = message1 & message2
  Caractère = Caractère + 1
  If Caractère > Len(Message) Then Caractère = 1
  DoEvents
  For t = 1 To Pause: Next t
Wend
End Sub

8- Retourne dans ton fichier excel en appuyant sur ALT+F11.
9- Enregistre et ferme le fichier puis ouvre-le. Le message commence à défiler.

Essaye et dis-nous si ça marche.