bonjour,
je cherche a modifier le fond d'une cellule en fond du resultat d'une autre cellule a l'aide d'une macro en automatisant l'operation pour toutes les lignes.
 
Par exemple Si G4="CA"  le fond de J4 doit etre bleu. sauf que j'y parvient pas.  
 
voici ma macro
 
Sub essai()
   Dim Nol As Integer
 
   For Nol = 4 To 20
      If Range("G" & Nol) = "CA" Then
       Range("J" & Nol).With mycell.Interior
                       .ColorIndex = 5
                       .Pattern = xlSolid
End With
End If
End Sub

Bonjour
 
je pense qu'il faudrait rajouter après end if la ligne next Nol

c'est vrai ça manquait mais il reste une erreur sur la definition de la couleur mais j'arrive pas a la corriger ni meme a savoir ou elle est

à la place de  
 
Range("J" & Nol).With mycell.Interior  
 
j'aurai écrit :
 
    Range("J" & Nol), Cells("J"&Nol)).Select
    With Selection.Interior
    .ColorIndex = 5
.....

je viens d'essayer mais il me declare une erreur sur le Range (utilisation incorrecte de la propiété)

c'est bon j'ai reussi merci