Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Débutant1998

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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,
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…