tableau excel

[loured]

Bonjour a tous

je recherche un moyen pour modifier un tableau excel

je voudrais passer d'un format

a b c
d e f
g h i
....

en

a
b
c
d
e
f
g
h
i
....

et la je seche

merci de vos reponses !!!

 

[Compte Supprimé 979]

Re : tableau excel

Salut Loured,

Copie / collage spécial -> Transposé

Ne sèche pas trop longtemps, bois un coup

A+

 

[Staple1600]

Re : tableau excel

Bonjour


BrunoM45
Comment tu fais à la mano (en une seule passe) la transposition ?


loured:
Par VBA (avec comme données , ton exemple)

Sub transpose()
Dim r As Range
Dim c As Range
Set r = _
Intersect(Columns("A"), ActiveSheet.UsedRange)
For Each c In r
c.Resize(, 3).Copy
Cells(65536, 4).End(xlUp).Offset(1, 0).PasteSpecial xlAll, xlNone, False, True
Next
Columns("A:C").Delete
Rows("1:1").Delete
End Sub

 

[Compte Supprimé 979]

Re : tableau excel

Salut Staple1600,

Comment tu fais à la mano (en une seule passe) la transposition ?

Tu peux pas ! C'est pour le fun

PS : vu le code pour les commandes MS-DOS, comme quoi en prog y'a toujours un moyen, je devrais le savoir

A+ good wikend

 

[Staple1600]

Re à tous,

lourreed
Ouf, tu me rassures

Sub TranspositionII()
Dim i&, j&, dc&, dl&, l_tpo&, r As Range, rr As Range
Set r = _
    Range("A1").CurrentRegion
dc = _
    r.Columns.Count
dl = _
    r.Rows.Count
l_tpo = _
    dl + 2
   
For i = 1 To dc
For j = 1 To dl
    Cells(l_tpo, 1) = Cells(i, j)
    l_tpo = l_tpo + 1
Next
Next
Set rr = _
    Range(Cells(dl + 2, "A"), _
    Cells([A65536].End(xlUp).Row, _
    "A")).SpecialCells(xlCellTypeBlanks)
rr.EntireRow.Delete shift:=xlUp
End Sub

 

[loured]

Re : tableau excel

merci beaucoup

elle fonctionne super

loured

 

[gilles4o41]

Re : tableau excel

bonjour je suit nouveau ici je sait que je suit pas a la bonne place mais je suit capable d,ecrire seulement ici pouvez vous me dire comment faaire pour ecrire une demande au debut du forum merci de votre aide

 

[trois ptits points]

Re : tableau excel

Bonjour
en début de forum:
Il y a un bouton créer une nouvelle discussion
=>Forum Excel - Excel Downloads Forums
Et tu obtiens ceci =>
@+
...