XL 2016 Supprimer plusieurs cellules en fonction du contenu d'une autre cellule

Kazzoro

XLDnaute Nouveau
Bonjour à tous !

J'ai découvert très récemment les macros et je ne connais vraiment rien en programmation mais j'ai vraiment besoin d'aide. :(
J'aimerai pouvoir supprimer le contenus de plusieurs cellules d'une même ligne si le contenu de la cellule de la colonne B est identique à la cellule de la ligne précèdente de la même colonne.

Titrevendeurcollectiontesttesteur
Titovendorocollotestotootoo
Tirrhvendorocoelejejcrfjejekjehehfhe

La ligne trois a le terme vendoro qui est identique a la cellule de la ligne précèdente dans la colonne B, certaines cellules définie en amont de la ligne trois sont alors supprimées.

Voilà je suis vraiment désolé, même en me relisant je trouve que c'est compliqué à comprendre mais si seulement quelqu'un pouvait m'aider je lui serai infiniment reconnaissant !

Merci pour votre aide
 

frangy

XLDnaute Occasionnel
Bonjour,

Essaie avec cette macro
VB:
Sub Supprimer()
Dim Ligne As Long
Dim C As Integer
Dim T
    T = Array(1, 2, 5)
    For Ligne = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
        If Cells(Ligne, 2) = Cells(Ligne - 1, 2) Then
            For C = LBound(T) To UBound(T)
                Cells(Ligne, T(C)).ClearContents
            Next C
        End If
    Next Ligne
End Sub
Cordialement.
 

Discussions similaires


Haut Bas