DÉFILEMENT TEXTE
Adn56
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
9 août 2009 à 18:16
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 10 août 2009 à 19:20
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 10 août 2009 à 19:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/50421-defilement-texte
https://codes-sources.commentcamarche.net/source/50421-defilement-texte
10 août 2009 à 19:20
10 août 2009 à 17:49
En effet, j'utilise couramment mon Timer VBA sous Excel, et je n'ai pas pensé à le déférencer dans mon programme, si bien qu'il apparait donc comme manquant pour les autres utilisateurs.
Après avoir décoché la case dans Rf, il faut sauver le programme pour ne pas avoir la rf à la réouverture.
J'espère que grâce à ton observation, personne n'aura plus de pb.
N'importe comment, je vais rééditer tout de suite une mise à jour de mon code pour supprimer la rf à mon timer, et en profiter pour le retoucher un peu.
10 août 2009 à 17:09
J'ai le même probléme, je crois savoir d'où cela vient: dans Outis-Référence il y a une case cochez "Mamquant Timer VBA", il suffit de la décochez et le code fonctionne très bien.
J'en profite pour te féliciter pour ce programme.
@+ Le Pivert
10 août 2009 à 15:46
Je viens d'essayer mon code avec Excel 2007, et je ne rencontre pas ton pb.
Essaie 2 choses:
1/Remplace Chr(32) par " " (un espace)
2/dans les références (menu VB Outils), vérifie que les cases suivantes sont bien cochées: Visual Basic for Applications / Microsoft Excel 12.0 Object Library (ou 11.0 pour Excel 2003) / OLE Automation / Microsoft Office 12.0 (ou 11.0) Object Library / Microsoft Forms 2.0 Object Library. Sinon cherche la manquante dans la liste et coche-la.
C'est dommage d'avoir un pb avec un code aussi simple, mais çà devrait se résoudre!
10 août 2009 à 13:45
Je suis sur l'office 2007 et il me dit que pour space la bibliothèque est introuvable.
Aprés avoir remplacé la ligne du code
txtD = Space(Len(txt)) & Space(50) & txt
par
txtD = String(Len(txt),Chr(32)) & String(50,Chr(32))
le débogueur m'envoi un message d'erreur ou il me dit que la bibliothèque n'existe pas, et cette fois il sélectionne "Chr".
9 août 2009 à 19:20
un 8/10 pour l'utilisation du code vba ;)
ken'
@++
9 août 2009 à 18:55
Il suffit de la remplacer par String qui doit marcher :
txtD = String(Len(txt),Chr(32)) & String(50,Chr(32))
(le code ASCII 32 est l'espace)
9 août 2009 à 18:16
bien commenté, des idées bonne à prendre pour les timers en VBA, mais un bug chez moi :
Private Sub UserForm_Initialize()
'initialisation du texte à défiler
txt = Label1.Caption
txtD = Space(Len(txt)) & Space(50) & txt
la fonction space est inconnue (office 2002)
kénavo.