transposer multiple

Le
jip
Bonjour
dans plusieurs tableaux excel 2010 j'ai des données 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

Merci d'avance.
Cordialement
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
News.aioe.org
LSteph
Le #26423441
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
Publicité
Poster une réponse
Anonyme