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

PB de En tant que pour Clignotement

  • Initiateur de la discussion Aladin
  • Date de début
A

Aladin

Guest
Bonjour le forum

J' ai récuperé un fichier de démonstration pour le clignotement de céllule, mais le hic je n' arrive pas a obtenir un résultat, n' étant pas tres calé en Excel je me refere à vous

Voici le détails
Public Sub ClignotTantQue0()
vNow = Now + TimeValue('00:00:01')
Application.OnTime vNow, 'ClignotTantQue0'
ActiveWorkbook.Names.Add Name:='VarClignotTantQue0', RefersToR1C1:=1 - [VarClignotTantQue0]
End Sub

Public Sub ArrêtEclairage()
Application.OnTime EarliestTime:=vNow, _
Procedure:='ClignotTantQue0', Schedule:=False
ActiveWorkbook.Names.Add Name:='VarEclairage', RefersToR1C1:=1
End Sub

Moi je voudrais que la céllule clignote lorsque la valeur est inférieur à zéro, alors moi je rentre la formule suivante:
=ET(ClignotTantQue0<0;$D$11<0)

Merci pour toute aide sur cette formule

Aladin
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour Aladin, le Forum

C'est bien gentil de 'récuperer des fichiers de démonstration pour le clignotement de cellule' et de venir demander comment ça marche sur un nouveau fil...

Mais en attendant, je te signale qu'hier tu as posé cette question :


Que depuis mon copain Eric_C t'a répondu, même par deux fois, et que moi-même je t'ai préparé et mis à disposition une Démo...

=> Lien supprimé

Mais hélas on ne ta plus revu dans ce Fil...

Donc avant d'aller plus loin, j'ai un beau Gif, qui malgrè qu'il ne clignotte pas, te permettra d'être un peu plus 'XLD-Compliant' à l'avenir...


Bon Après Midi
@+Thierry
 
A

Aladin

Guest
Bonjour à tous

J' vais completement oublié ce fil et m' en excuse, oui éffectivement
j' essaye de comprendre le fonctionnement du code et non me servir
comme ça, n' étant pas un feru de vba.
A l' avenir je m' occuperai plus de ce qu je poste sur le forum
Je vous remercie d' avoir répondu à mon ancien Fil

Aladin
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…