Microsoft 365 mise en forme transposition

D

danielco

XLDnaute Accro

• 25 Novembre 2020

• #2

Bonjour,

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

Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Novembre 2020

• #3

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

VB:

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 )

 

Pièces jointes

• fichier publis.xlsm

  16.6 KB · Affichages: 3

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 25 Novembre 2020

• #4

Bonjour,
Un essai à tester

 

Pièces jointes

• fichier publis.xlsm

  18 KB · Affichages: 12

Vote positif 0 Vote négatif

S

stephanie94

XLDnaute Nouveau

• 25 Novembre 2020

• #5

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

 

Vote positif 0 Vote négatif