Echec methode copy worksheet Résolu

Question

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


Configuration: Windows XP / Firefox 3.6.24

f894009 · Answer

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

btkamine · Answer

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

CHARLYJACK · Answer

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

Echec methode copy worksheet

3 réponses

Discussions similaires

Newsletters