VBA - Collage transposé

[yoanncloet]

Bonjour à tous,

Je reçois tous les mois le fichier suivant (onglet "Data").
Ce fichier me sert de base tous les mois et me permet de faire des croisements avec d'autres fichiers à analyser.

La présentatioin de ce fichier ne me satisfait pas pour les recherchesv. Je dois toujours le transposer. Il est est pas énorme mais c'est pas passionnant et ça prend néanmoins du temps.

Je souhaiterai automatiser cette tâche mais mon niveau en VBA ne me le permet pas... 😡

Pouvez vous svp m'aider ? Je joins un fichier.
L'onglet "Data" est la source que je reçois tous les mois.
Ensuite le secon onglet est le résultat que je souhaiterai. A partir de l'UGA, j'ai besoin du secteur et du nom).

N'hésitez pas si vous la moindre question.
Merci d'avance aux âmes charitables qui sauront et qui prendront le temps de m'aider.

Bon courage et bonne journée.
Yoann

 

[mromain]

Re : VBA - Collage transposé

Bonjour Yoann,

voici un essai :

Sub test()
Dim iLig As Long, zoneCopie As Range, zoneColle As Range
    
    With ThisWorkbook.Sheets("Data")
        'boucler sur toutes les lignes de la feuille "Data"
        For iLig = 2 To .Range("C" & .Rows.Count).End(xlUp).Row
            Set zoneCopie = .Range(.Cells(iLig, 3), .Cells(iLig, .Columns.Count).End(xlToLeft))
            With ThisWorkbook.Sheets("Résultat souhaité")
                Set zoneColle = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(zoneCopie.Count, 1)
            End With
            zoneCopie.Copy
            zoneColle.PasteSpecial xlPasteValues, , , True
            zoneColle.Offset(0, 1).Value = .Range("A" & iLig)
            zoneColle.Offset(0, 2).Value = .Range("B" & iLig)
        Next iLig
    End With
    Application.CutCopyMode = False
End Sub

a+

 

[pierrejean]

Re : VBA - Collage transposé

bonjour Yoann

Vois si cela te convient

 

[mromain]

Re : VBA - Collage transposé

bonjour Yoann

Vois si cela te convient

Bonjour pierrejean,

décidément, on arrête pas de se croiser 😉.

a+

 

[yoanncloet]

Re : VBA - Collage transposé

merci à tous les 2 pour vos réponses.
Pierrejean, ta solution me convient à merveille.
C'est exactement ce dont j'ai besoin. Un énorme merci.
ça me montre une fois de plus l'intérêt de VBA... va vraiment falloir que je m'y colle.

Merci et bonne journée.
Yoann