Macro excel: transposition colonne en ligne

magali87 -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention - 28 avril 2010 à 20:24

Bonjour,

Je cherche une macro qui me permette de transposer un tableau excel de forme

code1 fourn1 G1
code1 fourn2
code1 fourn3 G2
code2 fourn2 G3
code2 fourn5 G4

en tableau de type

code1 fourn1 G1 fourn2 fourn3 G2
code2 fourn2 G3 fourn5 G4

sachant qu'il est très important qu'on ne retrouve pas sur une même colonne à la fois des fourn et des G.

Merci de votre aide,

Magali

Afficher la suite

A voir également:

Transposer ligne en colonne excel vba
Déplacer colonne excel - Guide
Trier colonne excel - Guide
Partager photos en ligne - Guide
Formule somme excel colonne - Guide
Aller à la ligne excel - Guide

2 réponses

Réponse 1 / 2

hich24 Messages postés 1635 Date d'inscription Statut Membre Dernière intervention 753

tu selectionne tout les colonne puis :

1- copier
2- sur une nouvelle feuille > menu EDITION > COLLAGE SEPECIALE
3- DANS LA FENTRE QUI S'OUVRE
*- copier : tout
*- operation : Aucune
4- cocher la case TRANSPOSER
5- ok

inchallah ca va marché

Réponse 2 / 2

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Bonjour,

sachant qu'il est très important qu'on ne retrouve pas sur une même colonne à la fois des fourn et des G.
J'ai supposé que tes données étaient régulières et qu'en B on ne pouvait avoir que 'fournx', et en C que 'Gx'. Je laisse donc vides les données absentes pour que les valeurs des colonnes soient de même type.
Supposé aussi que tes données commençaient en ligne 2.

Le code :

Sub Compile() 
    Dim lig As Long, n As Long, memlig As Long 
    n = 1 
    Application.ScreenUpdating = False 
    For lig = 2 To [A65536].End(xlUp).Row 
        If Cells(lig, 1) = Cells(lig - 1, 1) Then 
            Cells(lig, 2).Resize(1, 2).Copy Destination:=Cells(memlig, 2).Offset(0, (n * 2)) 
            n = n + 1 
        Else 
            n = 1 
            memlig = lig 
        End If 
    Next lig 
    For lig = [A65536].End(xlUp).Row To 2 Step -1 
        If Cells(lig, 1) = Cells(lig - 1, 1) Then 
            Cells(lig, 1).EntireRow.Delete 
        End If 
    Next lig 
    Application.ScreenUpdating = True 
End Sub

eric

Discussions similaires

Macro, excel, rechercher une valeur

[vba] recherche d'une valeur EXACTE

chercher une valeur dans une colonne précise

Méthode find dans VBA - Recherche de données sous Excel

Excel VBA copier coller plusieurs cellule

Macro recherche dans une colonne excel

Votre réponse

Discussions similaires