Bande passante sur deux feuils d'un meme classeur
sylla.junior2
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 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 .
2 réponses
-
Bonjour,
Bande passante sur deux feuils d'un meme classeur
Pouvez Developer un peu plus!!!!!! -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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 -
Re,
Y en manque encore,MessageActif
: qui met a vrai,qui le met a faux
Comment est lancePublic 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/ -
je suggère ceci:
Public Const FeuilleA = "Accueil" Public Const FeuilleB = "???" ' ... Sheets(FeuilleA).Range(PositionMessage) = message1 & message2 Sheets(FeuilleB).Range(PositionMessage) = message1 & message2 ' ...
-
