Discussion :

[Gogia]

Bonjour le forum,

Sur le forum j'ai trouvé une discution suivavnte
http://www.developpez.net/forums/d94...nte-condition/
cette discution m'interrese car j'ai un fichier pour lequel je voudrais impliquer cette macro. Pour la colonne N, j'aurai besoin avoir le valeur clignote si le valeur est superior à 6 ans, 0 mois, 0 jours. Par contre, il est difficile pour moi comprendre toute cette discution + le fait que je ne connaîs pas le VB aggrave la situation.

merci d'avance pour votre aide,
Gogia

P.S. Pardonnez-moi pour mes fautes en français...

[SfJ5Rpw8]

Si l'on revient à ce que tu veux faire ?
- Il y as quoi dans ta cellule ?
- Tu veux qu'elle clignote quand ?
Le code dont tu parle devrai faire clignoter la valeur de la colonne lorsque celle-ci est modifiée, le clignotement s'arrête lors de la modification d'une nouvelle cellule ..

montre nous le code que tu as mis dans ton classeur et dit nous ou tu la mis...
----------------------------------------------------------------
Fichier joint dans vos discussions

[Gogia]

Bonjour,

Il y a une liste des émployés qui travaillent sous ses contrats CDD. Il est possible que le contrat sera rénouveler. Le but est savoir quand l'ensemble des contrats pour la même personne arrive à six ans.

Si l'on revient à ce que tu veux faire ?
- Il y as quoi dans ta cellule ?
- Tu veux qu'elle clignote quand ?
Le code dont tu parle devrai faire clignoter la valeur de la colonne lorsque celle-ci est modifiée, le clignotement s'arrête lors de la modification d'une nouvelle cellule ..

La colonne M calcule la durée du chaque contrat, tandis que la colonne N calcule la durée total des touts les contrats pour chaque personne.
Je voudrais avoir / voir la valeur de la colonne N clignote quand la valeur du cellule dans la colonne N sera supériore à 6 ans 0 mois 0 jours.
Ce valeur clignotera toujours lorsque il corresponde la condition (> 6 ans...)

montre nous le code que tu as mis dans ton classeur et dit nous ou tu la mis...

Malheureusement, je ne peux pas le montre car je n'ai rien mis. Je ne comprends rien dans le VB (je suis vraiment nul dans ce domaine). Si on rajoute que mon français est loin d'être bon et que je travaille sous MAC, tu pourras comprendre que ce n'est pas facile pour moi suivre la discussion des professionnels qui utilisent les expressions qui sont au-delà de ma compréhension :-(

[SfJ5Rpw8]

Peu-être une solution, avec un peu de VBA et une mise en forme conditionnelle ..

tout d'abords création d'un "bit clignotant" par exemple en cellule A1 de ta feuille 1, passage de la valeur 1 à 0 puis 0 à 1 toutes les secondes ..

pour cela dans un nouveau module (AlT-F11 => editeur VBE , Insertion Module )
le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub On_TIME()
   Application.OnTime Now + TimeSerial(0, 0, 1), "On_Time"
   Feuil1.Range("A1") = 1 - Feuil1.Range("A1")
End Sub

pour lancer la macro au démarrage dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
   On_TIME
End Sub

voila la après avoir lancé une fois ta procédure On_Time (F5) .. tu devrai avoir la valeur de la cellule A1 qui "clignote" 0<>1"..

Pour la mise en forme conditionnelle tu te place sur la cellule à modifier puis Menu Format/Mise En forme conditionnelle/ la formule est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ET($A$1=1;D4>6)

avec D4 l'adresse de la cellule concernée..
et tu choisi à ce moment la par exemple le format (couleur de fond...) souhaité lors du clignotement.

[Gogia]

Salut,

Deux premières étapes sont bien expliquées => bien impliquées. Merci beaucoup!

Le petit souci qui reste maintenant est avec le format conditionnel car le valeur qui je vois dans le cellule N4 est le résultat de cette petite fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
=SI(A5="","",DATEDIF(SOMMEPROD((Nom=C5)*(prénom=D5),Date_début),
SOMMEPROD((Nom=C5)*(prénom=D5),Date_Fin),"y")&" an(s) "&DATEDIF(SOMMEPROD((Nom=C5)*(prénom=D5),Date_début),
SOMMEPROD((Nom=C5)*(prénom=D5),Date_Fin),"ym")&" mois "&DATEDIF(SOMMEPROD((Nom=C5)*(prénom=D5),Date_début),
SOMMEPROD((Nom=C5)*(prénom=D5),Date_Fin),"md")&"jour(s)")

Je ne comprends pas quoi exactement dois–je mettre dans la formule quand je fais le format conditionnel.
Pourras-tu me recommander quelque chose ?
Merci d’avance

[SfJ5Rpw8]

suffit de remplacer D4 par N4 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ET($A$1=1;N4>6)