Appliquer macro a plusieurs cellules

[jo1177]

Bonjour le forum ! =)
Après avoir crée une macro me permettant d'avoir plus de 3 MeFC (problème majeur sur Excel 2003), je n'arrive pas a appliquer cette macro a toute une colonne, ou à une plage bien défini. Je n'arrive pas a résoudre ce problème, et je m'en reporte a vous ! Ci-joint, mon fichier excel avec d'amples explications et la macro qui va avec =)
Merci ! =)
Jonathan

 

[Robert]

Re : Appliquer macro a plusieurs cellules

Bonjour Jo bonjour le forum,

peut-être comme ça :

Private Sub Worksheet_Calculate()
[COLOR=red]Dim cel As Range[/COLOR]
[COLOR=red]For Each cel In Range("F2:F6")[/COLOR]
   If cel.Value < 0.4 Then
      cel.Interior.ColorIndex = 3
      cel.Interior.Pattern = xlSolid
   End If
    If [(MAX($C3:$E3)>$A2)*($F2<0.4)] Then
     cel.Interior.ColorIndex = 3
     cel.Interior.Pattern = xlUp
     cel.Interior.PatternColorIndex = xlAutomatic
   End If
   If cel.Value > 0.4 And cel.Value < 0.8 Then
      cel.Interior.ColorIndex = 8
      cel.Interior.Pattern = xlSolid
      cel.Interior.PatternColorIndex = xlAutomatic
   End If
   If [=(MAX($C3:$E3)>$A2)*($F2>0.4)] Then
      cel.Interior.ColorIndex = 8
      cel.Interior.Pattern = xlUp
      cel.Interior.PatternColorIndex = xlAutomatic
   End If
   If cel.Value > 0.8 Then
      cel.Interior.ColorIndex = 4
      cel.Interior.Pattern = xlSolid
   End If
   If [(MAX($C3:$E3)>$A2)*($F2>0.8)] Then
     cel.Interior.ColorIndex = 4
     cel.Interior.Pattern = xlUp
     cel.Interior.PatternColorIndex = xlAutomatic
   End If
[COLOR=red]Next cel[/COLOR]
End Sub