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
- Comment modifier un pdf - 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 247
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)