macro excel: transposition colonne en ligne Fermé

Question

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

hich24 · Answer

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é

eriiic · Answer

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

Macro excel: transposition colonne en ligne

2 réponses

Discussions similaires