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

Débutant1998 · 2 Juin 2023

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 · 2 Juin 2023

Bonjour Débutant1998,

Vous n'avez pas dû beaucoup chercher :

VB:

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 · 3 Juin 2023

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 · 3 Juin 2023

Débutant1998 à dit:
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 !

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

Débutant1998

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Débutant1998

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires