Autres VBA Ordre commun dans plusieurs feuilles

B

Barb4

XLDnaute Nouveau
Bonjour,
Je me heurte à un problème sur excel. Il se trouve que mon classeur a plusieurs feuilles avec un "motif" (façon INDIRECT). C'est-à-dire que pour 10 feuilles, il a les mêmes colonnes (mais avec des valeurs différentes), sauf que certaines colonnes sont dans le désordre. J'aimerai savoir si il existe une macro qui me permettrait de remettre dans l'ordre ces colonnes selon un ordre référence. A noter que j'aimerai que les valeurs en-dessous de l'en-tête se déplacent avec les en-têtes.
En guise d'exemple, voici un classeur avec 11 feuilles dont une avec l'ordre référent.
Merci pour votre patience,

Bonne soirée.
 

Pièces jointes

  • Classeur exemple.xlsx
    18.1 KB · Affichages: 12
Solution
Jacky67
Barb4 à dit:
Avec le classeur c'est mieux !
Cliquez pour agrandir...
RE..
VB: 
Sub ordre()
    Dim C, COL&, Sh As Worksheet
    Application.ScreenUpdating = False
    COL = 3
    For Each Sh In Sheets(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
            With Sh
                 For Each C In Array("France", "Canada", "USA", "Angleterre", "Brésil", "Allemagne", "Russie", "Portugal", "Espagne", "Norvège", "Soudan", "Australie")
                    If .Cells(4, COL) <> C Then
                        .Columns(Application.Match(C, .[4:4], 0)).Cut
                        .Cells(1, COL).Insert Shift:=xlToRight
                    End If
                    COL = COL + 1
                Next
            End With
            COL = 3
    Next...
Trier par date Trier par votes
Jacky67

Jacky67

XLDnaute Barbatruc
Barb4 à dit:
Bonjour,
Je me heurte à un problème sur excel. Il se trouve que mon classeur a plusieurs feuilles avec un "motif" (façon INDIRECT). C'est-à-dire que pour 10 feuilles, il a les mêmes colonnes (mais avec des valeurs différentes), sauf que certaines colonnes sont dans le désordre. J'aimerai savoir si il existe une macro qui me permettrait de remettre dans l'ordre ces colonnes selon un ordre référence. A noter que j'aimerai que les valeurs en-dessous de l'en-tête se déplacent avec les en-têtes.
En guise d'exemple, voici un classeur avec 11 feuilles dont une avec l'ordre référent.
Merci pour votre patience,

Bonne soirée.
Cliquez pour agrandir...
Bonsoir,
Une proposition en vba avec ce code
VB: 
Sub ordre()
    Dim C, COL&, Sh As Worksheet
    COL = 4
    For Each Sh In ThisWorkbook.Worksheets
        If UCase(Left(Sh.Name, 1)) = "G" Then
            With Sh
                For Each C In Array("France", "Canada", "USA", "Angleterre", "Brésil", "Allemagne", "Russie")
                    If .Cells(5, COL) <> C Then
                        .Columns(Application.Match(C, .[d5:j5], 0) + 3).Cut
                        .Cells(1, COL).Insert Shift:=xlToRight
                    End If
                    COL = COL + 1
                Next
            End With
            COL = 4
        End If
    Next
    Application.CutCopyMode = False
End Sub
 

Pièces jointes

  • Classeur exemple.xlsm
    30.2 KB · Affichages: 3
Dernière édition:
Vote positif 1 Vote négatif
B

Barb4

XLDnaute Nouveau
Jacky67 à dit:
Bonsoir,
Une proposition en vba avec ce code
VB: 
Sub ordre()
    Dim C, COL&, Sh As Worksheet
    COL = 4
    For Each Sh In ThisWorkbook.Worksheets
        If UCase(Left(Sh.Name, 1)) = "G" Then
            With Sh
                For Each C In Array("France", "Canada", "USA", "Angleterre", "Brésil", "Allemagne", "Russie")
                    If .Cells(5, COL) <> C Then
                        .Columns(Application.Match(C, .[d5:j5], 0) + 3).Cut
                        .Cells(1, COL).Insert Shift:=xlToRight
                    End If
                    COL = COL + 1
                Next
            End With
            COL = 4
        End If
    Next
    Application.CutCopyMode = False
End Sub
Cliquez pour agrandir...
Je reviens vers vous, car je me demandais quelque chose, imaginons mes feuilles auraient été nommées 1,2,3,4,... et sans lettres communes. Je me demandais comment les sélectionner dans ce code à la place de
Code: 
If UCase(Left(Sh.Name, 1)) = "G" Then
Je sais que je rajoute de la difficulté mais je préférais sélectionner des feuilles spécifiques dans le cas où d'autres feuilles du classeur ne seraient pas concernées par le code.

Merci pour votre réactivité et votre patience,

Bonne journée.
 
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
Barb4 à dit:
Je reviens vers vous, car je me demandais quelque chose, imaginons mes feuilles auraient été nommées 1,2,3,4,... et sans lettres communes. Je me demandais comment les sélectionner dans ce code à la place de
Code: 
If UCase(Left(Sh.Name, 1)) = "G" Then
Je sais que je rajoute de la difficulté mais je préférais sélectionner des feuilles spécifiques dans le cas où d'autres feuilles du classeur ne seraient pas concernées par le code.

Merci pour votre réactivité et votre patience,

Bonne journée.
Cliquez pour agrandir...
RE...
Hello Job75 , Phi69970 :)
Si la modification de job75 ne devait pas convenir , alors donner le nom des feuilles à traiter ou ceux des feuilles à ne pas traiter. ou mieux, joindre le classeur .
 
