Transposer un tableau multicritères

[JNH]

Bonjour,
Je sais que ce sujet à déjà été abordé mais je ne trouve pas de réponse à mon cas, visiblement un peu particulier.
J'aimerais transposer des coordonnées sur un tableau vertical en horizontal mais c'est une suite d'information avec un espace entre chaque bloc d'adresses.
Je joint un exemple.
Si quelqu’un à la solution, ça me sauverai de plusieurs heures de copier/coller.
Feuil 1 = Tableau original
Feuil 2= Résultat que j’aimerais obtenir

Merci.
JNH

 

[BOISGONTIER]

Re : Transposer un tableau multicritères

Bonjour,


http://boisgontierjacques.free.fr/fichiers/Matriciel/DEcalerColonneLigne.xls

JB

 

[JNH]

Re : Transposer un tableau multicritères

Bonjour,
Après une petite adaptation sur mon fichier, ça fonctionne !
Merci !

JN

 

[klin89]

Re : Transposer un tableau multicritères

Bonsoir à tous,

Avec la méthode SpecialCells :
Restitution en Feuil2.

Option Explicit

Sub test()
Dim myAreas As Areas, i As Long, n As Long
    On Error Resume Next
    Set myAreas = Sheets("Feuil1").Columns(2).SpecialCells(2).Areas
    On Error GoTo 0
    If myAreas Is Nothing Then Exit Sub
    n = 1
    With myAreas(1)
        myAreas(1).Offset(, -1).Copy
        Sheets("Feuil2").Cells(n, 1).PasteSpecial Transpose:=True
    End With
    For i = 1 To myAreas.Count
        n = n + 1
        myAreas(i).Copy
        Sheets("Feuil2").Cells(n, 1).PasteSpecial Transpose:=True
    Next
    Application.CutCopyMode = False
    Set myAreas = Nothing
End Sub

klin89

 

[JNH]

Re : Transposer un tableau multicritères

Bonjour,
Merci.
Je ne maîtrise pas bien le VBA ! C'est dommage parce que ça apporte bcp de solutions... :-(
Je suis parti sur la solution de BOISGONTIER.
Merci à vous !
JN