NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff
NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne
dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un
moyen de transposer de la sorte des données initialement en colonnes, en
lignes.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco d ne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff
NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco d ne
dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un
moyen de transposer de la sorte des données initialement en colonnes, en
lignes.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco d ne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
Merci de votre aide
Sébastien
Seb
Oui je connais la manip depuis peu, mais je ne peux pas le faire pour 4000 articles.. c'est trop long
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
Merci de votre aide
Sébastien
Oui je connais la manip depuis peu, mais je ne peux pas le faire pour 4000
articles.. c'est trop long
Merci
Sébastien
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160931356.495431.193360@k70g2000cwa.googlegroups.com...
Bonjour,
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff
NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco
dne
dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un
moyen de transposer de la sorte des données initialement en colonnes, en
lignes.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
Merci de votre aide
Sébastien
Il n'y a que 255 colonnes!
JB
Oui je connais la manip depuis peu, mais je ne peux pas le faire pour 4000
articles.. c'est trop long
Merci
Sébastien
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160931356.495431.193360@k70g2000cwa.googlegroups.com...
Bonjour,
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff
NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco
dne
dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un
moyen de transposer de la sorte des données initialement en colonnes, en
lignes.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
Merci de votre aide
Sébastien
Seb
Yessss, ça marche nickel
J'avais juste à modifier un paramètre : remplacer " For i = 2 to 30 " par "For i = 2 to 54776 " ps: 54776 : nbre de lignes de mon fichier.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff
NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
Merci de votre aide
Sébastien
Bonsoir JB
En suivant ta disposition et si toute ta colonne des références a été triée
par ordre croissant
Sub trans()
Dim L1#, L2#, plg As Range, i %
L1 = 1
While Cells(L1, 1) <> ""
i = i + 1
L1 = [A:A].Find(Cells(L1, 1), , 1, 1, , 1, 1).Row
Cells(i, 3) = Cells(L1, 1)
L1 = L1 + (L1 = 2)
L2 = Application.Match(Cells(L1, 1), [A:A], 1)
Set plg = Range(Cells(L1, 2), Cells(L2, 2))
Range(Range(Cells(i, 4), Cells(i, 4 + L2 - L1)).Address) Application.transpose(plg)
L1 = L2 + 1
Wend
End Sub
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160935110.730155.115670@i3g2000cwc.googlegroups.com...
Il n'y a que 255 colonnes!
JB
Oui je connais la manip depuis peu, mais je ne peux pas le faire pour 4000
articles.. c'est trop long
Merci
Sébastien
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160931356.495431.193360@k70g2000cwa.googlegroups.com...
Bonjour,
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi
pff
NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco
dne
dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un
moyen de transposer de la sorte des données initialement en colonnes, en
lignes.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff
NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne dnm pff
Comme j'ai 4000 articles comme ceux là, j'aimerai savoir si il existe un moyen de transposer de la sorte des données initialement en colonnes, en lignes.
Merci de votre aide
Sébastien
Fredo P.
La presque même !!, sans doute beaucoup plus rapide. Sub trans() Dim L1#, L2#, plg As Range, i % L1 = 1 While Cells(L1, 1) <> "" i = i + 1 L1 = [A:A].Find(Cells(L1, 1), , 1, 1, , 1, 1).Row Cells(i, 3) = Cells(L1, 1) L2 = Application.Match(Cells(L1, 1), [A:A], 1) Set plg = Range(Cells(L1, 2), Cells(L2, 2)) Range(Cells(i, 4), Cells(i, 4 + L2 - L1)) Application.transpose(plg) L1 = L2 + 1 Wend End Sub
"Seb" a écrit dans le message de news: 4532951e$0$27400$
Yessss, ça marche nickel
J'avais juste à modifier un paramètre : remplacer " For i = 2 to 30 " par "For i = 2 to 54776 " ps: 54776 : nbre de lignes de mon fichier.
NH000001000001 ap sc1 fp l6 l8 l12 ft2 pt2 expbd dco dne dnm dmi pff NH000001000002 ap fond s12 sc1 fp l6 l8 ft2 cr52 c20 expt dsc dco dne dnm pff
Bonsoir,
Vas voir dans l'exemple joint http://cjoint.com/?kptQimfMoH la macro "transpose" et adaptes là à ton cas.
-- François L
Garette
Bonsoir,
Tu peux également utiliser la Macro suivante :
Sub Copie_Transposee() ActiveCell.CurrentRegion.Copy Range("D1").PasteSpecial transpose:=True End Sub
Pour quelle fonctionne, il faut que la cellule active soit une cellule pleine de la zone à copier. Elle copie l'ensemble transposé en D1. Pour choisir la zone de départ, remplacer ActiveCell.CurrentRegion.Copy par Range("A1").CurrentRegion.Copy (où A1 peut etre remplacer aussi par la zone à copier)
Bonsoir,
Tu peux également utiliser la Macro suivante :
Sub Copie_Transposee()
ActiveCell.CurrentRegion.Copy
Range("D1").PasteSpecial transpose:=True
End Sub
Pour quelle fonctionne, il faut que la cellule active soit une cellule
pleine de la zone à copier.
Elle copie l'ensemble transposé en D1.
Pour choisir la zone de départ, remplacer
ActiveCell.CurrentRegion.Copy
par
Range("A1").CurrentRegion.Copy (où A1 peut etre remplacer aussi par la zone
à copier)
Sub Copie_Transposee() ActiveCell.CurrentRegion.Copy Range("D1").PasteSpecial transpose:=True End Sub
Pour quelle fonctionne, il faut que la cellule active soit une cellule pleine de la zone à copier. Elle copie l'ensemble transposé en D1. Pour choisir la zone de départ, remplacer ActiveCell.CurrentRegion.Copy par Range("A1").CurrentRegion.Copy (où A1 peut etre remplacer aussi par la zone à copier)
Francois L
La presque même !!, sans doute beaucoup plus rapide. Sub trans() Dim L1#, L2#, plg As Range, i % L1 = 1 While Cells(L1, 1) <> "" i = i + 1 L1 = [A:A].Find(Cells(L1, 1), , 1, 1, , 1, 1).Row Cells(i, 3) = Cells(L1, 1) L2 = Application.Match(Cells(L1, 1), [A:A], 1) Set plg = Range(Cells(L1, 2), Cells(L2, 2)) Range(Cells(i, 4), Cells(i, 4 + L2 - L1)) > Application.transpose(plg) L1 = L2 + 1 Wend End Sub
Bonjour,
Beaucoup mieux, oeuf corse, mais oublie de traiter la première ligne du tableau sur 2 colonnes :-))
-- François L ... mauvais joueur ?
La presque même !!, sans doute beaucoup plus rapide.
Sub trans()
Dim L1#, L2#, plg As Range, i %
L1 = 1
While Cells(L1, 1) <> ""
i = i + 1
L1 = [A:A].Find(Cells(L1, 1), , 1, 1, , 1, 1).Row
Cells(i, 3) = Cells(L1, 1)
L2 = Application.Match(Cells(L1, 1), [A:A], 1)
Set plg = Range(Cells(L1, 2), Cells(L2, 2))
Range(Cells(i, 4), Cells(i, 4 + L2 - L1)) > Application.transpose(plg)
L1 = L2 + 1
Wend
End Sub
Bonjour,
Beaucoup mieux, oeuf corse, mais oublie de traiter la première ligne du
tableau sur 2 colonnes :-))