XL 2016 Suppression des lignes un fois le pic atteint

[auverland]

Bonjour le Forum,

J'ai chercher sur le forum mais pas trouver ma solution.
Je cherche a supprimer toutes les lignes une fois ma valeur maxi atteinte dans la colonne K
j'ai ceci mais ça fonctionne pas

Sub DelEditeur()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
            For i = .Range("K" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("K" & i).Value = Range("K1", ActiveCell.SpecialCells(xlLastCell)) Then
                                   .Rows(i).Delete
                        End If
            Next i
End With
End Sub

Merci d'avance et bon week-end

 

[Paf]

Bonjour,

Pas sûr de comprendre.
En fin de traitement il ne doit rester que la ligne pour laquelle la colonne H est le max des valeurs de cette colonne ?
ou bien il faut supprimer toutes les lignes qui suivent cette valeur max en H ?

A+

 

[job75]

Bonjour auverland, Paf,

la ligne pour laquelle la colonne H est le max des valeurs de cette colonne ?

Mes lunettes m'indiquent la colonne K mais je ne les ai pas changées depuis longtemps 🙄

A+

 

[Paf]

Bonjour job75,

Pourtant mes lunettes sont relativement récentes , peut être envisager de changer les yeux...

Mêmes questions avec colonne K .

 

[auverland]

Bonjour les Forum

Oui je souhaite bien supprimer toutes les lignes qui suivent la valeur Maxi de la colonne K.

Merci d'avance et bon weekend a tous

 

[Paf]

à tester:

Sub DelEditeur()
Dim M As Range, DL As Long, Plage As Range
With ThisWorkbook.Worksheets("Feuil1")
DL = .Range("K" & .Rows.Count).End(xlUp).Row
Set Plage = .Range("K2:K" & DL)
Set M = Plage.Find(Application.WorksheetFunction.Max(Plage))
.Rows(M.Row + 1 & ":" & DL).Delete
End With
End Sub

A+

 

[job75]

Plus simple :

Sub SupprimerApresMax()
Range(Rows(Application.Match(Application.Max(Columns("K")), Columns("K"), 0) + 1), Rows(Rows.Count)).Delete
End Sub

 

[auverland]

Merci beaucoup

quelle efficacité.😳 une ligne et c'est parfait

Bravo

 

[job75]

Bonjour auverlans, le forum,

Bah un seul Rows suffit et il faut au moins un nombre dans la colonne :

Sub SupprimerApresMax()
If Application.Count([K:K]) Then Rows(Application.Match(Application.Max([K:K]), [K:K], 0) + 1 & ":" & Rows.Count).Delete
End Sub

Joyeux dimanche de Pâques.