Impossible de definir la proprieté color index de la classe

Bonjour

je me trouve devant un petit soucis dans la facon d'ecrire une instruction ; voila mon petit bout de programme :

Sheets("Feuil1").Unprotect "zaza"
    For Each xcell In Sheets("Feuil1").Range("B21:B100")
        If xcell = Sheets("Feuil2").Range("J19") Then Range(xcell.Offset(0, 1), xcell).ClearContents
        xcell.Interior.ColorIndex = xlNone
        Next xcell
    Sheets("Feuil1").Protect "zaza"

mon soucis est sur la ligne

xcell.Interior.ColorIndex = xlNone

qui me renvoit l'erreur " impossible de definir la propriété color de la classe interior "

est ce que d'apres vous cette instruction est correctement ecrite ? celle ci ayant pour but d'effacer la couleur de la cellule trouvée en meme temps que d'effacer son contenu, je ne vois pas comment faire autrement ?

Merci pour vos conseils

Bonjour

Tu n'effaces pas seulement la cellule trouvée mais celle à côté aussi

et tu enlèves la couleur de fond de toutes les cellules de B21 à B100

Si tu veux juste effacer la cellule et ôter sa couleur

Sub test()
  Sheets("Feuil1").Unprotect "zaza"
  For Each xcell In Sheets("Feuil1").Range("B21:B100")
    If xcell = Sheets("Feuil2").Range("J19") Then
      xcell.ClearContents
      xcell.Interior.ColorIndex = xlNone
    End If
  Next xcell
  Sheets("Feuil1").Protect "zaza"
End Sub

Merci pour ta réponse banzai , mais ca ne marche toujours , alors j'ai pensé à ceci

le fait d'ecrire :

xcell.ClearContents

puis d'ecrire :

xcell.Interior.ColorIndex = xlNone

puisque les instructions sont executées l'une apres l'autre , le fait d'effacer en premier lieu la cellule cible n'induirait il pas

le message d'erreur puisque la seconde instruction ne pourrait etre executée puisque la cellule cible a été effacée et donc introuvable?

qu'en penses tu merci ?

Bonjour

On efface le contenu, on ne détruit pas la cellule

Je viens de tester sur XL 2003 et pas de soucis

Utilises l'enregistreur pour te faire une macro qui enlèves la couleur d'une cellule

Postes ton fichier en défaut

Merci pour cette solution Banzai !