Excel 07 Modifier Macro
Fermé
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.
A voir également:
- Excel 07 Modifier Macro
- Modifier liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Modifier dns - Guide
- Word et excel gratuit - Guide
- Si et excel - Guide
2 réponses
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 257
26 mars 2009 à 23:15
26 mars 2009 à 23:15
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
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
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
26 mars 2009 à 23:25
J'essayerai de le faire comme vous me l'avez proposé demain car il est grand temps que j'aille dormir.
Bonne nuit à tous.
Amicalement, A bientôt. ;o)