Colorier une celulle suite à une condition

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention - 4 nov. 2015 à 19:47

Bonjour ,

je voulais colorier cette cellule (AH) si AN= 'DNM/NRP'

j'ai commencé avec ce code mais j'ai eu une erreur : Object 4024

Dim o As Integer
For o = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    If AN.Value = "DNM/NRP" Then AH.Interior.Color = vbRed
Next o
End Sub

Afficher la suite

A voir également:

Colorier une celulle suite à une condition
Excel cellule couleur si condition texte - Guide
Excel condition ou - Guide
Excel reporter des données sur une autre feuille avec conditions ✓ - Forum Excel
Excel colorer une cellule sous condition d'une autre cellule - Forum Excel
Nbval avec condition ✓ - Forum Excel

3 réponses

Réponse 1 / 3

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Mais il faut l'intégrer dans votre boucle

For o = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    If AN.Value = "DNM/NRP" Then AH.Interior.Color = vbRed
Next o

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

oui je l'ai intégré biensur mais ca donne une erreur :

Dim o As Integer

For o = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

If Cells(o, "AN") = "DNM/NRP" Then Cells(o, "AH").Interior.Color = vbRed
    
next o 
End Sub

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338 > r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

A quel niveau se situe l'erreur?
Quelle est la valeur de la dernière ligne trouvée avec ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row ?

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

c'est bon je l'ai réglé j'ai fais comme ca
merci pour votre aide :)

For o = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

  If (ActiveSheet.Cells(o, 40).Text) = "DNM/NRP" Then ActiveSheet.Cells(o, 34).Interior.Color = vbRed
    
    
    
Next o

Réponse 2 / 3

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Bonjour
Ceci

If Cells(o, "AN") = "DNM/NRP" Then Cells(o, "AH").Interior.Color = vbRed

Cdlt

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

Salut merci pour votre réponse le Problème que j'ai une formule dans la case AN :/

Réponse 3 / 3

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

Bonjour
"le Problème que j'ai une formule dans la case AN" Où est le problème?
Si le résultat de la formule en AN ="DNM/NRP" alors la cellule en AH se colorie en rouge, c'est bien ce que aviez demandé?

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

oui c'est exactement que j'ai demandé ,j'ai essayé aussi votre proposition mais eu une erreur d'exécution :13


If Cells(o, "AN") = "DNM/NRP" Then

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

comment intégrer une fonction SI dans un champ calculé

Excel copier une cellule sous condition vers une autre

Reporter une cellule dans une autre feuille avec condition

Reporter des données d'une feuille dans une autre feuille

Votre réponse

Discussions similaires