XL 2016 Suppression des lignes un fois le pic atteint

auverland · 20 Avril 2019

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

VB:

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 · 20 Avril 2019

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 · 20 Avril 2019

Bonjour auverland, Paf,

Paf à dit:
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 · 20 Avril 2019

Bonjour job75,

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

Mêmes questions avec colonne K .

auverland · 20 Avril 2019

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 · 20 Avril 2019

à tester:

VB:

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 · 20 Avril 2019

Plus simple :

VB:

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

auverland · 20 Avril 2019

Merci beaucoup

quelle efficacité. une ligne et c'est parfait

Bravo

job75 · 21 Avril 2019

Bonjour auverlans, le forum,

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

Code:

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.

XL 2016 Suppression des lignes un fois le pic atteint

auverland

XLDnaute Occasionnel

Paf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

auverland

XLDnaute Occasionnel

Paf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

auverland

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires