Faire une boucle pour vérifier une évolution

Bonjour !

Je suis de retour avec un petit problème sur VBA, et je suis à la recherche d'une solution géniale !

Je cherche à vérifier que les investissemnts (colonne D) ont bien augmenté de 9%.

Je veux donc dire : quand une cellule est inferieure à la precedente * 1.09, je veux qu'elle se colore en rouge.

Je vous mets le fichier excel en pièce jointe !

Mon code est dans le module analyze.

Merci beaucoup d'avance !

Bérengère

Bonjour,

sinon avec une petite MFC ça fonctionne aussi.

Cordialement.

Qu'est ce que c'est qu'une MCF ?

J'aimerais quand meme vraiment essayer avec une boucle...

Re,

Il s'agit d'une mise en forme conditionnelle si toutefois la boucle est indispensable pour toi voici la tienne corrigée.

Sub evolution()
Dim i As Long
For i = 2 To 65000

If Worksheets("Base de données").Cells(i + 1, "D").Value < Worksheets("Base de données").Cells(i, "D").Value * 1.09 Then
    Worksheets("Base de données").Cells(i + 1, "D").Interior.ColorIndex = 3
End If

Next

End Sub

Cordialement.

C'est impeccable !!!

Merci beaucoup