XL 2019 Erreur d'exécution '424': Objet requis

[Barbo14]

Bonjour je suis débutant en VBA et j'ai un problème d'exécution de code, l'erreur qui apparait est la suivante "Erreur d'exécution '424': Objet requis"

L'erreur est signalé à la ligne 6, je penses que ça va être la même chose pour chacun de mes "For Each";

Sub SupprimerContenu()

Dim cell As Range

cpt1 = Application.Worksheets("Cpte dexploitation#1").Select
For Each cell In cpt1 <--- L'erreur est ici !!!
If cell.Interior.Color = 16777164 Then
cell.ClearContents
End If
Next cell

cpt2 = Application.Worksheets("Cpte dexploitation#2").Select
For Each cell In cpt2
If cell.Interior.Color = 16777164 Then
cell.ClearContents
End If
Next cell

cpt3 = Application.Worksheets("Cpte dexploitation#3").Select
For Each cell In cpt3
If cell.Interior.Color = 16777164 Then
cell.ClearContents
End If
Next cell

bilan = Sheets("Bilan").Select
For Each cell In bilan
If cell.Interior.Color = 16777164 Then
cell.ClearContents
End If
Next cell

End Sub
Le but recherché est que lorsque l'utilisateur change la valeur de la liste déroulante cette macro est appelé pour supprimer le contenu de toutes les cellules avec une certaine couleur de fond dans les différentes feuilles.

Merci beaucoup pour votre aide !!!!!

 

[vgendron]

bonjour

cette ligne de code ne fait surement pas ce que tu penses..
cpt1 = Application.Worksheets("Cpte dexploitation#1").Select
je suis prêt à parier que cpt1 = false
vérifie avec un msgbox cpt1

donc;. le for each ne sait pas quoi faire.. d'ou l'erreur

 

[dysorthographie]

Bonjour,

Erreur d'exécution '424': Objet requis

Bonjour je suis débutant en VBA et j'ai un problème d'exécution de code, l'erreur qui apparait est la suivante "Erreur d'exécution '424': Objet requis" L'erreur est signalé à la ligne 6, je penses que ça va être la même chose pour chacun de mes "For...

codes-sources.commentcamarche.net

 

[Phil69970]

Bonjour à tous

@Barbo14
Et si tu fais juste ceci :

Dim Cell As Range
For Each Cell In Worksheets("Cpte dexploitation#1").Range("A1:G10") '<== A adapter

*Autrement ton fichier anonymisé si besoin

Merci de ton retour

@Phil69970

 

[Barbo14]

Bonjour à tous

@Barbo14
Et si tu fais juste ceci :



*Autrement ton fichier anonymisé si besoin

Merci de ton retour

@Phil69970

Merci beaucoup de cette façon la ça fonctionne parfaitement !