Copier les colonnes d'une feuille dans une certaine ordre

**bricko** · 04/07/2013, 11h48

Bonjour,
je voudrais faire une copie des colonnes d'une feuille dans un certain ordre dans une autre feuille.
Voici la macro que j'ai fais :

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
 
 
 
 
Sub Table_AS_IS()
'
' Table_AS_IS Macro
' Création de la table AS_IS
'
 
'
 
    'Si la feuille table AS_IS n'existe pas, elle est créée et est nommée "table AS_IS"
    If Not (FeuilleExiste("table AS_IS")) Then
        Sheets.Add
        ActiveSheet.Name = "table AS_IS"
    End If
    Worksheets("table AS_IS").Select
    'Sinon(si elle existe déjà),on efface tous ce qui est dans les colonnes A jusqu\'à Q'
    Worksheets("table AS_IS").Range("A:Z").Clear
    Worksheets("Eric_Output_opti_AS_IS_TO_BE").Range("B:B,C:C,D:D,N:N,O:O,P:P,A:A,E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M").Copy Destination:=Worksheets("table AS_IS").Range("A1")
 
End Sub
Function FeuilleExiste(Nom As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not Worksheets(Nom) Is Nothing
Err_FeuilleExiste:
End Function

Le problème c'est que les colonnes se remettent automatiquement dans l'ordre. J'aurais aimé avoir cette ordre : b,c,,d,n,o,p,a,e,f,g,etc

**BlueMonkey** · 04/07/2013, 13h07

Bonjour,

La routine CopyEntireColumnsTo ci-dessous fera l'opération de copie de l'ensemble des cellules d'une liste de colonne, vers une plage cible.

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
Sub Table_AS_IS()
    'Si la feuille table AS_IS n'existe pas, elle est créée et est nommée "table AS_IS"
    If Not (FeuilleExiste("table AS_IS")) Then
        Sheets.Add
        ActiveSheet.Name = "table AS_IS"
    End If
    Worksheets("table AS_IS").Select
    'Sinon(si elle existe déjà),on efface tous ce qui est dans les colonnes A jusqu\'à Q'
    Worksheets("table AS_IS").Range("A:Z").Clear
    Call CopyEntireColumnsTo(Worksheets("Eric_Output_opti_AS_IS_TO_BE"), _
                             "B;D;N;O;P;A;E;F;G;H;I;J;K;L;M", _
                             Worksheets("table AS_IS").Range("A1"))
 
End Sub
Function FeuilleExiste(Nom As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not Worksheets(Nom) Is Nothing
Err_FeuilleExiste:
End Function
 
'Copie l'ensemble de donnée contenu dans une liste de colonne séparées par des ';' dans une plage cible <target> 
Sub CopyEntireColumnsTo(wsSource, ByVal colslist As String, target As Range)
    If Right(colslist, 1) = ";" Then colslist = Left(colslist, Len(colslist) - 1)
    Dim cols() As String
    cols = Split(colslist, ";")
    Dim i As Integer
    For i = 0 To UBound(cols)
        wsSource.Range(wsSource.Cells(1, cols(i)), wsSource.Cells(Rows.Count, cols(i)).End(xlUp)).Copy destination:=target.Offset(0, i)
    Next i
End Sub

A+

**bricko** · 04/07/2013, 13h57

Bonjour BlueMonkey,
je vous remercie du temps que vous me consacrez.
J'ai une erreur d'indice quand je tente d'executer votre macro.

Pourriez-vous m'aider.

bien à vous

**BlueMonkey** · 04/07/2013, 15h19

Re.

Il faut remplacer le nom de la feuille Eric_Output_opti_AS_IS_TO_BE par Feuil1 sur la ligne 10 du bout de code posté précédemment.

A+.

PS. : Pour info, le forum Excel contient un sous forum Macros et VBA.
Les sujets discutant de problème de Macros ont d'avantage de chance de trouver une réponse dans ce sous-forum.