Code macro vba de bande deroulante sur une feuille excel
Résolu/Fermé
A voir également:
- Code macro vba de bande deroulante sur une feuille excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel liste déroulante en cascade - Guide
- Formule excel - Guide
1 réponse
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
6 avril 2015 à 13:45
6 avril 2015 à 13:45
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 :
4- Double-clique sur ThisWorkbook (à gauche de l'écran).
5- Colle le code suivant:
6- Dans le menu de l'éditeur VBA, clique sur "Insertion" puis "Module".
7- Colle le code suivant:
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.
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.
6 avril 2015 à 14:59
6 avril 2015 à 15:07
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 .
8 avril 2015 à 12:11
merci infiniment pour tout ce que tu fais pour moi
8 avril 2015 à 13:11
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 ?
8 avril 2015 à 16:30
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é.