Triage et Nettoyage de collone VBA

[Bens7]

Bonjour a tous !
Voila j'ai un tableau avec des cellules liees et j;aimerai avec un macro effacer les 3 premieres collones d'une plage A2:C20
si ca corespond a certain crithere
et les lignes qui ne corespondent pas au crithere sont remis en haut
Voir fichier en pieces jointes c'est mieux lolll

 

[Haytoch]

Re : Triage et Nettoyage de collone VBA

Bonsoir,

Tester ceci permet du supprimer la ligne si la valeur du la Cellule , Colonne A = MAIL ou COURRIER:

Sub Check_Delete()
Dim wsh As Worksheet
Dim i As Long

Set wsh = Worksheets("Feuil1")
With wsh
    For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
     If .Cells(i, 1) = "MAIL" Or .Cells(i, 1) = "COURRIER" Then
     .Rows(i & ":" & i).Delete Shift:=xlUp
     End If
    Next i
End With
End Sub

slt
haytoch