Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mettre mon classeur dans le bon ordre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ericTA
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

ericTA

XLDnaute Occasionnel
Bonjour,
J'ai une macro qui copie les feuilles d'un fichier source vers un fichier cible une à une.
Seulement voilà dans mon fichier cible les feuilles sont classées à l'envers.
Comment faire pour les avoir dans le même ordre.
Help.

Sub collage(FichierSource, FichierCible)
Dim ws As Worksheet

Windows(FichierSource).Activate
For Each ws In Worksheets
If Sheets(ws.Name).Range("A2").Value = "ONGLET" Then
Windows(FichierSource).Activate
Sheets(ws.Name).Select
Columns("B:E").Select
Range("B3").Activate
Selection.Copy
Windows(FichierCible).Activate
Sheets.Add.Name = ws.Name
Columns("A😀").Select
Range("A2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Windows(FichierSource).Activate

End If
Next ws
End Sub
Merci d'avance
Eric
 
Trier par date Trier par votes
Re : Mettre mon classeur dans le bon ordre

Bonjour

le plus simple, faire les copies à l'envers
pas testé mais devrait fonctionner

A+
Code: 
Sub collage(FichierSource, FichierCible)
Dim Wkb_O As Workbook, Compteur As Integer
Windows(FichierSource).Activate
Set Wkb_O = ActiveWorkbook
For Compteur = Wkb_O.Worksheets.Count To 1 Step -1
If Wkb_O.Sheets(Compteur).Range("A2").Value = "ONGLET" Then
Wkb_O.Sheets(Compteur).Columns("B:E").Copy
Windows(FichierCible).Activate
Sheets.Add.Name = Sheets(Compteur).Name
Columns("A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next Compteur
Wkb_O.Activate
End Sub
 
Vote positif 0 Vote négatif
Re : Mettre mon classeur dans le bon ordre

une petite erreur sur le nom de la feuille destination
Code: 
Sub collage(FichierSource, FichierCible)
Dim Wkb_O As Workbook, Compteur As Integer
Windows(FichierSource).Activate
Set Wkb_O = ActiveWorkbook
For Compteur = Wkb_O.Worksheets.Count To 1 Step -1
If Wkb_O.Sheets(Compteur).Range("A2").Value = "ONGLET" Then
Wkb_O.Sheets(Compteur).Columns("B:E").Copy
Windows(FichierCible).Activate
Sheets.Add.Name = Wkb_O.Sheets(Compteur).Name
Columns("A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next Compteur
Wkb_O.Activate
End Sub
 
Vote positif 0 Vote négatif
Re : Mettre mon classeur dans le bon ordre

le même en simplifié et sans select
Code: 
Sub collage(FichierSource, FichierCible)
Dim Wkb_O As Workbook, Wkb_C As Workbook, Ws_C As Worksheet, Compteur As Integer
Windows(FichierSource).Activate
Set Wkb_O = ActiveWorkbook
Windows(FichierCible).Activate
Set Wkb_C = ActiveWorkbook
For Compteur = Wkb_O.Worksheets.Count To 1 Step -1
If Wkb_O.Sheets(Compteur).Range("A2").Value = "ONGLET" Then
    Set Ws_C = Wkb_C.Sheets.Add
    Ws_C.Name = Wkb_O.Sheets(Compteur).Name
    'copie les cellules
    Wkb_O.Sheets(Compteur).Columns("B:E").Copy Destination:=Ws_C.Columns("A:D")
    'écrase avec les valeurs s'il y a des formules dans la feuille origine
    Ws_C.Columns("A:D").Value = Wkb_O.Sheets(Compteur).Columns("B:E").Value
End If
Next Compteur
Wkb_O.Activate
End Sub
 
Vote positif 0 Vote négatif
Re : Mettre mon classeur dans le bon ordre

Bonjour,
Il me semble qu'en utilisant l'argument after à l'ajout d'une nouvelle feuille cela permet de les remettre dans l'ordre, car par défaut les nouvelles feuilles viennent se placer avant la feuille active.


A tester
A+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
378
Nounours4173
N
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
153
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
300
AtTheOne
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
369
cdric78
C
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
568
ph.vanne
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
333
sylvanu
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
281
sylvanu
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
291
MICHIS
M
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
584
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
463
micie1509
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
404
Francky79
F
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
670
robpellan52
R
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
281
safranien
S
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
652
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
760
gwenn49
G
M
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
496
Marvin57
M
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…