Faire clignoter une ligne
bonjour,
j'aimerais savoir comment faire clignoter une ligne entière à partir de ce code:
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 Submerci d'avance pour toute réponse
Petu
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
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.
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
Bonjour
Voici 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.
Merci de tester à ton tour et de me tenir informée.
Amicalement
Nad
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
petula972 a écrit :- 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
petula972 a écrit :- 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
petula972 a écrit :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)
petula972 a écrit :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
re,
merci
Petu
Nouveaux fichiers,
J'ai modifié les MFC pour qu'en plus ne clignote que la date concernée en jaune.
Teste et dis moi
Amicalement
Nad
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
Tu aurais pu le faire toi-même en regardant les codes des MFC (il suffisait de sortir la condition VarEclairage) mais je suis dans un bon jour
Nad
Re
merci encore pour tout Nad. Je ne te remercierai jamais assez.
a bientôt
Petu