Echec methode copy worksheet
Résolu
CHARLYJACK
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
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
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 ps4 - Guide
- Exact audio copy - Télécharger - Conversion & Extraction
- Super copy - Télécharger - Gestion de fichiers
- Mode sans echec - Guide
- Copy protect - Télécharger - Chiffrement
3 réponses
Bonjour,
un inputbox retourne une chaine de caracteres:
Bonne suite
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
ça fonctionne très bien
et j'ai fait plusieurs essais.
à bientôt
Charlyjack