Bonjour,
le .select est de trop!
puisque tu ne déclare pas pt1 ,autant faire ça!
For Each cell In Application.Worksheets("Cpte dexploitation#1") If cell.Interior.Color = 16777164 Then cell.ClearContents End If Next cell
Merci pour ta réponse, j'ai effectué le changement mais maintenant j'ai une autre erreur ;
"Erreur d'exécution '438': Propriété ou méthode non gérée par cet objet"
toujours sur la ligne du For Each ='(
For Each cell In Application.Worksheets("Cpte dexploitation#1") If cell.Interior.Color = 16777164 Then cell.ClearContents End If Next cell
dans le code fourni je ne vois pas For Each ='(!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
For Each cell In Worksheets("Cpte dexploitation#1").Cells
Next
mais là ta pas finit!
je t'invites à définir la plage de cellules à géré exemple!
For Each cell In Worksheets("Cpte dexploitation#1").Range("A1:G100") Next