animation d'une cellule

[pit bull]

salut je suis nouveaux sur ce forum,

je remarque l'entraide entre internautes et j'espère que l'on pourra m'aider

j'ai une base de données (stock)
et je voudrais que siA1>0 et B1 différent que C1 alors D1 soit en rouge avec le texte "!"
mais si A1=B1 alors D1 soit en vert pendant 15sec avec le texte « OK »

si A1=0 alors D1 vide


merci d'avance



pit

 

[JNP]

Re : animation d'une cellule

Bonjour Pit Bull et bienvenue 🙂,
J'ai l'impression que ta réponse est comprise dans la question... 😉

siA1>0 et B1 différent que C1 alors D1 soit en rouge avec le texte "!"

=SI(ET(A1>0;B1<>C1);"!";"OK")

avec une MFC rouge pour "!" et verte pour "OK". Pour les 15 secondes, il va falloir passer par VBA, mais veux-tu vraiment aller dans ce sens ?
Bonne soirée 😎

 

[MR71]

Re : animation d'une cellule

Bonjour
Pour se faire j'utilise le menu Format - Mise en forme conditionnelle.
On peut mettre jusqu'à 3 mise en forme conditionnelle.

 

[pit bull]

Re : animation d'une cellule

bonjour JP et MR71,

j'avais déjà penser à la mise en fome conditionnelle mais je bloque pour le délai de 15 sec.
VBA cela veut dire une macro c'est çà? si il n'y a pa d'autres solutions ben alors je passerai à ce cap


merci bonne journée.
Pit

 

[JNP]

Re : animation d'une cellule

Salut Pit Bull 🙂,
Un essai en pièce jointe.
Je suis passé par Calculate qui se déclenche à chaque calcul de la feuille, mais si A1, B1 et C1 ne sont pas des formules, on pourra passer par Change qui ne déclenchera que si A1, B1 ou C1 sont modifiés.
Je suis passé par Timer car ça te permet de garder la main, mais tu peux utiliser Wait que j'ai désactivé.
Pour les couleurs, comme je suis en 2007, je garanti pas, mais je t'ai laisser une petite Sub pour afficher le N° d'index en fonction des 25 premières couleurs.
Comme ce n'était pas précisé, je repasse en noir après le vert.
Bonne journée 😎

 

[pit bull]

Re : animation d'une cellule

salut je suis nouveaux sur ce forum,

je remarque l'entraide entre internautes et j'espère que l'on pourra m'aider

j'ai une base de données (stock)
et je voudrais que siA1>0 et B1 différent que C1 alors D1 soit en rouge avec le texte "!"
mais si A1=B1 alors D1 soit en vert pendant 15sec avec le texte « OK »

si A1=0 alors D1 vide


merci d'avance



pit

j'ai fait une erreur dans mon énoncé

mais si A1=B1 alors D1 soit en vert pendant 15sec avec le texte « OK »
c'était
mais si B1=C1 alors D1 soit en fond vert pendant 15sec avec le texte « OK »
mais pour simplifier

la cellule D1 à l'origine peut être constament en fond rouge avec le texte "!"


sinon merci de tout façon JNP

pit

 

[JNP]

Re : animation d'une cellule

Re 🙂,
J'avoue que c'est pas encore complêtement clair 😕...
Mais si j'ai compris, en D1 :

=SI(A1=0;0;SI(B1<>C1;"OK";"!"))

et pour la macro

Private Sub Worksheet_Calculate()
Select Case Range("D1")
    Case "!"
        Range("D1").Font.ColorIndex = 2
        Range("D1").Interior.ColorIndex = 3
    Case "OK"
        Range("D1").Font.ColorIndex = 2
        Range("D1").Interior.ColorIndex = 4
        Dim Pause As Integer, Début
        Pause = 5
        Début = Timer
        Do While Timer < Début + Pause
            DoEvents ' Donne le contrôle à d'autres processus.
        Loop
        Range("D1").Font.ColorIndex = xlAutomatic
        Range("D1").Interior.ColorIndex = 0
    Case 0
        Range("D1").Font.ColorIndex = xlAutomatic
        Range("D1").Interior.ColorIndex = 0
End Select
End Sub

A + 😎

 

[Lii]

Re : animation d'une cellule

Salut,
autre proposition (inspirée de celle de JNP) :

Private Sub Worksheet_Calculate()
  Dim Pause As Integer, Début
  If [D1] = "OK" Then
    [D1].Interior.ColorIndex = 4
    Pause = 5
    Début = Timer
    Do While Timer < Début + Pause
      DoEvents  ' Donne le contrôle à d'autres processus.
    Loop
    [D1].Interior.ColorIndex = 3
  End If
End Sub

avec en D1 :
=SI(ET(B1<>"";B1=C1);"OK";"!")
donc sans faire intervenir A1.

 

[pit bull]

Re : animation d'une cellule

bonsoir à tous,

merci pour vos propositions
mon tableau fonctionne

voulant utilser cette formule pour autre chose
pourquoi cette formule ne fonctionne pas si ds B1 il y a une horloge H:MM:SS et en C1 une réf en H:MM:SS


bonne nuit

Pit bull

 

[JNP]

Re : animation d'une cellule

Re 🙂,
Le format date est très complexe. Il est possible de n'afficher qu'une partie, mais que la valeur soit par exemple hh:mm:ss pour une et dd/mm/yy hh:mm:ss pour l'autre...
Bonne soirée 😎

 

[pit bull]

Re : animation d'une cellule

Re-bonjour,



1 comment fait on en macro car il ne faut pas de formule ds la cellule de destination, enregistrer une cellule dans une autre cellule et ceci sur la même feuille?



Merci
Pit

 

[JNP]

Re : animation d'une cellule

Re 🙂,
Pas tout bien compris, mais peut-être :

cells(1,2) = Cells(1,1)

qui remplit B1 avec A1.
Bonne journée 😎

 

[pit bull]

Re : animation d'une cellule

re

petit soucis avec ce tableau

lorsque je note moi même un temps dans les cellules H1 et J2 la cellule dans G4 fonctionne, mais lorsque je le fais ave la macro elle ne fonctionne plus

y a t il une solution?

http://cjoint.com/?emgAz7W1bE

pit

 

[jeanpierre]

Re : animation d'une cellule

Bonjour pit bull, JNP, Lii,

Une question car je n'ai rien compris : C'est supposer faire quoi ta joyeuseté ?

Ca beug à l'ouverture...

Bonne fin d'après-midi.

Jean-Pierre

 

[pit bull]

Re : animation d'une cellule

bonjour Jean Pierre,

chez moi quand j'enregistre mon fichier joint je peux l'ouvrir sans soucis.
ton problème provient certainement de la macro "horloge"

sinon c'est un tableau qui nous permet d'afficher un stop et go pour le départ de voitures sur un rallye.
et d'enregistrer des temps

j'espère avoir répondu à ta question

bon WE
pit