XL 2016 Copier coller en transposant d'une feuille à l'autre

[Débutant1998]

Bonjour,

Je suis en train de développé un outil pour mon entreprise pour mon mémoire de fin d'étude.
Je travaille sous Excel avec plusieurs feuilles de calcul.
Je souhaiterai mettre en place un code VBA permettant de sélectionner les données de la première ligne de la feuille 1. En sachant que je souhaite prendre que les cellules texte non vides et différentes de "Total".
Une fois ces cellules trouvées je souhaite les copier/coller dans ma feuille 2 en les transposant dans la première colonne de la feuille a partir de la 3ème ligne.

Pourriez-vous m'aider ?

Merci d'avance

 

[job75]

Bonjour Débutant1998,

Vous n'avez pas dû beaucoup chercher :

Sub Transpose()
Dim c As Range, lig&
lig = 3
With Sheets(2)
    For Each c In Sheets(1).UsedRange.Rows(1).Cells
        If c <> "" And UCase(c) <> "TOTAL" Then
            .Cells(lig, 1) = c
            lig = lig + 1
        End If
    Next
    .Range("A" & lig & ":A" & .Rows.Count).ClearContents
End With
End Sub

A+

 

[Débutant1998]

Bonjour,

Merci pour votre retour. J’ai testé le code malheureusement il me renvoie les valeurs de ma troisième ligne de mon tableau et non de la première.
Je n’ai pas eu le temps de le retravailler dessus pour le moment. Je vais essayé de l’adapter.

Bonne journée,

 

[job75]

Bonjour,

J’ai testé le code malheureusement il me renvoie les valeurs de ma troisième ligne de mon tableau et non de la première.

For Each c In Sheets(1).UsedRange.Rows(1).Cells traite la 1ère ligne de la 1ère feuille !