Vote positif 0 Vote négatif
B

Barb4

XLDnaute Nouveau
Bonjour,
Merci beaucoup pour vos réponses. J'ai l'impression d'abuser de votre temps et je m'en excuse.
Seulement, les nombres étaient juste un exemple.
J'aurai dû le faire dès le début, mais je pensais plus à des feuilles nommées par des lettres.
Par ailleurs je me demandais comment adapter vos codes si j'insérais une colonne de plus car au niveau de
Code: 
 .Columns(Application.Match(C, .[d5:j5], 0) + 3).Cut
VBA m'indique une erreur lorsque je veux faire par exemple, de d4:n4.
Le mieux étant de vous donner un classeur avec la disposition que j'aimerai, comme cela de trop vous déranger avec mes questions de débutant.
A préciser que uniquement les feuilles A à J sont concernées et Base et Pays sont exclues du code.
Encore merci de votre aide si précieuse !
Cdt.
 
Vote positif 0 Vote négatif
B

Barb4

XLDnaute Nouveau
Barb4 à dit:
Bonjour,
Merci beaucoup pour vos réponses. J'ai l'impression d'abuser de votre temps et je m'en excuse.
Seulement, les nombres étaient juste un exemple.
J'aurai dû le faire dès le début, mais je pensais plus à des feuilles nommées par des lettres.
Par ailleurs je me demandais comment adapter vos codes si j'insérais une colonne de plus car au niveau de
Code: 
 .Columns(Application.Match(C, .[d5:j5], 0) + 3).Cut
VBA m'indique une erreur lorsque je veux faire par exemple, de d4:n4.
Le mieux étant de vous donner un classeur avec la disposition que j'aimerai, comme cela de trop vous déranger avec mes questions de débutant.
A préciser que uniquement les feuilles A à J sont concernées et Base et Pays sont exclues du code.
Encore merci de votre aide si précieuse !
Cdt.
Cliquez pour agrandir...
Avec le classeur c'est mieux !
 

