OVH Cloud OVH Cloud

La méthode 'ClearContents' de l'objet 'Range' a échoué

1 réponse
Avatar
Alex
Bonjour,

Une macro qui marchait bien depuis pas mal de temps,=20
plante depuis ce matin.
Le code est le suivant :
' Feuille Tmp
Sheets("Tmp").Select
Cells.Select
Selection.ClearContents
' Feuille Resultat
Sheets("RESULTAT").Select
Cells.Select
Selection.ClearContents

Le d=E9boggeur s'arr=EAte sur "Selection.ClearContents" avec=20
le message "Erreur d'ex=E9cution -2147417848 "La=20
m=E9thode 'ClearContents' de l'objet 'Range' a =E9chou=E9"=20
Ce qui est bizarre, c'est qu'il ne plante pas sur la=20
premi=E8re feuille "Tmp" uniquement sur la feuille "RESULTAT"
Aucune des feuilles n'est prot=E9g=E9e.

Merci de votre aide

1 réponse

Avatar
Christian.L
Bonjour

J'ai essayé ton code, et cela fonctionne parfaitement.
Certaines de tes cellules sont peut être protégées ?

C.L.

"Alex" a écrit dans le message de
news:205301c4277b$ef5089f0$
Bonjour,

Une macro qui marchait bien depuis pas mal de temps,
plante depuis ce matin.
Le code est le suivant :
' Feuille Tmp
Sheets("Tmp").Select
Cells.Select
Selection.ClearContents
' Feuille Resultat
Sheets("RESULTAT").Select
Cells.Select
Selection.ClearContents

Le déboggeur s'arrête sur "Selection.ClearContents" avec
le message "Erreur d'exécution -2147417848 "La
méthode 'ClearContents' de l'objet 'Range' a échoué"
Ce qui est bizarre, c'est qu'il ne plante pas sur la
première feuille "Tmp" uniquement sur la feuille "RESULTAT"
Aucune des feuilles n'est protégée.

Merci de votre aide