Colorier une celulle suite à une condition

r4944 Messages postés 136 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre - 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

3 réponses

Réponse 1 / 3
Frenchie83 Messages postés 2254 Statut Membre 339
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
```
1
1. r4944 Messages postés 136 Statut Membre
  
  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
  
  0
  1. Frenchie83 Messages postés 2254 Statut Membre 339 > r4944 Messages postés 136 Statut Membre
    
    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 ?
    
    0
2. r4944 Messages postés 136 Statut Membre
  
  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
  
  0
Réponse 2 / 3
Frenchie83 Messages postés 2254 Statut Membre 339
Bonjour
Ceci
```
If Cells(o, "AN") = "DNM/NRP" Then Cells(o, "AH").Interior.Color = vbRed
```
Cdlt
0
1. r4944 Messages postés 136 Statut Membre
  
  Salut merci pour votre réponse le Problème que j'ai une formule dans la case AN :/
  
  0
Réponse 3 / 3
Frenchie83 Messages postés 2254 Statut Membre 339

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é?
0
1. r4944 Messages postés 136 Statut Membre
  
  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
  
  0

Colorier une celulle suite à une condition

3 réponses

Discussions similaires

Newsletters