Pb object worksheet ?

Fermé
lulu85 - Modifié par lulu85 le 21/02/2017 à 15:04
 Utilisateur anonyme - 21 févr. 2017 à 16:29
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

Utilisateur anonyme
21 févr. 2017 à 16:29
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
0