Discussion :

[bricko]

Bonjour, j'aimerais récupérer certaines colonnes d'une feuille excel dans une autre feuille. Ici vous trouverez le code que j'ai fais. Le problème ce que j'ai pas envie de récupérer tout ce qu'il y a entre la colonne A et Q inclus.

J'aimerais pouvoir choisir les colonnes qui m'intéressent.

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
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("A:Q").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

[SMBeccaria]

Bonjour Alain,

Essayer comme cela:

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("A:A,Q:Q").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

(si vous souhaitez A et Q)

Si vous souhaitez A, L, M, N:

Code :

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

Worksheets("Eric_Output_opti_AS_IS_TO_BE").Range("A:A,L:L,M:M,N:N").Copy Destination:=Worksheets("table AS_IS").Range("A1")

[bricko]

Merci ça marche