Copie d'une feuille en vidant une plage de cellules

Question

Bonjour, j'ai crée une copie d'une feuille sur mon document mais je cherche à vider en même temps une plage de cellules sur la nouvelle feuille. (C3:C33 et E3:E32) Quelqu'un a une idée? Merci...

gelinotte · Accepted Answer

Je suis désolé, c'est trop complexe pour ma cellule En cette journée de détente. Gelinotte...

gelinotte · Answer

Tout de suite après avoir renommé la nouvelle feuille, ajoute : Sheets("2016").Range("C3:C33").ClearContents Sheets("2016").Range("E3:E32").ClearContents Gelinotte...

gelinotte · Answer

Une façon de faire : Voici le début de ta macro, remplace tout ce qu'il y a avant "On error GoTo 0" WS = Worksheets(Worksheets.Count).Name Worksheets(WS).Copy After:=Worksheets(ThisWorkbook.Sheets.Count) On Error GoTo GestionErreur ActiveSheet.Name = CInt(WS + 1) WS = Worksheets(Worksheets.Count).Name Sheets(WS).Range("C3:C33").ClearContents Sheets(WS).Range("E3:E32").ClearContents Sheets(WS).Range("G17").Value = CInt(WS + 1) Gelinotte...

gelinotte · Answer

Sur le fichier fourni en exemple, ça fonctionne impec mon mec. 8) Ce que l'on lit dans le message du post précédent, ça parle de déplacement, je ne déplace rien avec le code que j'ai fourni, je copie. Sans le code qui pose problème, c'est difficile de répondre. Toutefois, dois-je comprendre que le message d'erreur n'est survenu que depuis que tu as inséré mon bout de code ? Si c'est cela ... et si tu retournes avec le code d'origine; le message d'erreur cesse-t-il d'apparaître ? Un autre point, qui aide à déboger du code, est la déclaration des variables. C'est bien utile pour évider les erreurs d'interprétation. Désolé si mon p'tit bout code à foutu le bordel dans ton chiffrier. J'espère que tu travailles toujours avec de copies de sécurité. Gelinotte...