Code macro vba de bande deroulante sur une feuille excel

Résolu
sylla.junior2 -  
 sylla.junior2 -
Bonjour,

je voudrais creer une bande deroulante animée sur la premiere feuille excel voila le message: " bonjour ma calculatrice vous facilite tout" . aidez moi a faire une bande deroulante avec les differentes etapes merci a vous pour tout ce que vous faites pour la conception de mon petit programme de calcul . sylla junior

A voir également:

1 réponse

Réponse 1 / 1
redaiwa Messages postés 370 Statut Membre 119
 
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.
0
redaiwa Messages postés 370 Statut Membre 119
 
Petite précision au niveau de l'étape 9 : en enregistrant le fichier, choisissez le type avec l'extension ".xlsm" qui prend en charge les macros VBA.
0
redaiwa Messages postés 370 Statut Membre 119
 
Pour augmenter ou réduire la vitesse de défilement, il suffit de modifier la valeur de la constante "Pause" dans l'instruction 
Public Const Pause = 30000000
.

Pour modifier l'emplacement du message dans la feuille (A1 dans l'exemple), il suffit de remplacer "A1" par l'emplacement voulu (par exemple "G14") dans l'instruction 
Public Const PositionMessage = "A1"
.
0
sylla.junior2 > redaiwa Messages postés 370 Statut Membre
 
salam
merci infiniment pour tout ce que tu fais pour moi
0
sylla.junior2 > sylla.junior2
 
bonjour
quand j'utilise ce code:"(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")
on met erreur de syntaxe que faire dans ce cas ?
0
redaiwa Messages postés 370 Statut Membre 119 > sylla.junior2
 
Salam.
Voici un fichier exemple : https://www.cjoint.com/c/EDiqQR2g2gV
Ouvre-le puis appuie sur ALT+F11 pour voir le code.
Vérifie si tu as saisi correctement le tien.
Tiens-moi informé.
0