Déplacer plusieurs feuilles sélectionnées par
Résolu/Fermé
Gecko62
Messages postés
4
Date d'inscription
vendredi 3 février 2012
Statut
Membre
Dernière intervention
29 octobre 2014
-
3 févr. 2012 à 17:00
Le Pingou Messages postés 11543 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 28 mars 2023 - 4 févr. 2012 à 10:13
Le Pingou Messages postés 11543 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 28 mars 2023 - 4 févr. 2012 à 10:13
A voir également:
- Déplacer plusieurs feuilles sélectionnées par
- Déplacer une colonne excel - Guide
- Deplacer barre de tache windows 11 - Guide
- Fusionner plusieurs feuilles excel en une seule - Guide
- Feuilles diddl valeur ✓ - Forum Graphisme
- Deplacer une image css - Astuces et Solutions
4 réponses
Le Pingou
Messages postés
11543
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 mars 2023
1 334
3 févr. 2012 à 22:58
3 févr. 2012 à 22:58
Bonjour,
Est-il possible d'avoir le message d'erreur et son code?
Est-il possible d'avoir le message d'erreur et son code?
Le Pingou
Messages postés
11543
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 mars 2023
1 334
3 févr. 2012 à 23:40
3 févr. 2012 à 23:40
Bonjour,
En principe dans votre boucle comme suit :
En principe dans votre boucle comme suit :
For i = 3 To NbFeuilles
Sheets(Sheets(i).Name).Move Before:=Workbooks("nom classeur cible.xlsx").Sheets(1)
Next i
Merci le Pingu,
ta solution m'a mis sur la piste et moyennant un petit ajustement cela fonctionne correctement. J'ai rajouté une variable contenant le numéro de feuille à déplacer, car dans le cas contraire la macro voulait copier une feuille qui n'existait plus! Voici donc le code final de la boucle
Une fois encore un très grand merci
ta solution m'a mis sur la piste et moyennant un petit ajustement cela fonctionne correctement. J'ai rajouté une variable contenant le numéro de feuille à déplacer, car dans le cas contraire la macro voulait copier une feuille qui n'existait plus! Voici donc le code final de la boucle
' Déplace toutes les feuilles de la 3ème à la dernière dans le classeur créé
For i = 3 To NbFeuilles
Sheets(Sheets(z).Name).Move Before:=Workbooks(NomFichier & ".xls").Sheets(1)
Workbooks("PretMateriel.xls").Activate
Next i
Une fois encore un très grand merci
Le Pingou
Messages postés
11543
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 mars 2023
1 334
4 févr. 2012 à 10:13
4 févr. 2012 à 10:13
Bonjour,
Merci pour l'information.
Eh oui cela m'a échappé, il fallait simplement la boucle avec le décompte depuis la fin :
Merci pour l'information.
Eh oui cela m'a échappé, il fallait simplement la boucle avec le décompte depuis la fin :
For i = NbFeuilles To 3 Step -1