Microsoft 365 mise en forme transposition

[stephanie94]

Bonjour j'ai un ficier avec des données en colonne A1 avec le titre puis l'auteur dans la cellule du dessous
il faudrait que je mette la 2eme ligne sur la colonne B en regard de la ligne titre
vous trouverez ci joint un fichier
n'hésitez pas si vous avez des questions
merci d'avance

 

[danielco]

Bonjour,

Apparemment, le classeur ne correspond pas à ce que tu expliques ?

Daniel

 

[sylvanu]

Bonjour Stéphanie, Danielco,
Un essai en PJ avec :

Sub Transfert()
Application.ScreenUpdating = False
DerLig = Sheets("Feuil1").Range("A65500").End(xlUp).Row
' Transfert cellule en A dans cellule en B
For i = 2 To DerLig
    If Cells(i + 1, "B") = "" Then
        Cells(i, "B") = Cells(i + 1, "A")
    End If
Next i
' Suppression des lignes
For i = DerLig To 2 Step -1
    If Cells(i, "B") = "" Then
        Rows(i).Delete
    End If
Next i
End Sub

Je l'ai fait en deux parties distinctes ( copie puis suppress ) pour simplifier la compréhension.
La macro se lance en faisant ALT+F8 et exécuter Transfert
( Restera à gérer la largeur de colonne car la colonne B contient beaucoup de texte )

 

[M12]

Bonjour,
Un essai à tester

 

[stephanie94]

merci a tous
Ta macro M12 , (desolé sylvanu ta macro est plus évoluée et plus difficile ve mon pauvre niveau) fonctionne super bien vous m'avez sauvé ma journée
merci à tous pour votre aide
cordialement