XL 2016 Texte ou zone texte glignotante !?

[WEIDER]

Bonjour à tous,

Deux petit problèmes (pour moi) qui n'en seront pas (certainement pour vous) à résoudre.
Pouvez vous m'aider s'il vous plait, car là, je ne sais pas comment faire :-(

Mille merci à tous pour votre aide.

Tout est dit dans mes deux petits fichiers joints...

 

[WEIDER]

Oup's, voici mon deuxième petit fichier...

 

[phlaurent55]

Bonjoue Weider

voir fichier joint

à+
Philippe

 

[phlaurent55]

Re,

le second fichier

à+
Philippe

 

[WEIDER]

Bonjour phlaurent55,

Merci pour votre réponse, mais lorsque j'ouvre vos fichiers... rien de se passe !?!?

 

[phlaurent55]

Re,

Il est nécessaire d'activer les macros à l'ouverture du fichier

À+
Philippe

 

[Si...]

Bonjour

Un autre exemple (Excel doit être ouvert sinon pas de clignotement visible !)

Private Sub Workbook_Open()
    Feuil1.Select
    With Feuil1.Shapes("ZoneTexte 1")
          For n = 1 To 6
              .Visible = Not .Visible:  Application.Wait Now + TimeValue("0:0:1")
          Next
    End With
End Sub

 

[Si...]

Re

ce n'est pas la première fois que tu fais cette demande.
Voici une autre présentation (sans Usf cette fois mais avec la même consigne d'ouverture)

 

[WEIDER]

Bonjour à tous,

Merci Si... pour ton aide.

Je souhaiterai l'adapter à mon document mais j'ai un bug sur la ligne : Feuil1.[C2].Select
Je mets bien le nom de mon onglet (Nomenclature en l'occurrence) mais peux tu me dire à quoi correspond exactement ce C2, je ne comprends pas son utilité ?

Merci à toi !

******************************

Private Sub Workbook_Open()
Dim T$, Ti
Feuil1.[C2].Select
T = "Ne pas trier ce tableau ! "
Do
Feuil1.Shapes("Oups").TextFrame.Characters.Text = Left(T, 30)
T = Right(T, Len(T) - 1) & Left(T, 1)
Ti = Timer
Do While Timer < Ti + 0.4: DoEvents: Loop
Loop While Selection.Address = "$C$2"
Feuil1.Shapes("Oups").TextFrame.Characters.Text = "Ne pas trier ce tableau !"
End Sub

 

[phlaurent55]

Re-bonjour à tous,

Réflexion perso:
Protéger le tableau (la feuille) éviterait de s'amuser à faire clignoter une message dans une cellule ou dans un Shape

à+
Philippe

 

[Si...]

Re

Une cellule est sélectionnée au début (ici C2 mais on peut aller ailleurs)

Loop While Selection.Address = "$C$2"

sert à sortir de la boucle quand on clique sur une autre cellule que C2 (adresse différente).

On peut aussi changer le type de boucle (For ... Next) mais c'est moins "interpellant".

 

[WEIDER]

Merci pour ta réponse Si... !!!

Dernière petite question, quel est le data (ou ligne de commande) qui paramètre le nombre de caractère visible lors du défilement ? J'aurais souhaité 'l'étendre' un peu plus...... ;-)

Merci.