Bande passante sur deux feuils d'un meme classeur
sylla.junior2
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
bonsoir
jai deux feuil A et B sur un classeur excel sur chaque feuil je veux faire deux bandes passantes differentes une sur la feuil A et l'autre sur la feuil B . quand je fais la bande passante passe bien sur la feuil A mais si je reprends les memes codes vba sur feuil B rien ne passe et cela empeche meme la bande passante feuil A .
ya t il un vba ou code pour prendre les deux feuils en meme temps en compte ? aidez moi .
jai deux feuil A et B sur un classeur excel sur chaque feuil je veux faire deux bandes passantes differentes une sur la feuil A et l'autre sur la feuil B . quand je fais la bande passante passe bien sur la feuil A mais si je reprends les memes codes vba sur feuil B rien ne passe et cela empeche meme la bande passante feuil A .
ya t il un vba ou code pour prendre les deux feuils en meme temps en compte ? aidez moi .
A voir également:
- Bande passante sur deux feuils d'un meme classeur
- Comment faire deux colonnes sur word - Guide
- Deux whatsapp sur un téléphone - Guide
- Deux ecran pc - Guide
- Nombre de jours entre deux dates excel - Guide
- Extraire bande son d'une video - Guide
2 réponses
Bonjour,
Bande passante sur deux feuils d'un meme classeur
Pouvez Developer un peu plus!!!!!!
Bande passante sur deux feuils d'un meme classeur
Pouvez Developer un peu plus!!!!!!
sylla.junior2_3228
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
Sur la feuil A je veux faire défiler un petit message et sur la feuil B faire défiler un autre message différent
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, peux-tu nous montrer ton code?
Public Const Feuille = "Accueil"
Public Const Message = " DERNIERE DATE DES EXAMENS EST MERCREDI "
Public MessageActif As Boolean
Public Const Pause = 10000000
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
Public Const Message = " DERNIERE DATE DES EXAMENS EST MERCREDI "
Public MessageActif As Boolean
Public Const Pause = 10000000
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
Re,
Y en manque encore,
Comment est lance
Feriez mieux de mettre votre fichier a dispo avec les explications qui vont bien
site de partage: https://mon-partage.fr/
Y en manque encore,
MessageActif: qui met a vrai,qui le met a faux
Comment est lance
Public Sub DéroulerMessage() en partant de quoi
Feriez mieux de mettre votre fichier a dispo avec les explications qui vont bien
site de partage: https://mon-partage.fr/