VBA Excel: copie de colonnes ds une feuille
nath
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- VBA Excel: copie de colonnes ds une feuille
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
bonjour,
Regarde si ça fonctionne avec ça :
;o)
polux
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
ça marche nickel!
:)