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