Clignotement Shape et cellule

[Hulk]

Bonjour à tous🙂,

j'ai un petit souci de clignotement avec une macro.

Je souhaiterais qu'un shape et une cellule clignotent ensemble.
J'ai joint le fichier, les explications sont dedans.

Par avance merci pour toute votre aide.

Hulk.

 

[Celeborn61]

Re : Clignotement Shape et cellule

Salut,

C'est parce que tu n'arrêtes pas le clignotement.
La cellule ne clignote plus parce qu'elle ne contient plus rien.

Fait ton test de clignotement dans ta macro "Clign" et stoppe le timer dans le cas ou tu ne veux pas clignote.

 

[Hulk]

Re : Clignotement Shape et cellule

Salut,

C'est parce que tu n'arrêtes pas le clignotement.
La cellule ne clignote plus parce qu'elle ne contient plus rien.

Fait ton test de clignotement dans ta macro "Clign" et stoppe le timer dans le cas ou tu ne veux pas clignote.

Salut Celeborn61,
Oui tu as raison, c'est la cellule qui est vide, mais elle clignote aussi. Le problème, c'est que j'ai beau chercher, je ne trouve pas la solution pour que les deux clignotent ou non. Si tu as une soluce...

Merci Celeborn61

 

[Celeborn61]

Re : Clignotement Shape et cellule

Salut,

Faire le test de clignotement dans la boucle.

Public Sub Clign()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
'Affiche l'alerte ou la fait disparaître (alternativement)
With ThisWorkbook.Sheets("FINALE")
' Faire le test ici
If .Cells(26, 21) <> .Cells(26, 23) Then
'Texte
.Range("Q19").Font.ColorIndex = IIf(.Font.ColorIndex = 2, 1, 2)
'Dessin
.Shapes("Champion").Visible = Not .Shapes("Champion").Visible
Else
'Texte
.Range("Q19").Font.ColorIndex = 1
'Dessin
.Shapes("Champion").Visible = False
End If
End With
End Sub

 

[Hulk]

Re : Clignotement Shape et cellule

Salut,

Faire le test de clignotement dans la boucle.

Public Sub Clign()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
'Affiche l'alerte ou la fait disparaître (alternativement)
With ThisWorkbook.Sheets("FINALE")
' Faire le test ici
If .Cells(26, 21) <> .Cells(26, 23) Then
'Texte
.Range("Q19").Font.ColorIndex = IIf(.Font.ColorIndex = 2, 1, 2)
'Dessin
.Shapes("Champion").Visible = Not .Shapes("Champion").Visible
Else
'Texte
.Range("Q19").Font.ColorIndex = 1
'Dessin
.Shapes("Champion").Visible = False
End If
End With
End Sub

Salut Celeborn61,

Désolé de t'avoir laissé comme ça sans nouvelle.

Entre temps, j'ai trouvé mon bonheur ailleur, mais je suis certain que ton code est bon.

Sincèrement désolé, et merci quand même.

Hulk.

 

[Hulk]

Re : Clignotement Shape et cellule

Salut Celeborn61,

Désolé de t'avoir laissé comme ça sans nouvelle.

Entre temps, j'ai trouvé mon bonheur ailleur, mais je suis certain que ton code est bon.

Sincèrement désolé, et merci quand même.

Problème résolu.

Hulk.

 

[jeanpierre]

Re : Clignotement Shape et cellule

Hulk et les autres, bonjour,

Et tu as trouvé quoi ???

Partager, c'est partager.

 

[Pierrot93]

Re : Clignotement Shape et cellule

Bonjour à tous

@Jean-Pierre
la réponse ici, chez nos amis de VeriTi... Pourrais tout de même prévenir.... les uns et les autres....

www.veriti.net :: Voir le sujet - Clignotement d'une cellule et d'un shape

bonne journée
@+

 

[jeanpierre]

Re : Clignotement Shape et cellule

Re, Bonjour Pierrot,

Et merci de ton lien

Pour une fois que je dors plus que de coutume, 4, presque 5 heures, au lieu de deux ou trois quand ça va bien, j'ai loupé des trucs ce matin...

Ce n'est plus du partage, c'est du chapardage, du GF, du VTFV, du MJV

Traduc.en MP....

Point fin, moi, today...

 

[Pierrot93]

Re : Clignotement Shape et cellule

Re Jean-Pierre

pas reçu ton MP pour la traduc.... mais me doute🙂 et suis à 200% d'accord avec toi... te souhaitant un bon après midi.

 

[jeanpierre]

Re : Clignotement Shape et cellule

Re Pierrot,

Je n'envoie jamais de MP, sauf sur demande, et à........., c'était au cas de non traduc... pour certain....

Bon après-midi et WE aussi

Jean-Pierre