EXCEL redistibuer les lignes en colonnes
Résolu
nicool83
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Sous excel 2003, je cherche à redistribuer les info sur d'une ligne en une colonne tout en gardant pour chaque l'info de la première cellule, je m'explique, j'ai un tableau qui ressemble à ça:
nom1 12 25 27 98 2
nom2 54 78 2 21 877 87
...
et j'aimerais avoir:
nom1 12
nom1 25
nom1 27
nom1 98
nom1 2
nom2 54
nom2 78
nom2 2
nom2 21
nom2 877
nom2 87
...
c'est possible ou pas?? sachant que la fonction transposer n'a pas l'air de marcher dans ce cas...
aidez-moi s'il vous plait!!!! j'en peux plus!!!!
merci d'avance,
Sous excel 2003, je cherche à redistribuer les info sur d'une ligne en une colonne tout en gardant pour chaque l'info de la première cellule, je m'explique, j'ai un tableau qui ressemble à ça:
nom1 12 25 27 98 2
nom2 54 78 2 21 877 87
...
et j'aimerais avoir:
nom1 12
nom1 25
nom1 27
nom1 98
nom1 2
nom2 54
nom2 78
nom2 2
nom2 21
nom2 877
nom2 87
...
c'est possible ou pas?? sachant que la fonction transposer n'a pas l'air de marcher dans ce cas...
aidez-moi s'il vous plait!!!! j'en peux plus!!!!
merci d'avance,
A voir également:
- EXCEL redistibuer les lignes en 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
8 réponses
Bonjour
voici un VBA à coller dans un module
Selon la destination des données, il faut changer le nom des feuilles et les variables ligne et colonne.
voici un VBA à coller dans un module
Option Explicit
Sub MiseEnFormeColonne()
Dim Départ, Final
Dim LigneDépart, ColonneDépart, LigneFinal
Set Départ = ActiveWorkbook.Sheets("Départ")
Set Final = ActiveWorkbook.Sheets("Final")
LigneDépart = 1: ColonneDépart = 2: LigneFinal = 1
Do While Départ.Cells(LigneDépart, 1) <> ""
Do While Départ.Cells(LigneDépart, ColonneDépart) <> ""
Final.Cells(LigneFinal, 1) = Départ.Cells(LigneDépart, 1)
Final.Cells(LigneFinal, 2) = Départ.Cells(LigneDépart, ColonneDépart)
LigneFinal = LigneFinal + 1
ColonneDépart = ColonneDépart + 1
Loop
ColonneDépart = 2
LigneDépart = LigneDépart + 1
Loop
End Sub
Selon la destination des données, il faut changer le nom des feuilles et les variables ligne et colonne.
bonjour
une autre solution serait de transposer les lignes et les colonnes
voir ici
http://bvrve.club.fr/Astuces_Michel/02excel.html
bonne journée
une autre solution serait de transposer les lignes et les colonnes
voir ici
http://bvrve.club.fr/Astuces_Michel/02excel.html
bonne journée
Re,
Dans mon code, j'ai une feuille de départ nommée "Départ" et une feuille pour le résultat final "Final"
Set Départ = ActiveWorkbook.Sheets("Départ")
Set Final = ActiveWorkbook.Sheets("Final")
Les titres sont en A1 de la feuille Départ et j'écris en A1 de la feuille Final :
les données sont donc en colonne 2 (titre en A et données en B, C...)
LigneDépart = 1: ColonneDépart= 2: LigneFinal = 1
Do While Départ.Cells(LigneDépart, 1) <> ""
Final.Cells(LigneFinal, 1) = Départ.Cells(LigneDépart, 1)
Final.Cells(LigneFinal, 2) = Départ.Cells(LigneDépart, ColonneDépart)
ColonneDépart = 2
Si tu démarres en C5 par exemple et que tu écris en Z10 :
les données sont donc en colonne 4 (titre en C et données en D, E...)
LigneDépart = 5: ColonneDépart= 4: LigneFinal = 10
Do While Départ.Cells(LigneDépart, 3) <> ""
Final.Cells(LigneFinal, 26) = Départ.Cells(LigneDépart, 3)
Final.Cells(LigneFinal, 27) = Départ.Cells(LigneDépart, ColonneDépart)
ColonneDépart = 4
Bonjour
a la bourre: coupures de courant suite à orage de grêle dans mon coin... j'ai recommencer n-2 fois (n=nombre de coupures)
ci joint proposition sans macro....
https://www.cjoint.com/?ethoxuPeCn
j'ai laissé volontairement en tableau intermédiaire pour la compréhension de la bête
a la bourre: coupures de courant suite à orage de grêle dans mon coin... j'ai recommencer n-2 fois (n=nombre de coupures)
ci joint proposition sans macro....
https://www.cjoint.com/?ethoxuPeCn
j'ai laissé volontairement en tableau intermédiaire pour la compréhension de la bête
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
L'option transposer ne marche pas
► si on fait un "couper"
► si on essaie de coller en partie sur la zone copiées.
Tu dois donc
► "copier"
► "coller spécial transposé" plus bas
► supprimer la source …
Cela dit, la feuille n'étant pas "carrée", on ne peut pas toujours …
mais je comprend pas trop ce que je doi changer, jsuis un peu neuneu, surtout en vba...
donc si je n'abuse pas trop de ta bonté pourrais-tu mettre en gras ce que je dois modifier,
parce que là j'ai essayé tel quel et ça me met "nom ambigu detecté : MiseEnFormeColonne"
donc si tu pouvais me donner quelque précisions quant à l'utilisation de ta macro, ça serait cool.
merci!