Pièces jointes

  • Classeur exemple2.xlsx
    24.9 KB · Affichages: 3
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
Barb4 à dit:
Avec le classeur c'est mieux !
Cliquez pour agrandir...
RE..
VB: 
Sub ordre()
    Dim C, COL&, Sh As Worksheet
    Application.ScreenUpdating = False
    COL = 3
    For Each Sh In Sheets(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
            With Sh
                 For Each C In Array("France", "Canada", "USA", "Angleterre", "Brésil", "Allemagne", "Russie", "Portugal", "Espagne", "Norvège", "Soudan", "Australie")
                    If .Cells(4, COL) <> C Then
                        .Columns(Application.Match(C, .[4:4], 0)).Cut
                        .Cells(1, COL).Insert Shift:=xlToRight
                    End If
                    COL = COL + 1
                Next
            End With
            COL = 3
    Next
    Application.CutCopyMode = False
End Sub
 

Pièces jointes

  • Classeur exemple V2.xlsm
    43.5 KB · Affichages: 5
Vote positif 1 Vote négatif
Solution
B

Barb4

XLDnaute Nouveau
Jacky67 à dit:
RE..
VB: 
Sub ordre()
    Dim C, COL&, Sh As Worksheet
    Application.ScreenUpdating = False
    COL = 3
    For Each Sh In Sheets(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
            With Sh
                 For Each C In Array("France", "Canada", "USA", "Angleterre", "Brésil", "Allemagne", "Russie", "Portugal", "Espagne", "Norvège", "Soudan", "Australie")
                    If .Cells(4, COL) <> C Then
                        .Columns(Application.Match(C, .[4:4], 0)).Cut
                        .Cells(1, COL).Insert Shift:=xlToRight
                    End If
                    COL = COL + 1
                Next
            End With
            COL = 3
    Next
    Application.CutCopyMode = False
End Sub
Cliquez pour agrandir...
Merci pour tout !
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Une solution qui utilise le tri horizontal :
VB: 
Sub Tri_horizontal()
Dim w As Worksheet
Application.ScreenUpdating = False
Sheets("Ref").[C4:N4].Name = "P" 'nom défini
For Each w In Worksheets
    If w.Range("B4") = "Nb Produits" Then
        w.Rows(4).Insert 'insère une ligne 4 auxiliaire
        w.Range("C4:N4") = "=MATCH(R[1]C,P,0)" 'repères pour le tri
        w.Range("C4:N" & w.Rows.Count).Sort w.Rows(4), xlAscending, Orientation:=2 'tri horizontal
        w.Rows(4).Delete 'supprime la ligne auxiliaire
    End If
Next
End Sub
S'il y a beaucoup de lignes elle est nettement plus rapide.
 

Pièces jointes

  • Classeur exemple(1).xlsm
    39.5 KB · Affichages: 8
Vote positif 0 Vote négatif

Discussions similaires

A
  • Résolu(e)
Microsoft 365 filtres s'appliquant sur plusieurs feuilles
2
Réponses
15
Affichages
792
Gégé-45550
Gégé-45550
S
  • Résolu(e)
Microsoft 365 En-tête et pied de page
Réponses
5
Affichages
262
Sissou71
S
N
  • Question
Autres listes
Réponses
7
Affichages
437
nicolaspoulain77
N
P
  • Question
Microsoft 365 INDEX EQUIV Plusieurs colonnes autre fichier
Réponses
2
Affichages
408
PhilKo
P
A
  • Résolu(e)
XL 2019 Problème de clic dans ListBox
Réponses
12
Affichages
303
Dudu2
Dudu2
R
  • Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
333
robbynasch
R
Todre
  • Résolu(e)
Microsoft 365 Remplissage automatique d'une feuille à l'autre
2 3
Réponses
44
Affichages
2 K
Todre
Todre
B
  • Question
XL 2013 Transposition de filtres multiples sur plusieurs feuilles
Réponses
11
Affichages
285
BIROULIG
B
M
  • Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
173
marie3107
M
C
  • Question
XL 2016 Copier et coller une valeur dans plusieurs Listobjects d'une même feuille
Réponses
5
Affichages
244
chris
chris

Membres actuellement en ligne

14 membres et 122 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 332
Messages
2 087 362
Membres
103 528
dernier inscrit
maro