transposer colonnes en lignes

[kitsune75]

transposition

Bonjour,


par avance merci à celui qui me sortira de ce pétrin 😛

 

[kitsune75]

Re : transposer colonnes en lignes

juste pour info car ça n'a pas tres bien formaté :


ce sont bien deux colonnes distinctes,

...

 

[kitsune75]

Re : transposer colonnes en lignes

encore une précision vraiment désolé

le nombre de blocs de texte est aussi aléatoire

et en fait je voudrais plutôt au final que ça ressemble à ça

 

[Cousinhub]

Re : transposer colonnes en lignes

Bonjour, regarde le fichier joint, et reviens si problème

le code :

Option Compare Text
Sub transpose_section()
Application.ScreenUpdating = False
    With Sheets("Feuil1").Range("A1:A" & [A65000].End(xlUp).Row)
        Set c = .Find("section", LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Firstaddress = c.Address
            Do
                derlig = Cells(c.Row, 1).End(xlDown).Row
                Range(Cells(c.Row, 1), Cells(derlig, 2)).Copy
                Cells(c.Row, 4).Select
                Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                    False, Transpose:=True
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Firstaddress
        End If
    End With
Columns("A:C").Delete Shift:=xlToLeft
[A1].Select
End Sub

 

[kitsune75]

Re : transposer colonnes en lignes

merci merci beaucoup beaucoup à tous !! vous êtes génials

 

[Cousinhub]

Re : transposer colonnes en lignes

Bonsoir,
je ne comprends pas ta demande??? 😕

dans mon cas les bloc de texte sont doublés voir triplés sur la droite ...

je n'en vois pas dans le fichier que tu viens de fournir....😱

OK, je viens de voir...
le souci, c'est qu'entre chaque bloc, tu "crois" avoir des cellules vides, mais elles ne le sont pas.....
Ton fichier provient d'une extraction?

 

[Cousinhub]

Re : transposer colonnes en lignes

OK,
voici le fichier modifié
j'espère qu'il fonctionnera sur ton fichier perso

 

[kitsune75]

Re : transposer colonnes en lignes

merci c'est impecc

 

[kana]

Re : transposer colonnes en lignes

Bonjour,

J'ai le même besoin en fait, j'ai essayé d'utiliser le même code mais ça me génère l'erreur suivante

------------------------------
erreur d'exécution "9"
L'indice n'appartient pas à la sélélction
------------------------------

en fait le code ne ma pas permis de transposer colonne en lignes mais d'ajouter une ligne vide au dessus.

Merci pour votre aide

OK,
voici le fichier modifié
j'espère qu'il fonctionnera sur ton fichier perso