adapter un code

[young 25]

Bonjour à tous,

le code si joint me permet de mettre en couleur les valeurs d'une colonne en fonction d'une case de la même colonne.
je l'ai adapte sur 3 colonnes or mon fichier d'origine comporte + de 200 colonnes. et l'adapter aux 200 est super long.
y a t-il un moyen de faire plus simple avec le code.

merci d'avance

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage1 As Range, Plage2 As Range, plage3 As Range
Dim Inter1 As Range, Inter2 As Range, inter3 As Range

Dim i As Long

Set Plage1 = Feuil1.Range("D528")
Set Plage2 = Feuil1.Range("E5:E28")
Set plage3 = Feuil1.Range("F5:F28")

Set Inter1 = Application.Intersect(ActiveCell, Plage1)
Set Inter2 = Application.Intersect(ActiveCell, Plage2)
Set inter3 = Application.Intersect(ActiveCell, plage3)

If Not Inter1 Is Nothing Then
For i = 5 To 28
If Feuil1.Range("D" & i) > Feuil1.Range("D2") Then
Feuil1.Range("D" & i).Interior.ColorIndex = 36
Else
Feuil1.Range("D" & i).Interior.ColorIndex = 0
End If
Next i
End If

If Not Inter2 Is Nothing Then
For i = 5 To 28
If Feuil1.Range("E" & i) > Feuil1.Range("E2") Then
Feuil1.Range("E" & i).Interior.ColorIndex = 36
Else
Feuil1.Range("E" & i).Interior.ColorIndex = 0
End If
Next i
End If
If Not inter3 Is Nothing Then
For i = 5 To 28
If Feuil1.Range("F" & i) > Feuil1.Range("F2") Then
Feuil1.Range("F" & i).Interior.ColorIndex = 36
Else
Feuil1.Range("F" & i).Interior.ColorIndex = 0

End If
Next i
End If
End Sub

 

[tototiti2008]

Re : adapter un code

Bonjour young,

Pourquoi faire en macro ce que tu peux faire avec une mise en forme conditionnelle ?

 

[young 25]

Re : adapter un code

Bonjour young,

Pourquoi faire en macro ce que tu peux faire avec une mise en forme conditionnelle ?

du fais qu'avec excel 2003 on est limité à 3 mfc, je n'ai pas le choix en sachant que les 3 sont déja utilisées

A+

 

[tototiti2008]

Re : adapter un code

Re,

mais sur plus de 200 colonnes, à chaque fois que tu changera de sélection il va redéfinir la couleur de toutes les cellules... ça ne risque pas d'être un peu long ?
Ou alors il faudrait lui demander de le faire quand on change une valeur d'une cellule, non ?

 

[young 25]

Re : adapter un code

je sais et c'est pour cela que j'ai besoin d'aide

 

[kjin]

Re : adapter un code

Bonjour, Salut tototiti

du fais qu'avec excel 2003 on est limité à 3 mfc, je n'ai pas le choix en sachant que les 3 sont déja utilisées

3 conditions ne veut pas dire 3 MFC et là moi je n'en vois qu'une !
A+
kjin

 

[kjin]

Re : adapter un code

Re,

Sélectionne toute la plage à partir de D5
La MFC --> la formule est --> =ET(D$2<>"";D5<>"";D5>D$2) et tu appliques le format
A+
kjin