Discussion :

[cyberboy00]

Bonjour,
Je suis débutant en VBA/Excel, je cherche à copier les deux premières colonnes de toutes les feuilles existantes dans un fichier excel et ensuite créer une nouvelles feuille(ou fichier)a vec les colonnes copiées.

D'avance merci !
Bonne journée.

[mercatog]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Ws As Worksheet
Dim i As Integer, n As Integer
 
n = Worksheets.Count
Set Ws = Worksheets.Add(after:=Sheets(n))
 
For i = 1 To n
    Worksheets(i).Range("A:C").Copy Ws.Cells(1, 2 * i - 1)
Next i
Set Ws = Nothing

[cyberboy00]

Merci infiniment pour votre réponse !
Est ce possible de mettre la feuille ainsi crée en premier ?
D'avance merci !

[mercatog]

Idem

Code :

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

1
2
3
4
5
6
7
8
Dim Ws As Worksheet
Dim i As Integer
 
Set Ws = Worksheets.Add(before:=Sheets(1))
For i = 2 To Worksheets.Count
    Worksheets(i).Range("A:B").Copy Ws.Cells(1, 2 * i - 3)
Next i
Set Ws = Nothing

[cyberboy00]

Merci beaucoup !
J'aimerais (si je n'abuse pas de votre gentillesse) rajouter les noms des feuilles en haut de chaque colonne dans la nouvelle feuille crée ?
Merci infiniment !

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Dim Ws As Worksheet
Dim i As Integer
 
Set Ws = Worksheets.Add(before:=Sheets(1))
For i = 2 To Worksheets.Count
    Worksheets(i).Range("A:B").Copy Ws.Cells(1, 2 * i - 3)
    Ws.Cells(1, 2 * i - 3).Value = Worksheets(i).Name
Next i
Set Ws = Nothing

[cyberboy00]

Merci beaucoup !