XL 2016 Texte ou zone texte glignotante !?

W

WEIDER

XLDnaute Impliqué

• 28 Août 2017

• #2

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

 

Pièces jointes

• Zone de texte glignotante.xlsx

  10.7 KB · Affichages: 27

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Août 2017

• #3

Bonjoue Weider

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  15.6 KB · Affichages: 38

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Août 2017

• #4

Re,

le second fichier

à+
Philippe

 

Pièces jointes

• 111.xlsm

  15.5 KB · Affichages: 37

Vote positif 0 Vote négatif

W

WEIDER

XLDnaute Impliqué

• 28 Août 2017

• #5

Bonjour phlaurent55,

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Août 2017

• #6

Re,

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

À+
Philippe

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Août 2017

• #7

Bonjour

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

VB:

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

 

Pièces jointes

• Zone de texte glignotante.xlsm

  17.1 KB · Affichages: 35

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Août 2017

• #8

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)

 

Pièces jointes

• Avertissementdéfilant.xlsm

  18.1 KB · Affichages: 45

Vote positif 0 Vote négatif

W

WEIDER

XLDnaute Impliqué

• 29 Août 2017

• #9

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Août 2017

• #10

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 29 Août 2017

• #11

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".

 

Vote positif 0 Vote négatif

W

WEIDER

XLDnaute Impliqué

• 29 Août 2017

• #12

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.

 

Vote positif 0 Vote négatif