Superposer plusieurs colonnes sous une même plage de colonnes
Gabbi
-
gabbi -
gabbi -
Bonjour,
J'ai un fichier avec une 60aine de colonnes, qui se structure de la façon suivante:
>> colonne A à E : client/date commande/ produit / quantité de la semaine x
>> colonne F à J : client/date commande/ produit / quantité de la semaine y...
Je souhaiterais que toutes les infos soient contenues dans la plage de colonne A:E et donc superposer les colonnes F:J / K:0... sous la colonne A:E.
J'ai très peu de notions en vba, mais en faisant des recherches je suis tombée sur cette macro qui me permet de superposer plusieurs colonnes en une seule. Mais comment faire pour superposer des plages de colonnes? (j'ai essayé d'insérer un step, mais je tombe sur une erreur):
Dim MaPlage As Range, cmpt As Long
Set MaPlage = Columns("A:F").SpecialCells(xlCellTypeBlanks)
'vire les cellules vides
MaPlage.Delete xlUp
'remonte toute les valeurs sur la première colonne
Set MaPlage = Columns("A:A")
For cmpt = 1 To 5
MaPlage.Offset(, cmpt).SpecialCells(xlCellTypeConstants).Copy Destination:=MaPlage.End(xlDown).Offset(1)
Next
Columns("B:F").ClearContents
Merci par avance pour votre aide!
J'ai un fichier avec une 60aine de colonnes, qui se structure de la façon suivante:
>> colonne A à E : client/date commande/ produit / quantité de la semaine x
>> colonne F à J : client/date commande/ produit / quantité de la semaine y...
Je souhaiterais que toutes les infos soient contenues dans la plage de colonne A:E et donc superposer les colonnes F:J / K:0... sous la colonne A:E.
J'ai très peu de notions en vba, mais en faisant des recherches je suis tombée sur cette macro qui me permet de superposer plusieurs colonnes en une seule. Mais comment faire pour superposer des plages de colonnes? (j'ai essayé d'insérer un step, mais je tombe sur une erreur):
Dim MaPlage As Range, cmpt As Long
Set MaPlage = Columns("A:F").SpecialCells(xlCellTypeBlanks)
'vire les cellules vides
MaPlage.Delete xlUp
'remonte toute les valeurs sur la première colonne
Set MaPlage = Columns("A:A")
For cmpt = 1 To 5
MaPlage.Offset(, cmpt).SpecialCells(xlCellTypeConstants).Copy Destination:=MaPlage.End(xlDown).Offset(1)
Next
Columns("B:F").ClearContents
Merci par avance pour votre aide!
A voir également:
- Excel empiler plusieurs colonnes
- Formule moyenne excel plusieurs colonnes - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Déplacer colonne excel - Guide
- Liste déroulante excel - Guide
- Comment faire des colonnes sur word - Guide