Discussion :

[Gamal le Celte]

Bonjour,

Je voudrai couper / coller dans un nouveau classeur plusieurs feuilles.

Je ne connais pas le nombre de feuilles ni leur nom et je les cherche avant de lancer le déplacement des feuilles.

J'utilise le code suivant en macro automatique pour comprendre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Array("Feuille1", "Feuille2", "Feuille3", "Feuille4")).Move

Ce code marche sans problèmes alors je modifie ce code pour mon projet

Je voudrai donc construire une variable String avec les noms des feuilles à déplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'----------- totfeuill est le nombre de feuille du classeur
'----------- feuildeplass et le nombre de feuilles à déplacées
'----------- Chr(34) est le code ASCII de " pour construire la variable
 
For i = totfeuill To totfeuill - feuildeplass Step -1
        lesfeuill = lesfeuill + Sheets(i).Name + Chr(34) + "," + Chr(34)
Next i
 
lon = Len(lesfeuill)
lesfeuill = Left(lesfeuill, lon - 3)  '--- Pour supprimer les 3 caractère de fin
 
Sheets(Array(lesfeuill)).Move

Lorsque je fais tourner cette macro, j'ai un message d'erreur

L'indice n'appartient pas à la selection

Pourtant, lorsque je lis la variable, elle est correctement construite.

Peut être que cela viens de Chr(34) qui est mal compris par VBA, mais cela me semble étrange. Avez-vous une méthode pour construire ma variable à moins que Array n'accepte pas de variable en paramètre ?

Merci

[ouskel'n'or]

Ton problème vient du tableau : On ne peut pas créer un tableau ainsi.
Ce que tu peux faire c'est créer une liste de tes feuilles puis, convertir cette liste en tableau avec split, puis parcourir ce tableau et copier les feuilles une par une.
Attention, quand tu utilises Move, tu déplaces ta feuille, tu ne la copies pas.
Avec copie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = totfeuill To totfeuill - feuildeplass Step -1
        lesfeuill = lesfeuill + Sheets(i).Name & ","
Next i
lesfeuill = Left(lesfeuill, Len(lesfeuill) -1)
Tablo = Split(lesfeuill, ",")
For i = 0 to Ubound(Tablo) -1
         Workbooks("Classeur1").Sheets(Tablo(i)).Copy After:=Workbooks("Classeur2").Sheets.count
Next

Tu dis
A+

[Gamal le Celte]

Merci de ton aide.

Je voulais utiliser Move pour déplacer toutes mes feuilles en une seule fois, c'est vrai que si ce n'est pas possible alors……

Je vais utiliser ta solution, la simplicité et l'efficacité.
Merci

A+