Colorier une celulle suite à une condition

Fermé

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 3 nov. 2015 à 03:35
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 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

A voir également:

Colorier une celulle suite à une condition
Excel cellule couleur si condition texte - Guide
Recherchev avec condition si ✓ - Forum Excel
Excel colorer une cellule sous condition d'une autre cellule - Forum Excel
Condition et excel - Guide
Excel soustraction avec condition ✓ - Forum Excel

3 réponses

Réponse 1 / 3

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
4 nov. 2015 à 07:35

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 vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
Modifié par r4944 le 4/11/2015 à 19:33

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 lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337 > r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
4 nov. 2015 à 19:47

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 vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
4 nov. 2015 à 19:44

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 lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
Modifié par Frenchie83 le 3/11/2015 à 04:57

Bonjour
Ceci

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

Cdlt

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
3 nov. 2015 à 21:45

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 lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
4 nov. 2015 à 02:09

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 vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
Modifié par r4944 le 4/11/2015 à 04:46

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 ?

Bloquer des cellules sous conditions

Copie automatique tableau Excel sans macro

Excel copier une cellule sous condition vers une autre

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

Discussions similaires

Newsletters