XL 2016 Insérer une ligne VIERGE entre chaque nouveau numéro de facture

[Alain93]

Bonjour à tous et toutes,
Chaque mois, je dois travailler un fichier de 500 factures mensuelles, 1400 lignes environ sur 12 colonnes.
J'aimerais insérer une ligne VIERGE entre chaque nouveau numéro de facture.
Je joins un fichier pour l'exemple attendu.
Bonne journée.
MERCI A TOUS

 

[Ikito]

Bonjour Alain93,

Ci-joint le fichier contenant la macro qui crée ce que tu as appelé "Résultat attendu". A modifier donc.

 

[pierrejean]

Bonjour Alain93

Un essai

 

[job75]

Bonjour Alain93, Ikito, Pierre,

Si l'on veut aller vite il faut utiliser des tableaux VBA, voyez le fichier joint et la macro du bouton :

Private Sub CommandButton1_Click()
Dim ncol%, tablo, resu(), i&, n&, j%
If CommandButton1.Caption = "Grouper" Then
    On Error Resume Next 'si aucune SpecialCell
    UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    With UsedRange: End With 'actualise la barre de défilement verticale
Else
    Application.ScreenUpdating = False
    If FilterMode Then ShowAllData 'si la feuilleest filtrée
    UsedRange.Sort UsedRange.Columns(2), Header:=xlYes 'tri sur les N°
    With UsedRange
        ncol = .Columns.Count
        If ncol = 1 Then ncol = 2
        tablo = .Resize(.Rows.Count + 1, ncol) 'matrice, plus rapide (1 ligne de plus)
        ReDim resu(1 To Rows.Count, 1 To ncol)
        For i = 2 To UBound(tablo) - 1
            n = n + 1
            For j = 1 To ncol
                resu(n, j) = tablo(i, j)
            Next j
            If tablo(i + 1, 2) <> tablo(i, 2) Then n = n + 1 'saut de ligne
        Next i
        If n Then .Offset(1).Resize(n - 1, ncol) = resu
    End With
End If
CommandButton1.Caption = IIf(CommandButton1.Caption = "Grouper", "Dissocier", "Grouper")
End Sub

A+

 

[pierrejean]

Re
Salut Gerard

J’étais en train de le faire
le voici en Feuil2

 

[job75]

Pierre, ta macro ne restitue pas la dernière ligne.

 

[pierrejean]

Re

Effectivement Merci
J'ai corrigé

 

[Alain93]

C'est super !!
Merci à vous tous trois à vous être penché sur mon souci.
Je vais gagner un temps fou...
Bonne journée à tous.
Alain