Echec methode copy worksheet

Résolu/Fermé

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 8 mars 2013 à 16:14
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 12 mars 2013 à 13:51

Bonjour,

J'utilise le code ci dessous
je crée 47 copies pour appliquer des filtres différents sur chaque copie.
Mais malheureusement j'ai un message d'erreur.

Est ce que quelqu'un peut m'expliquer?

merci

Sub Pages()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Valeur").Copy After:=Sheets(i)
ActiveSheet.Name = "Position " & i
Next i
End Sub

A voir également:

Echec methode copy worksheet
Mode sans echec - Guide
Ps4 mode sans echec - Guide
Super copy - Télécharger - Gestion de fichiers
Copy trans - Télécharger - Sonneries
Mode sans échec ps4 manette non reconnu - Forum PS4

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
8 mars 2013 à 17:01

Bonjour,

un inputbox retourne une chaine de caracteres:

Sub Pages()
    Dim i
    'soit
    Dim z As Integer
    'et
    z = InputBox("Nombre de copies ", "Copie")
    
    'ou
    'dim z
    'et
    'z = cint(InputBox("Nombre de copies ", "Copie"))
    
    For i = 1 To z
        Sheets("Valeur").Copy After:=Sheets(i)
        ActiveSheet.Name = "Position " & i
    Next i
End Sub

Bonne suite

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
10 mars 2013 à 11:12

Bonjour et merci,

ça fonctionne très bien
et j'ai fait plusieurs essais.

à bientôt

Charlyjack

Réponse 2 / 3

btkamine Messages postés 1 Date d'inscription vendredi 8 mars 2013 Statut Membre Dernière intervention 8 mars 2013 1
8 mars 2013 à 19:17

Dim x As Integer

x = InputBox("Nombre de copies")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Valeur").Copy _
After:=ActiveWorkbook.Sheets("Valeur")
Next

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
10 mars 2013 à 11:17

Ce deuxieme code fonctionne très bien également !

merci beaucoup

et à bientôt Charlyjack

Réponse 3 / 3

CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
12 mars 2013 à 13:51

Bonjour, en fait les codes fonctionnent sur 2007 mais pas sur 2003,
j'ai essayé l'insertion de pages plutot que la copie , rien à faire ça bloque !

Quelqu'un a t il une solution ?

merci

Charlyjack

Discussions similaires

Snapchat locked : mon compte snapchat est bloqué

Google Chrome " Échec de l'analyse antivirus "

Erreur 1004 : Méthode 'Range' de l'objet '_Worksheet' a échoué

Accès a Snapchat temporairement désactivé

Connexion impossible Échec Cloudflare

Discussions similaires

Newsletters