Bonjour à tous,
Je souhaite modifié la macro ci-dessous pour quels ne s'execute que si le
nom du champ est différent de "OG".
Cela fonctionne.
Cela se corse car lorsque je pose la formule par macro
"=ET(D4>=$C4;D4<=$K4)", elle ne prend pas le n° ligne pour laquelle la
condition est vrai.
1) Peut on inserer dans la formule la variable "lig" à la place du N° de
ligne ?
pour avoir si condition fausse ligne 6 => "=ET(D6>=$C6;D6<=$K6)",
Merci d'anvance
Michel
'pose le motif des jours travaillé
lig = 1
For lig = 5 To lignevid
If Left(Cells(lig, 1), 2) <> "OG" Then
Range("D" & lig & ":J" & lig).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(D4>=$C4;D4<=$K4)"
Selection.FormatConditions(1).Interior.ColorIndex = 50
'pose le motif des jours feriés
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=EQUIV(D4;fériés;0)"
Selection.FormatConditions(2).Interior.ColorIndex = 45
End If
Next
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
La formule comme ceci : Remplace : "=ET(D4>=$C4;D4<=$K4)" Par "=ET(D" & Lig & ">=$C" & Lig & ";D" & Lig & "<=$K" & Lig & ")"
"elli6258" a écrit dans le message de groupe de discussion :
Bonjour à tous, Je souhaite modifié la macro ci-dessous pour quels ne s'execute que si le nom du champ est différent de "OG". Cela fonctionne. Cela se corse car lorsque je pose la formule par macro "=ET(D4>=$C4;D4<=$K4)", elle ne prend pas le n° ligne pour laquelle la condition est vrai.
1) Peut on inserer dans la formule la variable "lig" à la place du N° de ligne ? pour avoir si condition fausse ligne 6 => "=ET(D6>=$C6;D6<=$K6)", Merci d'anvance Michel
'pose le motif des jours travaillé lig = 1 For lig = 5 To lignevid If Left(Cells(lig, 1), 2) <> "OG" Then Range("D" & lig & ":J" & lig).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ET(D4>=$C4;D4<=$K4)" Selection.FormatConditions(1).Interior.ColorIndex = 50
'pose le motif des jours feriés Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=EQUIV(D4;fériés;0)" Selection.FormatConditions(2).Interior.ColorIndex = 45 End If Next
La formule comme ceci :
Remplace :
"=ET(D4>=$C4;D4<=$K4)"
Par
"=ET(D" & Lig & ">=$C" & Lig & ";D" & Lig & "<=$K" & Lig & ")"
"elli6258" <minier.michel@neuf.fr> a écrit dans le message de groupe de discussion :
OE8iwqEsJHA.3928@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Je souhaite modifié la macro ci-dessous pour quels ne s'execute que si le
nom du champ est différent de "OG".
Cela fonctionne.
Cela se corse car lorsque je pose la formule par macro
"=ET(D4>=$C4;D4<=$K4)", elle ne prend pas le n° ligne pour laquelle la
condition est vrai.
1) Peut on inserer dans la formule la variable "lig" à la place du N° de
ligne ?
pour avoir si condition fausse ligne 6 => "=ET(D6>=$C6;D6<=$K6)",
Merci d'anvance
Michel
'pose le motif des jours travaillé
lig = 1
For lig = 5 To lignevid
If Left(Cells(lig, 1), 2) <> "OG" Then
Range("D" & lig & ":J" & lig).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(D4>=$C4;D4<=$K4)"
Selection.FormatConditions(1).Interior.ColorIndex = 50
'pose le motif des jours feriés
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=EQUIV(D4;fériés;0)"
Selection.FormatConditions(2).Interior.ColorIndex = 45
End If
Next
La formule comme ceci : Remplace : "=ET(D4>=$C4;D4<=$K4)" Par "=ET(D" & Lig & ">=$C" & Lig & ";D" & Lig & "<=$K" & Lig & ")"
"elli6258" a écrit dans le message de groupe de discussion :
Bonjour à tous, Je souhaite modifié la macro ci-dessous pour quels ne s'execute que si le nom du champ est différent de "OG". Cela fonctionne. Cela se corse car lorsque je pose la formule par macro "=ET(D4>=$C4;D4<=$K4)", elle ne prend pas le n° ligne pour laquelle la condition est vrai.
1) Peut on inserer dans la formule la variable "lig" à la place du N° de ligne ? pour avoir si condition fausse ligne 6 => "=ET(D6>=$C6;D6<=$K6)", Merci d'anvance Michel
'pose le motif des jours travaillé lig = 1 For lig = 5 To lignevid If Left(Cells(lig, 1), 2) <> "OG" Then Range("D" & lig & ":J" & lig).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ET(D4>=$C4;D4<=$K4)" Selection.FormatConditions(1).Interior.ColorIndex = 50
'pose le motif des jours feriés Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=EQUIV(D4;fériés;0)" Selection.FormatConditions(2).Interior.ColorIndex = 45 End If Next
elli6258
Merci pour le coup de pouce. Bon Wk Michel
"MichDenis" a écrit dans le message de news:
La formule comme ceci : Remplace : "=ET(D4>=$C4;D4<=$K4)" Par "=ET(D" & Lig & ">=$C" & Lig & ";D" & Lig & "<=$K" & Lig & ")"
"elli6258" a écrit dans le message de groupe de discussion :
Bonjour à tous, Je souhaite modifié la macro ci-dessous pour quels ne s'execute que si le nom du champ est différent de "OG". Cela fonctionne. Cela se corse car lorsque je pose la formule par macro "=ET(D4>=$C4;D4<=$K4)", elle ne prend pas le n° ligne pour laquelle la condition est vrai.
1) Peut on inserer dans la formule la variable "lig" à la place du N° de ligne ? pour avoir si condition fausse ligne 6 => "=ET(D6>=$C6;D6<=$K6)", Merci d'anvance Michel
'pose le motif des jours travaillé lig = 1 For lig = 5 To lignevid If Left(Cells(lig, 1), 2) <> "OG" Then Range("D" & lig & ":J" & lig).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ET(D4>=$C4;D4<=$K4)" Selection.FormatConditions(1).Interior.ColorIndex = 50
'pose le motif des jours feriés Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=EQUIV(D4;fériés;0)" Selection.FormatConditions(2).Interior.ColorIndex = 45 End If Next
Merci pour le coup de pouce.
Bon Wk
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eGZgCmFsJHA.5356@TK2MSFTNGP03.phx.gbl...
La formule comme ceci :
Remplace :
"=ET(D4>=$C4;D4<=$K4)"
Par
"=ET(D" & Lig & ">=$C" & Lig & ";D" & Lig & "<=$K" & Lig & ")"
"elli6258" <minier.michel@neuf.fr> a écrit dans le message de groupe de
discussion :
OE8iwqEsJHA.3928@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Je souhaite modifié la macro ci-dessous pour quels ne s'execute que si le
nom du champ est différent de "OG".
Cela fonctionne.
Cela se corse car lorsque je pose la formule par macro
"=ET(D4>=$C4;D4<=$K4)", elle ne prend pas le n° ligne pour laquelle la
condition est vrai.
1) Peut on inserer dans la formule la variable "lig" à la place du N° de
ligne ?
pour avoir si condition fausse ligne 6 => "=ET(D6>=$C6;D6<=$K6)",
Merci d'anvance
Michel
'pose le motif des jours travaillé
lig = 1
For lig = 5 To lignevid
If Left(Cells(lig, 1), 2) <> "OG" Then
Range("D" & lig & ":J" & lig).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(D4>=$C4;D4<=$K4)"
Selection.FormatConditions(1).Interior.ColorIndex = 50
'pose le motif des jours feriés
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=EQUIV(D4;fériés;0)"
Selection.FormatConditions(2).Interior.ColorIndex = 45
End If
Next
La formule comme ceci : Remplace : "=ET(D4>=$C4;D4<=$K4)" Par "=ET(D" & Lig & ">=$C" & Lig & ";D" & Lig & "<=$K" & Lig & ")"
"elli6258" a écrit dans le message de groupe de discussion :
Bonjour à tous, Je souhaite modifié la macro ci-dessous pour quels ne s'execute que si le nom du champ est différent de "OG". Cela fonctionne. Cela se corse car lorsque je pose la formule par macro "=ET(D4>=$C4;D4<=$K4)", elle ne prend pas le n° ligne pour laquelle la condition est vrai.
1) Peut on inserer dans la formule la variable "lig" à la place du N° de ligne ? pour avoir si condition fausse ligne 6 => "=ET(D6>=$C6;D6<=$K6)", Merci d'anvance Michel
'pose le motif des jours travaillé lig = 1 For lig = 5 To lignevid If Left(Cells(lig, 1), 2) <> "OG" Then Range("D" & lig & ":J" & lig).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ET(D4>=$C4;D4<=$K4)" Selection.FormatConditions(1).Interior.ColorIndex = 50
'pose le motif des jours feriés Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=EQUIV(D4;fériés;0)" Selection.FormatConditions(2).Interior.ColorIndex = 45 End If Next
