VBA Excel: copie de colonnes ds une feuille

Question

Bonjour,
Je suis sur une macro qui me permettrait de copier chaque colonne de ma feuille d'origine dans une nouvelle feuille.
C'est à dire, si j'ai une feuille avec 15 colonnes (différentes) j'aurai 15 nouvelles feuilles avec chacune une colonne. La seule condition est de répéter à chaque fois la colonne A dont le nombre de lignes sera le même que celui de la colonne à copier (les différentes colonnes de ma feuille d'origine n'ont pas toutes le même nombre de lignes). Seulement je n'arrive pas à finir. La macro me copie à chaque fois la même chose dans le bon nombre de nouvelles feuilles pourtant.

Quelqu'un pourrait m'aider?

Voici mon code:

Sub Copier_Colonnes()
Dim i, k, c, l As Integer

col = Range([A1], [A1].End(xlToRight)).Columns.Count


For k = 2 To col
    Cells(1, k).Activate
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    li = Selection.Rows.Count
    Range(Cells(1, 1), Cells(li, k)).Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    
Next k

End Sub


Merci d'avance

Polux31 · Accepted Answer

bonjour,

Regarde si ça fonctionne avec ça :
    For k = 2 To col
        Worksheets("Feuil1").Activate
        Cells(1, k).Activate
        Range(ActiveCell, ActiveCell.End(xlDown)).Select
        li = Selection.Rows.Count
        Range(Cells(1, k), Cells(li, k)).Select
        Selection.Copy
        Sheets.Add
        ActiveSheet.Paste
        Range("A1").Select
        Application.CutCopyMode = False
    Next k

;o)

polux

Polux31 · Answer

De rien ... content de t'avoir aidé

;o)

polux

PS: n'oublie pas de mettre "résolu"

VBA Excel: copie de colonnes ds une feuille

2 réponses

Newsletters