XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne

cathodique à dit:

Bonjour,

Résultat en colonne H. Mettre le code dans un module standard et l’exécuter (F5).

VB:

Sub Eclater_ColA_Vers_ColH()

    Dim ws As Worksheet, lastRow As Long, i As Long, j As Long
    Dim tb As Variant, ligneH As Long
   
    Set ws = ThisWorkbook.Worksheets("Feuil2")
   
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
   
    ligneH = 1
   
    For i = 1 To lastRow
        If ws.Cells(i, "A").Value <> "" Then
            tb = Split(ws.Cells(i, "A").Value, vbLf)
           
            For j = LBound(tb) To UBound(tb)
                ws.Cells(ligneH, "H").Value = Trim(tb(j))
                ligneH = ligneH + 1
            Next j
        End If
    Next i
   
    MsgBox "Transfert terminé !", vbInformation

End Sub

A+

Cliquez pour agrandir...