Discussion :

[bricko]

Bonjour,
je voudrais copier les colonnes d'une feuille dans une certaine ordre.
J'ai le code suivant:

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
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 en résultat, il me remet en ordre les colonnes, alors que je voudrais les avoir dans l'ordre que j'ai indiqué ci-dessus.

[JPierreM]

Bonjour,

Sauf avis contraire je ne pense pas que l'on puisse faire une copie à partir de plusieurs sélections.
La solution serait peut-être de faire plusieurs copies successives

JP

[Invité]

bonjour,

Sauf avis contraire je ne pense pas que l'on puisse faire une copie à partir de plusieurs sélections.
La solution serait peut-être de faire plusieurs copies successives

je viens de faire le test, car j'avais le doute également et ça marche, le problème, si je choisi feuille1 les colonnes "M:M,A:A" placer dans feuille2 C1 résulta est "A:A,M:M" (C:C=A:A), (B:B=M:M).

[Daniel.C]

Bonjour,

Ce n'est pas toi qui décides. Lorsque tu décris un Range, la première ligne est toujours celle du haut et la première colonne celle de gauche. Si tu veux retrouver l'ordre de tes colonnes sur la feuille cible, il faut faire une boucle en recopiant colonne par colonne.