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
Merci d'avance et bon week-end
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