sélection et suppression

[Doriane]

bonjour à toutes et à tous...

je vous sollicite à nouveau car j'ai un petit problème pour automatiser une suppression de ligne selon un critère.

j'ai un tableau avec X lignes. Ce tableau comporte une colonne (critère) représentant un classement. Je souhaite supprimer toutes les lignes qui sont en dessous du classement 4!

vous pouvez vous référer à la pièce jointe et vous comprendrer mieux!


merci d'avance

Doriane

 

[Moa]

Salut Doriane, salut les forrumeux !

Tiens regarde ce fichier joint !

@ +

Moa

 

[Cédric]

Salut
Essaye cela si ça convient et tiens moi au courant!

J'y crois pas comme j'ai galéré, tout pour finir avec une technique de racros!!


Enfin, si cela te conviens tant mieux

Tchao!

 

[eric]

Bonjour,

je n'ai pas eu le temps de regarder ce que Cédric et Moa t'ont proposé, mais je te joins un code que j'ai déjà utilisé dans le même cas :

Private Sub CommandButton1_Click()
Cells.Find(What:="4", After:=Range("h5"), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) .Activate
i = ActiveCell.EntireRow.Address
j = Range("a65000").End(xlUp).EntireRow.Address
Range(i, j).Clear

End Sub

Bonne journée

 

[@+Thierry]

Bonjour ce fil,

Une autre méthode en plus de celle de Moa, de Cedric et d'Eric

Sub SuppressionSiPas4()
Dim i As Integer
For i = Range("H65536").End(xlUp).Row + 1 To 2 Step -1
If Range("H" & i) >= 4 Then
Range("H" & i).ClearContents
End If
Next
Sheets("Feuil1").Columns(8).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

(Les trois lignes vides en haut du tableau seront supprimées aussi, sinon faut faire comme çà)

Sub SuppressionSiPas4Bis()
Dim i As Integer
Dim L As Integer
L = Sheets(1).Range("H65536").End(xlUp).Row

For i = Range("H65536").End(xlUp).Row + 1 To 5 Step -1
If Range("H" & i) >= 4 Then
Range("H" & i).ClearContents
End If
Next
Sheets("Feuil1").Range("H5:H" & L).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Joyeuses Fêtes
@+Thierry