Macro remplissage cellule en rouge sous condition
Hello,
petit probleme dans mon projet : j ai des series de donnees dans plusieurs colonnes de ma feuille excel que j ai defini sous plusieurs type RANGE. deux types range m'interresse ici TOTL1 (situe en P2:P350) et TOT ( situe en R2:R350), je souhaite creer une macro qui permet de remplir la ligne des cellules correspondantes lorsque la valeur absolue des donnees contenues en range TOTL1 sont superieur ou egal a 75% des valeurs contenues en TOT. VOICI MON CODE :
Dim TOTL1 As Range
Dim TOT As Range
Dim i As Integer
Set TOTL1 = Worksheets("Sheet1").Range("P2:P350")
Set TOT = Worksheets("Sheet1").Range("R2:R350")
For i = 1 To 350
If Abs(TOTL1.Cells(i).Value) >= (75 / 100) * TOT.Cells(i).Value then
EntireRow.Interior.ColorIndex = 3
End if
Next i
Mais bien sur ca marche pas , pouvez vous m aider svp?
merci
End sub
Le problem est que ce code me met toute
Re,
TOTL1.Cells(i, 1).EntireRow.Interior.ColorIndex = 3EntireRow ne réfère à rien sinon.
Bonne journée.
Je fatigue :
If Abs(TOTL1.Cells(i, 1).Value) >= (75 / 100) * TOT.Cells(i, 1).Value theni peut être suffisant, mais l'indication de colonne est quand même plus sûre.
merci ca marche merci pour cette reponse Claire et detaille je comprend ou etait mon erreur en plus de voir la macro marcher c est cool