[résolu] boucle sur mise en forme conditionnel

[Profane]

bonjour a tous
j aimerai faire une boucle sur une mise en forme conditionnel de facon macro
au lieu de repeter les lignes suivantes du range E6:J6 à E17:J17 à la mano
une idée ?
Ps pas trouvé comment mettre le code de facon plus visible
@+

Sub Macro1()
'1ere ligne
Range("E6:J6").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=$D$6"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'2eme ligne
Range("E7:J7").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=$D$7"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'3eme ligne
Range("E8:J8").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=$D$8"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

 

[Paritec]

Re : boucle sur mise en forme conditionnel

Bonjour Profane le forum
après plus de 130 post tu ne sais toujours pas utiliser les balises de code???
de plus si tu nous passes ton fichier et les explications de ce que tu veux dedans on va te le faire
a+
papou

 

[pierrejean]

Re : boucle sur mise en forme conditionnel

Bonjour Profane

a essayer:

Sub test()
For n = 6 To 8
Range("E" & n & ":J" & n).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=$D$" & n
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Next n
End Sub

Edit: Salut Papou

 

[Profane]

Re : boucle sur mise en forme conditionnel

Bonjour Papou et Pierrejean
en fait je joins toujours des fichiers exemple donc jamais vu ou presque
merci Pierrejean pour ton bout de code, mais on ne traite ainsi qu'une seule ligne
et le code doit traiter de la ligne 6 à 17...j avoue que je bloque et je suis sur que cela doit être simple, comme d hab

 

[Profane]

Re : boucle sur mise en forme conditionnel

euh désolé pierrejean
j ai lu un peu vite
j ai juste a changer
"For n = 6 To 8"
Range("E" & n & ":J" & n).Select
par
"For n = 6 To 17"
Range("E" & n & ":J" & n).Select
a force je ne vois plus rien lol
bonne journee

 

[pierrejean]

Re : [résolu] boucle sur mise en forme conditionnel

Re
Je pense que cela en traite 3 comme ton code
Pour aller en 17:

For n = 6 To 17

 

[Profane]

Re : [résolu] boucle sur mise en forme conditionnel

merci pierrejean, j avais trouvé la solution, mais a force d etre sur le même code on ne voit plus l'évidence
Bonne journée