Pb object worksheet ? [Fermé]

Signaler
-
geokie
Messages postés
275
Date d'inscription
mardi 1 décembre 2009
Statut
Membre
Dernière intervention
28 février 2017
-
Bonjour,

J'ai un pb avec un code que je n'arrive pas à débugger...
le but est d'effacer une même plage sur différentes feuilles d'un classeur

j'ai testé plusieurs méthodes mais rien ne marche
voici celle que je pense la plus proche du but:


For Each Ws In Workbooks(Fichier_Cible).Worksheets(Array("ID", "QteSTK", "CU", "ValSTK", "NV"))
           Ws.Range(Cells(3, c.Column), Cells(Derniere_Ligne_Histo, c.Column)).ClearContents
next ws


efface seulement sur la feuille ID puis bug :
erreur d'exé 1004 : la méthode 'range' de l'objet '_Worksheet' a échoué

Quelqu'un peut il m'aider ?

Merci d'avance

Ludivine

1 réponse

Messages postés
275
Date d'inscription
mardi 1 décembre 2009
Statut
Membre
Dernière intervention
28 février 2017
51
Bonjour, essaie de remplacer :
Ws.Range(Cells(3, c.Column), Cells(Derniere_Ligne_Histo, c.Column)).ClearContents
Par :
Ws.Range(Ws.Cells(3, c.Column), Ws.Cells(Derniere_Ligne_Histo, c.Column)).ClearContents