Discussion :

[MarcelG]

Bonjour,

J'ai lu récemment une discussion sur l'inversion de colonnes.
discussion colonnes

En partant du principe suivant:
Les champs source sont dans un ordre différent de celui de la feuille de destination
Cet ordre différent est aléatoire

Objectif:
Reconnaître les champs de destination dans la feuille source
Reporter tous les enregistrements
N'utiliser que des variables tableaux

Je me permets donc de vous présenter le code suivant.
Dans l'attente de vos remarques et/ou suggestions

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
Option Base 1
 
Public Sub recherche_colonnes()
 
Dim T  As Single
T = Timer
 
Dim derlign_b As Integer
 
With Worksheets("Données_brutes")
        derlign_b = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
Dim dercol_d As Byte
Dim k As Byte
Dim lechamp As String
 
Dim tblo_ordre() As Variant
Dim ub As Byte
 
'Recherche de chaque champ de la feuille "Dest" dans la ligne 1 de la feeuille "Données_brutes"
With Worksheets("Dest")
        dercol_d = .Cells(1, .Columns.Count).End(xlToLeft).Column
        For k = 1 To dercol_d
                ReDim Preserve tblo_ordre(1 To k)
                'Debug.Print .Cells(1, k)
                lechamp = .Cells(1, k).Value
                With Worksheets("Données_brutes")
                        tblo_ordre(k) = Application.Match(lechamp, .Range("A1", .Cells(1, derlign_b)), 0)
                        'Debug.Print tblo_ordre(k)
                End With
        Next k
End With
 
ub = UBound(tblo_ordre)
 
Dim i As Integer, j As Byte
Dim tblo() As Variant
 
'Alimentation de la feuille de destination "Dest" dans l'ordre des colonnes
For i = 1 To derlign_b
        For j = 1 To dercol_d
                ReDim Preserve tblo(1 To j)
                tblo(j) = Worksheets("Données_brutes").Cells(i, tblo_ordre(j))
                Debug.Print tblo(j)
        Next j
        Worksheets("Dest").Range("A" & i).Resize(1, ub).Value = tblo
        Erase tblo
Next i
 
Debug.Print "Temps écoulé : " & Int((Timer - T) + 0.5) & " seconde(s)."
 
End Sub

[Philippe Tulliez]

Bonjour,
Je n'ai sans doute pas compris ce que tu veux mais pourquoi ne pas utiliser la méthode AdvancedFilter suggéré par Marc-L dans la discussion que tu as référencée.

[MarcelG]

Bonsoir Philippe,

(ravi de te retrouver)

C'est juste une variante que je voulais - humblement - proposer. Et cela sans juger la proposition de Marc.
A chacun sa sensibilité.
Je pense, pour ma part, que les tableaux et dictionnaires sont peu, ou du moins pas assez, employés dans les discussions que l'on peut lire ici ou là.

[Philippe Tulliez]

Bonjour Marcel,

Je pense, pour ma part, que les tableaux et dictionnaires sont peu, ou du moins pas assez, employés dans les discussions que l'on peut lire ici ou là.

Personnellement je privilégie les méthodes et fonctionnalités natives d'excel lorsque je développe en VBA et franchement une exportation avec AdvancedFilter outre le fait que cela se résume à une ligne de code, le temps d'exécution est immédiat.