Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) The n
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans l a
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) The n
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
2082505f-36d3-4101-bba9-dd0221836...@r38g2000vbi.googlegroups.com...
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans l a
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) The n
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans l a
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
2082505f-36d3-4101-bba9-dd0221836...@r38g2000vbi.googlegroups.com...
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Re....
1-La couleur change selon la date(=Aujourdhui()), ce qui était jaune hier
peu devenir rouge aujourd'hui
2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
lis en colonne A sont erronées
Outil/options==>onglet calcul==>Sélectionner Automatique
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
On 18 jan, 17:39, "Jacky" wrote:Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir Jacky
Je n'arrive pas a l'intégrer au fichier .
http://cjoint.com/?bvb5VwX2TE
Merci
Re....
1-La couleur change selon la date(=Aujourdhui()), ce qui était jaune hier
peu devenir rouge aujourd'hui
2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
lis en colonne A sont erronées
Outil/options==>onglet calcul==>Sélectionner Automatique
--
Salutations
JJ
"pellet15" <pellet15@videotron.ca> a écrit dans le message de news:
a27c1667-16c6-4585-b996-b21082daf97b@z28g2000prd.googlegroups.com...
On 18 jan, 17:39, "Jacky" <Dup...@marcel.fr> wrote:
Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
2082505f-36d3-4101-bba9-dd0221836...@r38g2000vbi.googlegroups.com...
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir Jacky
Je n'arrive pas a l'intégrer au fichier .
http://cjoint.com/?bvb5VwX2TE
Merci
Re....
1-La couleur change selon la date(=Aujourdhui()), ce qui était jaune hier
peu devenir rouge aujourd'hui
2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
lis en colonne A sont erronées
Outil/options==>onglet calcul==>Sélectionner Automatique
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
On 18 jan, 17:39, "Jacky" wrote:Bonsoir
Ceci Peut-être
A placer dans le module de la feuille en question
'----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:G")) Is Nothing Then
Application.EnableEvents = False
[b2:g2].Interior.ColorIndex = 0
For j = 2 To 7
For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 3
Exit For
End If
If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
Cells(2, j).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End If
Application.EnableEvents = True
End Sub
'-------------------
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
Bonjour à tous
Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
colonne F et a chacune des répétition il y a une date sur la même
ligne dans la colonne E.
Par rapport a la date la plus récente et la date du d'aujourdhui ci il
y a plus de 3 jour je voudrait
que le font du texte affiche en jaune et en rouge ci il y a plus de 4
jour.
Cela la même chose pour la cellule E2, F2, G2.
J'ai attacher un exemple:
http://cjoint.com/?butblYHgmP
Merci
Bonsoir Jacky
Je n'arrive pas a l'intégrer au fichier .
http://cjoint.com/?bvb5VwX2TE
Merci
Re.
Voir ici le classeur modifiéhttp://www.cijoint.fr/cjlink.php?file=cj2 00901/cijKjT1hFw.xls
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
%
> Re....
> 1-La couleur change selon la date(=Aujourdhui()), ce qui était jaun e hier
> peu devenir rouge aujourd'hui
> 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> lis en colonne A sont erronées
> Outil/options==>onglet calcul==>Sélectionner Automatique
> --
> Salutations
> JJ
> "pellet15" a écrit dans le message de news:
>
> On 18 jan, 17:39, "Jacky" wrote:
>> Bonsoir
>> Ceci Peut-être
>> A placer dans le module de la feuille en question
>> '----------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
>> Application.EnableEvents = False
>> [b2:g2].Interior.ColorIndex = 0
>> For j = 2 To 7
>> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
>> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 3
>> Exit For
>> End If
>> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 6
>> Exit For
>> End If
>> Next
>> Next
>> End If
>> Application.EnableEvents = True
>> End Sub
>> '-------------------
>> --
>> Salutations
>> JJ
>> "pellet15" a écrit dans le message de news:
>>
>> Bonjour à tous
>> Dans la cellule B2 il y a un texte qui ce répète plusieur foix dan s la
>> colonne F et a chacune des répétition il y a une date sur la mêm e
>> ligne dans la colonne E.
>> Par rapport a la date la plus récente et la date du d'aujourdhui ci il
>> y a plus de 3 jour je voudrait
>> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
>> jour.
>> Cela la même chose pour la cellule E2, F2, G2.
>> J'ai attacher un exemple:
>>http://cjoint.com/?butblYHgmP
>> Merci
> Bonsoir Jacky
> Je n'arrive pas a l'intégrer au fichier .
>http://cjoint.com/?bvb5VwX2TE
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re.
Voir ici le classeur modifiéhttp://www.cijoint.fr/cjlink.php?file=cj2 00901/cijKjT1hFw.xls
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
%23GhjrcheJHA.2...@TK2MSFTNGP04.phx.gbl...
> Re....
> 1-La couleur change selon la date(=Aujourdhui()), ce qui était jaun e hier
> peu devenir rouge aujourd'hui
> 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> lis en colonne A sont erronées
> Outil/options==>onglet calcul==>Sélectionner Automatique
> --
> Salutations
> JJ
> "pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
> a27c1667-16c6-4585-b996-b21082daf...@z28g2000prd.googlegroups.com...
> On 18 jan, 17:39, "Jacky" <Dup...@marcel.fr> wrote:
>> Bonsoir
>> Ceci Peut-être
>> A placer dans le module de la feuille en question
>> '----------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
>> Application.EnableEvents = False
>> [b2:g2].Interior.ColorIndex = 0
>> For j = 2 To 7
>> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
>> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 3
>> Exit For
>> End If
>> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 6
>> Exit For
>> End If
>> Next
>> Next
>> End If
>> Application.EnableEvents = True
>> End Sub
>> '-------------------
>> --
>> Salutations
>> JJ
>> "pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
>> 2082505f-36d3-4101-bba9-dd0221836...@r38g2000vbi.googlegroups.com...
>> Bonjour à tous
>> Dans la cellule B2 il y a un texte qui ce répète plusieur foix dan s la
>> colonne F et a chacune des répétition il y a une date sur la mêm e
>> ligne dans la colonne E.
>> Par rapport a la date la plus récente et la date du d'aujourdhui ci il
>> y a plus de 3 jour je voudrait
>> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
>> jour.
>> Cela la même chose pour la cellule E2, F2, G2.
>> J'ai attacher un exemple:
>>http://cjoint.com/?butblYHgmP
>> Merci
> Bonsoir Jacky
> Je n'arrive pas a l'intégrer au fichier .
>http://cjoint.com/?bvb5VwX2TE
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re.
Voir ici le classeur modifiéhttp://www.cijoint.fr/cjlink.php?file=cj2 00901/cijKjT1hFw.xls
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
%
> Re....
> 1-La couleur change selon la date(=Aujourdhui()), ce qui était jaun e hier
> peu devenir rouge aujourd'hui
> 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> lis en colonne A sont erronées
> Outil/options==>onglet calcul==>Sélectionner Automatique
> --
> Salutations
> JJ
> "pellet15" a écrit dans le message de news:
>
> On 18 jan, 17:39, "Jacky" wrote:
>> Bonsoir
>> Ceci Peut-être
>> A placer dans le module de la feuille en question
>> '----------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
>> Application.EnableEvents = False
>> [b2:g2].Interior.ColorIndex = 0
>> For j = 2 To 7
>> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
>> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 3
>> Exit For
>> End If
>> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 6
>> Exit For
>> End If
>> Next
>> Next
>> End If
>> Application.EnableEvents = True
>> End Sub
>> '-------------------
>> --
>> Salutations
>> JJ
>> "pellet15" a écrit dans le message de news:
>>
>> Bonjour à tous
>> Dans la cellule B2 il y a un texte qui ce répète plusieur foix dan s la
>> colonne F et a chacune des répétition il y a une date sur la mêm e
>> ligne dans la colonne E.
>> Par rapport a la date la plus récente et la date du d'aujourdhui ci il
>> y a plus de 3 jour je voudrait
>> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
>> jour.
>> Cela la même chose pour la cellule E2, F2, G2.
>> J'ai attacher un exemple:
>>http://cjoint.com/?butblYHgmP
>> Merci
> Bonsoir Jacky
> Je n'arrive pas a l'intégrer au fichier .
>http://cjoint.com/?bvb5VwX2TE
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re.
Voir ici le classeur
modifiéhttp://www.cijoint.fr/cjlink.php?file=cj200901/cijKjT1hFw.xls
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
%
> Re....
> 1-La couleur change selon la date(=Aujourdhui()), ce qui était jaune
> hier
> peu devenir rouge aujourd'hui
> 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> lis en colonne A sont erronées
> Outil/options==>onglet calcul==>Sélectionner Automatique
> --
> Salutations
> JJ
> "pellet15" a écrit dans le message de news:
>
> On 18 jan, 17:39, "Jacky" wrote:
>> Bonsoir
>> Ceci Peut-être
>> A placer dans le module de la feuille en question
>> '----------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
>> Application.EnableEvents = False
>> [b2:g2].Interior.ColorIndex = 0
>> For j = 2 To 7
>> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
>> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 3
>> Exit For
>> End If
>> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 6
>> Exit For
>> End If
>> Next
>> Next
>> End If
>> Application.EnableEvents = True
>> End Sub
>> '-------------------
>> --
>> Salutations
>> JJ
>> "pellet15" a écrit dans le message de news:
>>
>> Bonjour à tous
>> Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
>> colonne F et a chacune des répétition il y a une date sur la même
>> ligne dans la colonne E.
>> Par rapport a la date la plus récente et la date du d'aujourdhui ci il
>> y a plus de 3 jour je voudrait
>> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
>> jour.
>> Cela la même chose pour la cellule E2, F2, G2.
>> J'ai attacher un exemple:
>>http://cjoint.com/?butblYHgmP
>> Merci
> Bonsoir Jacky
> Je n'arrive pas a l'intégrer au fichier .
>http://cjoint.com/?bvb5VwX2TE
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re.
Voir ici le classeur
modifiéhttp://www.cijoint.fr/cjlink.php?file=cj200901/cijKjT1hFw.xls
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
%23GhjrcheJHA.2...@TK2MSFTNGP04.phx.gbl...
> Re....
> 1-La couleur change selon la date(=Aujourdhui()), ce qui était jaune
> hier
> peu devenir rouge aujourd'hui
> 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> lis en colonne A sont erronées
> Outil/options==>onglet calcul==>Sélectionner Automatique
> --
> Salutations
> JJ
> "pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
> a27c1667-16c6-4585-b996-b21082daf...@z28g2000prd.googlegroups.com...
> On 18 jan, 17:39, "Jacky" <Dup...@marcel.fr> wrote:
>> Bonsoir
>> Ceci Peut-être
>> A placer dans le module de la feuille en question
>> '----------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
>> Application.EnableEvents = False
>> [b2:g2].Interior.ColorIndex = 0
>> For j = 2 To 7
>> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
>> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 3
>> Exit For
>> End If
>> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 6
>> Exit For
>> End If
>> Next
>> Next
>> End If
>> Application.EnableEvents = True
>> End Sub
>> '-------------------
>> --
>> Salutations
>> JJ
>> "pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
>> 2082505f-36d3-4101-bba9-dd0221836...@r38g2000vbi.googlegroups.com...
>> Bonjour à tous
>> Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
>> colonne F et a chacune des répétition il y a une date sur la même
>> ligne dans la colonne E.
>> Par rapport a la date la plus récente et la date du d'aujourdhui ci il
>> y a plus de 3 jour je voudrait
>> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
>> jour.
>> Cela la même chose pour la cellule E2, F2, G2.
>> J'ai attacher un exemple:
>>http://cjoint.com/?butblYHgmP
>> Merci
> Bonsoir Jacky
> Je n'arrive pas a l'intégrer au fichier .
>http://cjoint.com/?bvb5VwX2TE
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re.
Voir ici le classeur
modifiéhttp://www.cijoint.fr/cjlink.php?file=cj200901/cijKjT1hFw.xls
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
%
> Re....
> 1-La couleur change selon la date(=Aujourdhui()), ce qui était jaune
> hier
> peu devenir rouge aujourd'hui
> 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> lis en colonne A sont erronées
> Outil/options==>onglet calcul==>Sélectionner Automatique
> --
> Salutations
> JJ
> "pellet15" a écrit dans le message de news:
>
> On 18 jan, 17:39, "Jacky" wrote:
>> Bonsoir
>> Ceci Peut-être
>> A placer dans le module de la feuille en question
>> '----------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
>> Application.EnableEvents = False
>> [b2:g2].Interior.ColorIndex = 0
>> For j = 2 To 7
>> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
>> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 3
>> Exit For
>> End If
>> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Then
>> Cells(2, j).Interior.ColorIndex = 6
>> Exit For
>> End If
>> Next
>> Next
>> End If
>> Application.EnableEvents = True
>> End Sub
>> '-------------------
>> --
>> Salutations
>> JJ
>> "pellet15" a écrit dans le message de news:
>>
>> Bonjour à tous
>> Dans la cellule B2 il y a un texte qui ce répète plusieur foix dans la
>> colonne F et a chacune des répétition il y a une date sur la même
>> ligne dans la colonne E.
>> Par rapport a la date la plus récente et la date du d'aujourdhui ci il
>> y a plus de 3 jour je voudrait
>> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
>> jour.
>> Cela la même chose pour la cellule E2, F2, G2.
>> J'ai attacher un exemple:
>>http://cjoint.com/?butblYHgmP
>> Merci
> Bonsoir Jacky
> Je n'arrive pas a l'intégrer au fichier .
>http://cjoint.com/?bvb5VwX2TE
> Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re...
Le fichier joint fonctionne comme ceci
Si une donnée présente en colonne F correspond a une donnée prése nte en
ligne 2 ET si l'écart entre la date du jour et la date la plus récent e est
égale ou plus grand que 4 la cellule correspondante en ligne 2 devient rouge
si l'écart et de 3, la cellule devient jaune.
Il me semble que c'est ce qui est demandé dans l'objet.
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
On 20 jan, 07:16, "Jacky" wrote:
> Re.
> Voir ici le classeur
> modifiéhttp://www.cijoint.fr/cjlink.php?file=cj200901/cijKjT1hFw.xl s
> --
> Salutations
> JJ
> "Jacky" a écrit dans le message de news:
> %
> > Re....
> > 1-La couleur change selon la date(=Aujourdhui()), ce qui était ja une
> > hier
> > peu devenir rouge aujourd'hui
> > 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> > lis en colonne A sont erronées
> > Outil/options==>onglet calcul==>Sélectionner Automatique
> > --
> > Salutations
> > JJ
> > "pellet15" a écrit dans le message de news:
> >
> > On 18 jan, 17:39, "Jacky" wrote:
> >> Bonsoir
> >> Ceci Peut-être
> >> A placer dans le module de la feuille en question
> >> '----------------
> >> Private Sub Worksheet_Change(ByVal Target As Range)
> >> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
> >> Application.EnableEvents = False
> >> [b2:g2].Interior.ColorIndex = 0
> >> For j = 2 To 7
> >> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
> >> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Th en
> >> Cells(2, j).Interior.ColorIndex = 3
> >> Exit For
> >> End If
> >> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Th en
> >> Cells(2, j).Interior.ColorIndex = 6
> >> Exit For
> >> End If
> >> Next
> >> Next
> >> End If
> >> Application.EnableEvents = True
> >> End Sub
> >> '-------------------
> >> --
> >> Salutations
> >> JJ
> >> "pellet15" a écrit dans le message de news :
> >>
> >> Bonjour à tous
> >> Dans la cellule B2 il y a un texte qui ce répète plusieur foix d ans la
> >> colonne F et a chacune des répétition il y a une date sur la m ême
> >> ligne dans la colonne E.
> >> Par rapport a la date la plus récente et la date du d'aujourdhui c i il
> >> y a plus de 3 jour je voudrait
> >> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
> >> jour.
> >> Cela la même chose pour la cellule E2, F2, G2.
> >> J'ai attacher un exemple:
> >>http://cjoint.com/?butblYHgmP
> >> Merci
> > Bonsoir Jacky
> > Je n'arrive pas a l'intégrer au fichier .
> >http://cjoint.com/?bvb5VwX2TE
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -
Bonsoir Jacky
Je ne comprend pas la procédure et j'ai changer les date et je
n'obtien pas ce que je voudrait.
Je m'explique:
Dans la colonne F , a prèsque tous les jour ouvrable j'ai une macros
qui ajoute un ou des texte avec la date en E (il y a 6 text
différent).
Je voudait a l'aide des couleur voir le prochain texte qui devrait
être exécuter.
ce qui veut dire que lorsque dans la liste d'entête (ligne 2) il y a
un text en jaune il me reste 2 jours, en rouge 1jour avant de faire
executer ces text.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re...
Le fichier joint fonctionne comme ceci
Si une donnée présente en colonne F correspond a une donnée prése nte en
ligne 2 ET si l'écart entre la date du jour et la date la plus récent e est
égale ou plus grand que 4 la cellule correspondante en ligne 2 devient rouge
si l'écart et de 3, la cellule devient jaune.
Il me semble que c'est ce qui est demandé dans l'objet.
--
Salutations
JJ
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
88eb2c2b-388b-41a8-a464-3c7869b4c...@k1g2000prb.googlegroups.com...
On 20 jan, 07:16, "Jacky" <Dup...@marcel.fr> wrote:
> Re.
> Voir ici le classeur
> modifiéhttp://www.cijoint.fr/cjlink.php?file=cj200901/cijKjT1hFw.xl s
> --
> Salutations
> JJ
> "Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
> %23GhjrcheJHA.2...@TK2MSFTNGP04.phx.gbl...
> > Re....
> > 1-La couleur change selon la date(=Aujourdhui()), ce qui était ja une
> > hier
> > peu devenir rouge aujourd'hui
> > 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> > lis en colonne A sont erronées
> > Outil/options==>onglet calcul==>Sélectionner Automatique
> > --
> > Salutations
> > JJ
> > "pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
> > a27c1667-16c6-4585-b996-b21082daf...@z28g2000prd.googlegroups.com...
> > On 18 jan, 17:39, "Jacky" <Dup...@marcel.fr> wrote:
> >> Bonsoir
> >> Ceci Peut-être
> >> A placer dans le module de la feuille en question
> >> '----------------
> >> Private Sub Worksheet_Change(ByVal Target As Range)
> >> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
> >> Application.EnableEvents = False
> >> [b2:g2].Interior.ColorIndex = 0
> >> For j = 2 To 7
> >> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
> >> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Th en
> >> Cells(2, j).Interior.ColorIndex = 3
> >> Exit For
> >> End If
> >> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Th en
> >> Cells(2, j).Interior.ColorIndex = 6
> >> Exit For
> >> End If
> >> Next
> >> Next
> >> End If
> >> Application.EnableEvents = True
> >> End Sub
> >> '-------------------
> >> --
> >> Salutations
> >> JJ
> >> "pellet15" <pelle...@videotron.ca> a écrit dans le message de news :
> >> 2082505f-36d3-4101-bba9-dd0221836...@r38g2000vbi.googlegroups.com...
> >> Bonjour à tous
> >> Dans la cellule B2 il y a un texte qui ce répète plusieur foix d ans la
> >> colonne F et a chacune des répétition il y a une date sur la m ême
> >> ligne dans la colonne E.
> >> Par rapport a la date la plus récente et la date du d'aujourdhui c i il
> >> y a plus de 3 jour je voudrait
> >> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
> >> jour.
> >> Cela la même chose pour la cellule E2, F2, G2.
> >> J'ai attacher un exemple:
> >>http://cjoint.com/?butblYHgmP
> >> Merci
> > Bonsoir Jacky
> > Je n'arrive pas a l'intégrer au fichier .
> >http://cjoint.com/?bvb5VwX2TE
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -
Bonsoir Jacky
Je ne comprend pas la procédure et j'ai changer les date et je
n'obtien pas ce que je voudrait.
Je m'explique:
Dans la colonne F , a prèsque tous les jour ouvrable j'ai une macros
qui ajoute un ou des texte avec la date en E (il y a 6 text
différent).
Je voudait a l'aide des couleur voir le prochain texte qui devrait
être exécuter.
ce qui veut dire que lorsque dans la liste d'entête (ligne 2) il y a
un text en jaune il me reste 2 jours, en rouge 1jour avant de faire
executer ces text.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re...
Le fichier joint fonctionne comme ceci
Si une donnée présente en colonne F correspond a une donnée prése nte en
ligne 2 ET si l'écart entre la date du jour et la date la plus récent e est
égale ou plus grand que 4 la cellule correspondante en ligne 2 devient rouge
si l'écart et de 3, la cellule devient jaune.
Il me semble que c'est ce qui est demandé dans l'objet.
--
Salutations
JJ
"pellet15" a écrit dans le message de news:
On 20 jan, 07:16, "Jacky" wrote:
> Re.
> Voir ici le classeur
> modifiéhttp://www.cijoint.fr/cjlink.php?file=cj200901/cijKjT1hFw.xl s
> --
> Salutations
> JJ
> "Jacky" a écrit dans le message de news:
> %
> > Re....
> > 1-La couleur change selon la date(=Aujourdhui()), ce qui était ja une
> > hier
> > peu devenir rouge aujourd'hui
> > 2- Le calcul est "sur ordre" dans ton classeur, donc les valeurs que tu
> > lis en colonne A sont erronées
> > Outil/options==>onglet calcul==>Sélectionner Automatique
> > --
> > Salutations
> > JJ
> > "pellet15" a écrit dans le message de news:
> >
> > On 18 jan, 17:39, "Jacky" wrote:
> >> Bonsoir
> >> Ceci Peut-être
> >> A placer dans le module de la feuille en question
> >> '----------------
> >> Private Sub Worksheet_Change(ByVal Target As Range)
> >> If Not Intersect(Target, Columns("B:G")) Is Nothing Then
> >> Application.EnableEvents = False
> >> [b2:g2].Interior.ColorIndex = 0
> >> For j = 2 To 7
> >> For i = Cells(Rows.Count, "e").End(3).Row To 3 Step -1
> >> If Now - Cells(i, 5).Value >= 4 And Cells(i, 6) = Cells(2, j) Th en
> >> Cells(2, j).Interior.ColorIndex = 3
> >> Exit For
> >> End If
> >> If Now - Cells(i, 5).Value >= 3 And Cells(i, 6) = Cells(2, j) Th en
> >> Cells(2, j).Interior.ColorIndex = 6
> >> Exit For
> >> End If
> >> Next
> >> Next
> >> End If
> >> Application.EnableEvents = True
> >> End Sub
> >> '-------------------
> >> --
> >> Salutations
> >> JJ
> >> "pellet15" a écrit dans le message de news :
> >>
> >> Bonjour à tous
> >> Dans la cellule B2 il y a un texte qui ce répète plusieur foix d ans la
> >> colonne F et a chacune des répétition il y a une date sur la m ême
> >> ligne dans la colonne E.
> >> Par rapport a la date la plus récente et la date du d'aujourdhui c i il
> >> y a plus de 3 jour je voudrait
> >> que le font du texte affiche en jaune et en rouge ci il y a plus de 4
> >> jour.
> >> Cela la même chose pour la cellule E2, F2, G2.
> >> J'ai attacher un exemple:
> >>http://cjoint.com/?butblYHgmP
> >> Merci
> > Bonsoir Jacky
> > Je n'arrive pas a l'intégrer au fichier .
> >http://cjoint.com/?bvb5VwX2TE
> > Merci- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -
Bonsoir Jacky
Je ne comprend pas la procédure et j'ai changer les date et je
n'obtien pas ce que je voudrait.
Je m'explique:
Dans la colonne F , a prèsque tous les jour ouvrable j'ai une macros
qui ajoute un ou des texte avec la date en E (il y a 6 text
différent).
Je voudait a l'aide des couleur voir le prochain texte qui devrait
être exécuter.
ce qui veut dire que lorsque dans la liste d'entête (ligne 2) il y a
un text en jaune il me reste 2 jours, en rouge 1jour avant de faire
executer ces text.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -