M
Mathieu
Guest
Bonjour tout le monde,
j'ai dans une macro les lignes suivantes:
Dim macol As Byte, x As Byte
Feuil3.Range('C4:U4').Interior.ColorIndex = xlNone
macol = Feuil3.Range('C4').End(xlToRight).Column
Feuil3.Cells(4, macol).Interior.ColorIndex = 3
Feuil3.Cells(4, macol - 1).Interior.ColorIndex = 45
For x = 3 To macol - 2
Feuil3.Cells(4, x).Interior.ColorIndex = 4
Next
je ne métrise pas le VBA et j'aurai besoin qu'elle soit modifiée pour quelle fonctionne non pas en ligne mais en colonne.
celle ci met en rouge la derniere cellule contenant une valeur dans C4 à U4, met en orange l'avant derniere cellule dans C4 à U4 et toutes les autres cellules de C4 à U4 en vert.
exemple:
C4 = 2 - D4 = 6 - E4 = 10 - F4 = 20 :
F4 sera en fond rouge
E4 sera en fond orange
et C4 à D4 seront en fond vert.
G4 à U4 reste à fond blanc.
Que faut il modifier pour que celle ci fonctionne non pas en ligne mais fasse la meme chose en colonne. J'ai bien essayé des choses mais ça ne fonctionne pas.
Merci.
Mathieu.
j'ai dans une macro les lignes suivantes:
Dim macol As Byte, x As Byte
Feuil3.Range('C4:U4').Interior.ColorIndex = xlNone
macol = Feuil3.Range('C4').End(xlToRight).Column
Feuil3.Cells(4, macol).Interior.ColorIndex = 3
Feuil3.Cells(4, macol - 1).Interior.ColorIndex = 45
For x = 3 To macol - 2
Feuil3.Cells(4, x).Interior.ColorIndex = 4
Next
je ne métrise pas le VBA et j'aurai besoin qu'elle soit modifiée pour quelle fonctionne non pas en ligne mais en colonne.
celle ci met en rouge la derniere cellule contenant une valeur dans C4 à U4, met en orange l'avant derniere cellule dans C4 à U4 et toutes les autres cellules de C4 à U4 en vert.
exemple:
C4 = 2 - D4 = 6 - E4 = 10 - F4 = 20 :
F4 sera en fond rouge
E4 sera en fond orange
et C4 à D4 seront en fond vert.
G4 à U4 reste à fond blanc.
Que faut il modifier pour que celle ci fonctionne non pas en ligne mais fasse la meme chose en colonne. J'ai bien essayé des choses mais ça ne fonctionne pas.
Merci.
Mathieu.