Incrémenter les colonnes dans une macro
Fermé
dudule75
-
13 nov. 2009 à 11:42
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 13 nov. 2009 à 12:26
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 13 nov. 2009 à 12:26
A voir également:
- Incrémenter les colonnes dans une macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Déplacer une colonne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
13 nov. 2009 à 12:26
13 nov. 2009 à 12:26
Salut,
Il te faut d'abord déterminer la dernière colonne comme ceci :
Dim dercol As Integer, i As Integer
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Et ensuite faire ta boucle en collant systématiquement sur la première ligne vide colonne A (qui comme tu le sais en VBA s'écrit : Range("A65536").End(xlUp).Offset(1, 0))
For i = 2 to dercol
Range(Cells(1, i),Cells(3, i).Copy Range("A65536").End(xlUp).Offset(1, 0)
Next
Code global :
Dim dercol As Integer, i As Integer
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
For i = 2 to dercol
Range(Cells(1, i),Cells(3, i).Copy Range("A65536").End(xlUp).Offset(1, 0)
Next i
EDIT: j'ai mis Copy, mais cela fonctionne de la même manière avec Cut
Il te faut d'abord déterminer la dernière colonne comme ceci :
Dim dercol As Integer, i As Integer
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Et ensuite faire ta boucle en collant systématiquement sur la première ligne vide colonne A (qui comme tu le sais en VBA s'écrit : Range("A65536").End(xlUp).Offset(1, 0))
For i = 2 to dercol
Range(Cells(1, i),Cells(3, i).Copy Range("A65536").End(xlUp).Offset(1, 0)
Next
Code global :
Dim dercol As Integer, i As Integer
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
For i = 2 to dercol
Range(Cells(1, i),Cells(3, i).Copy Range("A65536").End(xlUp).Offset(1, 0)
Next i
EDIT: j'ai mis Copy, mais cela fonctionne de la même manière avec Cut
