Erreur d'exécution '424': Objet requisRésolu

Question

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 
    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 !!!!!

dysorthographie · Answer

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

Barbo14 · Answer

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 ='(

dysorthographie · Answer

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 ='(!

Barbo14 · Answer

sur cette ligne ;

For Each cell In Application.Worksheets("Cpte dexploitation#1")

dysorthographie · Answer

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

Barbo14 · Answer

MERCI BEAUCOUP POUR TON AIDE !!!

ça fonctionne !!  :)

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

6 réponses

Votre réponse

Discussions similaires