XL 2019 Macro : création d'une boucle avec tableau

SCORP95 · 8 Février 2021

Bonjour à tous !

Je bloque sur la mise en place d'une boucle. Dans le fichier ci-joint, il y a un tableau 4 colonnes.
Je souhaitais créer une boucle qui permette de vérifier pour chaque ligne du tableau si la première cellule ( colonne "date") est vide. Si elle est non vide, alors on passe à la ligne suivante. Si elle est vide, alors on va sur la seconde cellule de la ligne ( colonne " libellé de l'opé ") , coupe l'ensemble des données et la rajoute dans la cellule juste au-dessus. [ On part du principe que la première cellule de la première ligne est forcément non nul] . Puis, répéter l'opération, jusqu'à à la dernière ligne du tableau. Voici un exemple imagé

Début

Fin

Si un connaisseur pouvez m'aider, ce serait super aimable !

Merci d'avance.

Scorp

sylvanu · 8 Février 2021

Bonsoir Scorp,
Un essai en PJ avec :

VB:

Sub Compresse()
    Application.ScreenUpdating = False      ' Fige écran
    DL = Range("C65500").End(xlUp).Row      ' Calcul dernière ligne
    For L = DL To 6 Step -1                 ' pour toutes les lignes
        If Cells(L, "B") = "" Then          ' Si B est vide
            Cells(L - 1, "C") = Cells(L - 1, "C") & "  [ " & Cells(L, "C") & " ]"
            Cells(L, "B").EntireRow.Delete  ' On supprime la ligne
        End If
    Next L
End Sub

Si la matrice est vraiment très grande, alors il faut passer par des arrays pour accélérer. Plus complexe mais plus rapide.

sylvanu · 8 Février 2021

Bonsoir Scorp,
Un essai en PJ avec :

VB:

Sub Compresse()
    Application.ScreenUpdating = False      ' Fige écran
    DL = Range("C65500").End(xlUp).Row      ' Calcul dernière ligne
    For L = DL To 6 Step -1                 ' pour toutes les lignes
        If Cells(L, "B") = "" Then          ' Si B est vide
            Cells(L - 1, "C") = Cells(L - 1, "C") & "  [ " & Cells(L, "C") & " ]"
            Cells(L, "B").EntireRow.Delete  ' On supprime la ligne
        End If
    Next L
End Sub

Si la matrice est vraiment très grande, alors il faut passer par des arrays pour accélérer. Plus complexe mais plus rapide.

chris · 8 Février 2021

Bonjour

Une solution PowerQuery, intégré à Excel, sans VBA

Actualiser par Données, Actualiser tout si la source évolue

SCORP95 · 8 Février 2021

sylvanu à dit:
Bonsoir Scorp,
Un essai en PJ avec :

VB:

Sub Compresse() Application.ScreenUpdating = False ' Fige écran DL = Range("C65500").End(xlUp).Row ' Calcul dernière ligne For L = DL To 6 Step -1 ' pour toutes les lignes If Cells(L, "B") = "" Then ' Si B est vide Cells(L - 1, "C") = Cells(L - 1, "C") & " [ " & Cells(L, "C") & " ]" Cells(L, "B").EntireRow.Delete ' On supprime la ligne End If Next L End Sub

Si la matrice est vraiment très grande, alors il faut passer par des arrays pour accélérer. Plus complexe mais plus rapide.

Bonsoir @sylvanu,

Franchement...

Vous êtes un génie !!! 1000 mercis pour votre rapidité. La Macro est juste superbe et pour la petite suppression de ligne vide, vous avez lu dans mes pensées

Belle soirée.

sylvanu · 8 Février 2021

SCORP95 à dit:
vous avez lu dans mes pensées

C'était évident au vu de la concaténation.

SCORP95 · 8 Février 2021

chris à dit:
Bonjour

Une solution PowerQuery, intégré à Excel, sans VBA

Actualiser par Données, Actualiser tout si la source évolue

Merci @chris, bien efficace juste un petit soucis elle ne reprend pas les montants aux crédits. Je vais m'adapter

chris · 8 Février 2021

RE

Et encore un exemple non représentatif.... Cela te fait perdre du temps et nous aussi...

XL 2019 Macro : création d'une boucle avec tableau

SCORP95

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

SCORP95

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

SCORP95

XLDnaute Nouveau

chris

XLDnaute Barbatruc

Pièces jointes

Discussions similaires