XL 2016 Macro - Supprimer ligne en fonction du critère de la ligne en dessous

Marjo2 · 26 Août 2019

Bonjour Forum,

Est-ce que quelqu'un serait m'aider pour une macro svp ? A savoir que le fichier fait 70 000 lignes.
Si en B2, il y a écrit total et que A1=A2 alors supprimer ligne du A1 sinon ne rien faire.

Je reagrde ma colonne B, si il y a écrit Total, je vais regarder que la ligne juste au dessus à la même information en colonne A, si c'est le cas je supprime cette ligne.

Avec un exemple cela sera plus clair à expliquer ma problématique.
Merci Forum

frangy · 26 Août 2019

Bonjour,

VB:

Sub Supprimer_Lignes()
Dim Ligne As Long
    Application.ScreenUpdating = False
    For Ligne = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If UCase(Range("B" & Ligne).Value) = "TOTAL" Then
            If Range("A" & Ligne - 1).Value = Range("A" & Ligne).Value Then
                Rows(Ligne - 1).Delete
            End If
        End If
    Next Ligne
    Application.ScreenUpdating = True
End Sub

Cordialement.

pierrejean · 26 Août 2019

Bonjour Majo2
A tester: Macro supprime

Edit: Salut frangy

Marjo2 · 26 Août 2019

Bonjour messieurs,

Merci à vous deux, les 2 solutions fonctionnent et j'ai compris.

XL 2016 Macro - Supprimer ligne en fonction du critère de la ligne en dessous

Marjo2

XLDnaute Occasionnel

Pièces jointes

frangy

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

Marjo2

XLDnaute Occasionnel

Discussions similaires

XL 2016 Macro - Supprimer ligne en fonction du critère de la ligne en dessous

Marjo2

XLDnaute Occasionnel

Pièces jointes

frangy

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

Marjo2

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency