Triage et Nettoyage de collone VBA

Bens7 · 10 Juin 2013

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 · 11 Juin 2013

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:

Code:

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

Triage et Nettoyage de collone VBA

Bens7

XLDnaute Impliqué

Pièces jointes

Haytoch

XLDnaute Junior

Discussions similaires

Triage et Nettoyage de collone VBA

Bens7

XLDnaute Impliqué

Pièces jointes

Haytoch

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency