Macro couleur celulle

Bonjour j aimerai réalisé une macro qui vienne colorier ma cellules lorsque une valeur n 'est pas conforme

dans mon fichier test lorsque la valeur n'est pas (ippat5656).

FEUIL SCAN

merci pour votre aide

Hello,

une proposition :

Der_Ligne = Range("D5000").End(xlup).Row

for i = 2 to Der_Ligne

    if cells(i,4).value <> "IPAT5656" then cells(i,4).interior.colorindex = 3

next i

R@G

super merci ca fonctionne et si je voulais faire l inverse

N'oublie pas de passer le statut en "RESOLU"

Comme ceci :

Der_Ligne = Range("D5000").End(xlup).Row

for i = 2 to Der_Ligne

    if cells(i,4).value = "IPAT5656" then cells(i,4).interior.colorindex = 3

next i

super merci ca fonctionne

'On cherche la dernière ligne non vide de la colonne qui nous intéresse (dans ton cas c'est la D) 
'Pour être plus précis, on se positionne sur la cellule D5000 et on remonte jusqu'à la première cellule non 'vide. 
'Tu auras compris que si ton tableau de données est supérieur à 5000 lignes ça ne fonctionnera pas pour les 'lignes 5001 et +
'il te faudra donc adapter cette partie et mettre D10000 par exemple
Der_Ligne = Range("D5000").End(xlup).Row

'Ici on va boucler, de la ligne i=2 c'est à dire à partir de la 2eme ligne jusqu'à la dernière ligne trouvée 'juste au dessus
for i = 2 to Der_Ligne
'on teste si le contenu de notre ligne, colonne 4 (colonne D=4) vaut "IPAT5656", si oui, on colorie le fonds 'de la cellule en rouge
if cells(i,4).value = "IPAT5656" then cells(i,4).interior.colorindex = 3
'ligne suivante
next i

R@g

très bonne explication merci bon week end