Excel 07 Modifier Macro
Cécile
-
Cécile -
Cécile -
Bonjour,
J'ai une macro réaliser sur un autre post par Pilas31 que je voudrai modifier si c'est possible.
Cette macro me copie un ensemble de cellule dans une autre feuille à la fin de ma liste.
J'ai 4 colonnes.
j'aimerai que la macro m'insère, entre 2 lignes, la ligne au bon endroit en prenant en compte la liste de la colonne A, puis la liste de la colonne B, puis la liste de la colonne C, puis la liste de la colonne D.
J'espère être clair dans ce que je cherche à faire.
Merci.
J'ai une macro réaliser sur un autre post par Pilas31 que je voudrai modifier si c'est possible.
Cette macro me copie un ensemble de cellule dans une autre feuille à la fin de ma liste.
J'ai 4 colonnes.
j'aimerai que la macro m'insère, entre 2 lignes, la ligne au bon endroit en prenant en compte la liste de la colonne A, puis la liste de la colonne B, puis la liste de la colonne C, puis la liste de la colonne D.
J'espère être clair dans ce que je cherche à faire.
Merci.
Configuration: Windows XP Firefox 3.0.7
2 réponses
-
Bonsoir,
Le plus simple est de laisser le collé en fin de liste et d'enchainer par un tri sur les colonne D, C et B puis un autre tri sur A.
Fais-le une fois manuellement en ayant démarré l'enregistreur de macro et tu auras les fonctions et syntaxes à utiliser.
eric -
Oups!
J'ai oublié la macro. La voilà, si cela peut servir.
Sub transpose_dans_tableau()
Sheets("Formulaire").Range("B1:B9").Copy
Sheets("Liste").Select
If Range("A2").Value = "" Then
Range("A2").Select
Else
Range("A" & Range("A1").End(xlDown).Row + 1).Select
End If
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Sheets("Formulaire").Range("B1:B9").ClearContents
Range("A1").Select
End Sub
