Bande passante sur deux feuils d'un meme classeur
Fermé
sylla.junior2
-
14 avril 2019 à 00:07
f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 - 15 avril 2019 à 07:10
f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 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
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
2 réponses
f894009
Messages postés
17190
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 mai 2024
1 705
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
22791
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 mai 2024
1 467
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
17190
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 mai 2024
1 705
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
17190
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 mai 2024
1 705
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
22791
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 mai 2024
1 467
>
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