Simplification code

[Florian]

Bonjour à tous,

J'ai écrit le code ci dessous qui marche mais qui est trés long car je le duplique pour chaque cellule.

Pourriez vous m'aider à le simplifier. L'ideal serait de récupérer le nom d'une plage définie dans excel.

Un grand merci par avance

If Range('b138') > Range('C138') Then
Range('C138').Interior.ColorIndex = 10
Else: Range('C138').Interior.ColorIndex = 45
End If
If Range('b139') > Range('C139') Then
Range('C139').Interior.ColorIndex = 10
Else: Range('C139').Interior.ColorIndex = 45
End If

etc... jusqu'à B150, c long

 

[porcinet82]

salut Florian,

Peut etre a dapter mais, au pifometre, je dirais quelque chose du genre

for i= 138 to 150
  if cells(i,2).value>cells(i,3).value then
     cells(i,3).Interior.ColorIndex = 10
  else
     cells(i,3).Interior.ColorIndex = 45
  end if
next i

@+