Joe_cooker
XLDnaute Nouveau
Bonjour le forum,
J'ai encore besoin de votre aide. Merci d'avance
j'ai un petit probleme avec un message animé lancé à l'ouverture de ma page d'acceuil. lors de l'ouverture le message ((BIENVENUE....)) fonctionne correctement sauf qu'il s'affiche au meme temps dans tt les feuille en ecrasant ainsi le contenu correspondant de la cellule en page d'acceuil.
j'aimerai que ce message soit afficher seulement en page d'acceuil.
j'utilise le code suivant dans un module: voir aussi le fichier ci joint.
il faut mentionner que j'essayer de le mettre dans le modul de la page d'acceuil au lieu dans un module standart mais ca fonctionne pas.
Etant debutant en VBA j'ai vraiment besoin de l'aide des experts: voici le code et le fichier ci-joint:
Sub auto_open()
t = "BIENVENUE À L'OUTIL ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `"
n = 0
Do While n < 80
t = Right(t, 1) & Left(t, Len(t) - 1)
[C2] = t
w = 0.55
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub
Merci d'avance
J'ai encore besoin de votre aide. Merci d'avance
j'ai un petit probleme avec un message animé lancé à l'ouverture de ma page d'acceuil. lors de l'ouverture le message ((BIENVENUE....)) fonctionne correctement sauf qu'il s'affiche au meme temps dans tt les feuille en ecrasant ainsi le contenu correspondant de la cellule en page d'acceuil.
j'aimerai que ce message soit afficher seulement en page d'acceuil.
j'utilise le code suivant dans un module: voir aussi le fichier ci joint.
il faut mentionner que j'essayer de le mettre dans le modul de la page d'acceuil au lieu dans un module standart mais ca fonctionne pas.
Etant debutant en VBA j'ai vraiment besoin de l'aide des experts: voici le code et le fichier ci-joint:
Sub auto_open()
t = "BIENVENUE À L'OUTIL ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `"
n = 0
Do While n < 80
t = Right(t, 1) & Left(t, Len(t) - 1)
[C2] = t
w = 0.55
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub
Merci d'avance