faire clignoter une ligne

[petula972]

bonjour,

j'aimerais savoir comment faire clignoter une ligne entière à partir de ce code:

Code: Tout sélectionner

Option Explicit
Dim vNow As Variant
Public Sub Eclairage()
vNow = Now + TimeValue("00:00:01")
Application.OnTime vNow, "Eclairage"
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]
End Sub
Public Sub ArrêtEclairage()
Application.OnTime EarliestTime:=vNow, _
Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1
End Sub


merci d'avance pour toute réponse

Petu

[Nad-Dan]

Bonjour,

Ce n'est pas au code qu'il faut toucher, mais à la MFC

Actuellement, tu dois faire clignoter une cellule avec une formule du genre :

=ET(VarEclairage;F2>20)

Sélectionne tout ton tableau, puis dans la MFC écris,

=ET(VarEclairage;$F2>20) référence absolue sur la colonne F

Amicalement
Nad

[petula972]

Re,

j'ai de gros soucis avec ce code. je n'y arrive pas du tout, et en plus mon tableau est trop lourd pour que je puisse vous le joindre.
En fait, je n'ai toujours pas reussi à faire clignoter quoique ce soit.

Ma formule est =ET(VarEclairage;ET(G3<>"";G3=AUJOURDHUI())).

Dis moi ce que je peux faire pour que tu vois le tableau, que tu puisses voir exactement ce que je veux.

Merci d'avance.

[Nad-Dan]

Ma formule est =ET(VarEclairage;ET(G3<>"";G3=AUJOURDHUI())).

Pas besoin du ET car si G3=AUJOURDHUI() elle est forcément <> de ""

Je veux bien essayer de voir ce qui cloche dans ton fichier. Tu as mon mail en MP.

Nad

[Nad-Dan]

Bonjour

Voici ton fichier :

Ton Fichier

J'ai ajouté 2 colonnes pour calcul des dates butoirs.

Sauf erreur de ma part, dans ton fichier seule la condition où la date de fin est atteinte ; donc tu ne vois rien clignoter. Voici un fichier sur lequel j'ai fait des tests.

Fichier Test

Merci de tester à ton tour et de me tenir informée.

Amicalement
Nad

[petula972]

re,

j'ai testé et c'est super ce que tu as fais.

Cependant:
- pour le clignotement rouge, c'est lorsque la date en Z est atteinte et jusqu'à la date en U
- pour le gris, c'est lorsque la date en U est atteinte et jusqu'à la mise en place d'un nouveau contrat (changement des dates, mise à jour...).

sinon, c'est parfait.

Par contre, j'ai 2 questions.

1/ comment verrouiller ces colonnes pour éviter une modif de formule par exemple?
2/ sachant qu'après un 1er renouvellement (date d'effet + 1an), j'aurai un 2ème, puis un 3ème renouvellement (date d'effet + 2ans; date d'effet + 3ans), comment faire?

En tout cas tu m'as bien avancé déja

merci

amicalement

Petu

[Nad-Dan]

- pour le clignotement rouge, c'est lorsque la date en Z est atteinte et jusqu'à la date en U

Quand U est atteinte, la ligne est en gris

- pour le gris, c'est lorsque la date en U est atteinte et jusqu'à la mise en place d'un nouveau contrat (changement des dates, mise à jour...).

Si tu changes une date, vu que U sera différente tu ne seras plus en gris

1/ comment verrouiller ces colonnes pour éviter une modif de formule par exemple?

Le mieux est de protéger ton fichier en entier. Voici comment faire :

1 - Sélectionne la feuille entière (clique dans la cellule à gauche de A et au dessus de 1)
2 - FORMAT - CELLULE - PROTECTION : décoche "Vérouillée"
3 - Sélectionne les colonnes que tu veux protéger (celles qui ont des formules)
4 - FORMAT - CELLULE - PROTECTION : coche "Vérouillée"
5 - OUTIL - PROTECTION - Protéger la feuille
6 - Choisis ou pas un mot de passe et les autorisations que tu veux donner (en les cochant)

2/ sachant qu'après un 1er renouvellement (date d'effet + 1an), j'aurai un 2ème, puis un 3ème renouvellement (date d'effet + 2ans; date d'effet + 3ans), comment faire?

Nous sommes déjà à 3 conditions (maxi d'une MFC). Je regarde si je peux imbriquer les formules.

Amicalement
Nad

[petula972]

re,

merci

Petu

[Nad-Dan]

Nouveaux fichiers,

Le Tien

Fichier Test

J'ai modifié les MFC pour qu'en plus ne clignote que la date concernée en jaune.

Teste et dis moi

Amicalement
Nad

[petula972]

Re,

je te remercie c'est génial.

je te demanderai juste d'enlever le clignotement gris. juste le colorie gris de la ligne suffira.

je te remercie sincèrement.

amicalement

Petu