Bonjour
dans plusieurs tableaux excel 2010 j'ai des donn=C3=A9es sur plusieurs col=
onnes que je souhaite regrouper dans une seule.
Le transposer ne suffit pas car il faudrait les faire une par une ou alors =
il y a une astuce ?
Fichier partiel pour exemple :
http://www.cjoint.com/c/GAnlQ6MimIR
Bonjour, Regarde ton fichier : http://www.cjoint.com/c/GAnm36MxMJi MichD
LSteph
Bonjour, Sub transpospace() Dim maplage As Range, i As Long, j As Long, k As Long Set maplage = [A2].CurrentRegion k = maplage.Rows.Count + 2 Range(Cells(k, 1), Cells([A:A].Cells.Count, 1)).ClearContents For i = 1 To maplage.Columns.Count For j = 1 To maplage.Rows.Count If Len(maplage.Cells(j, i)) > 0 Then Cells(k, 1) = maplage.Cells(j, i) k = k + 1 End If Next j Next i End Sub 'LSteph
Bonjour,
Sub transpospace()
Dim maplage As Range, i As Long, j As Long, k As Long
Set maplage = [A2].CurrentRegion
k = maplage.Rows.Count + 2
Range(Cells(k, 1), Cells([A:A].Cells.Count, 1)).ClearContents
For i = 1 To maplage.Columns.Count
For j = 1 To maplage.Rows.Count
If Len(maplage.Cells(j, i)) > 0 Then
Cells(k, 1) = maplage.Cells(j, i)
k = k + 1
End If
Bonjour, Sub transpospace() Dim maplage As Range, i As Long, j As Long, k As Long Set maplage = [A2].CurrentRegion k = maplage.Rows.Count + 2 Range(Cells(k, 1), Cells([A:A].Cells.Count, 1)).ClearContents For i = 1 To maplage.Columns.Count For j = 1 To maplage.Rows.Count If Len(maplage.Cells(j, i)) > 0 Then Cells(k, 1) = maplage.Cells(j, i) k = k + 1 End If Next j Next i End Sub 'LSteph