Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Clignotement Shape et cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hulk
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Hulk

XLDnaute Barbatruc
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.
 

Pièces jointes

Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
Re : Clignotement Shape et cellule

Celeborn61 à dit:
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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.

Hulk.
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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
@+
 
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 SI cellule autre feuille est égal à oui
Réponses
7
Affichages
319
juju91
J
H
  • Question Question
XL 2019 masquer des colonne sous condition d'une cellule en vba
Réponses
5
Affichages
255
sylvanu
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
682
job75
N
  • Résolu(e)
Microsoft 365 Garder le focus tant que vide
2 3
Réponses
30
Affichages
917
NONO14
N
C
  • Question Question
XL 2019 Clic cellule
Réponses
5
Affichages
196
Caller
C
R
  • Question Question
XL 2016 récupérer une image depuis un SharePoint et la coller dans une cellule
Réponses
4
Affichages
165
halecs93
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
658
sylvanu
N
  • Résolu(e)
XL 2010 A partir d’un Shape, ouvrir un fichier dont l'adresse est sur une autre feuille dans une cellule
Réponses
4
Affichages
504
Nounours_59
N
  • Question Question
Microsoft 365 Affichage bulle explicative lors survol icônes
Réponses
13
Affichages
652
AIXELS
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
264
sylvanu
L
  • Résolu(e)
Power Query PowerQuery - Passer d'une liste1 à liste2 pour apprendre !!!!
Réponses
10
Affichages
337
alexga78
A
F
  • Question Question
XL 2019 Demande aide formule afficher montant le plus grand.
Réponses
2
Affichages
155
Fidmo
F
N
  • Question Question
Microsoft 365 Avis sur application et amélioration des codes
2 3 4
Réponses
54
Affichages
2 K
NONO14
N
  • Résolu(e)
XL 2019 Tri et Traitement plus rapide
2
Réponses
20
Affichages
686
Titof06
A
  • Résolu(e)
Microsoft 365 Graphique combiné - courbes & droites
Réponses
2
Affichages
171
alka229
A
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
363
Cédric06400
  • Résolu(e)
XL 2019 Supprimer que les "0" ou "0.0000" dans 2 colonnes précises
2 3
Réponses
36
Affichages
2 K
Titof06
  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
517
dysorthographie
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
456
juju91
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…