Bande passante sur deux feuils d'un meme classeur
Fermé
sylla.junior2
-
14 avril 2019 à 00:07
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 15 avril 2019 à 07:10
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 15 avril 2019 à 07:10
A voir également:
- Bande passante sur deux feuils d'un meme classeur
- Deux comptes whatsapp - Guide
- Mettre un mot de passe sur un dossier - Guide
- Deux ecran pc - Guide
- Faire deux colonnes sur word - Guide
- Comment jouer a minecraft a deux sur la meme switch - Forum Nintendo Switch
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
14 avril 2019 à 07:04
14 avril 2019 à 07:04
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!!!!!!
yg_be
Messages postés
22728
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
1 476
14 avril 2019 à 09:00
14 avril 2019 à 09:00
bonjour, peux-tu nous montrer ton code?
sylla.junior2_3228
Messages postés
5
Date d'inscription
dimanche 14 avril 2019
Statut
Membre
Dernière intervention
14 avril 2019
14 avril 2019 à 09:58
14 avril 2019 à 09:58
Public Const Feuille = "A"
Public Const Message = " DERNIERE DATE DES EXAMENS EST MERCREDI "
Public MessageActif As Boolean
Public Const Pause = 10000000
Public Const PositionMessage = "A1"
Public Const Message = " DERNIERE DATE DES EXAMENS EST MERCREDI "
Public MessageActif As Boolean
Public Const Pause = 10000000
Public Const PositionMessage = "A1"
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
14 avril 2019 à 10:45
14 avril 2019 à 10:45
Bonjour yg_be
sylla.junior2_3228
mais si je reprends les memes codes vba sur feuil B
Et il est ou le code pour faire car ce que vous avez mis post 4 ne fait rien ….
sylla.junior2_3228
mais si je reprends les memes codes vba sur feuil B
Et il est ou le code pour faire car ce que vous avez mis post 4 ne fait rien ….
sylla.junior2_3228
Messages postés
5
Date d'inscription
dimanche 14 avril 2019
Statut
Membre
Dernière intervention
14 avril 2019
14 avril 2019 à 11:36
14 avril 2019 à 11:36
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié le 14 avril 2019 à 11:44
Modifié le 14 avril 2019 à 11:44
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/
yg_be
Messages postés
22728
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
1 476
>
sylla.junior2_3228
Messages postés
5
Date d'inscription
dimanche 14 avril 2019
Statut
Membre
Dernière intervention
14 avril 2019
14 avril 2019 à 12:16
14 avril 2019 à 12:16
je suggère ceci:
Public Const FeuilleA = "Accueil" Public Const FeuilleB = "???" ' ... Sheets(FeuilleA).Range(PositionMessage) = message1 & message2 Sheets(FeuilleB).Range(PositionMessage) = message1 & message2 ' ...
14 avril 2019 à 09:52