Bonjour,

Je débute en VBA et je souhaite réaliser une macro qui supprime les lignes en fonction d'un critère choisi par une inputbox.

J'ai regardé différentes solutions sur internet mais la macro s'arrête au bout d'un moment avec l'erreur "objet requis" à la ligne If...

J'aimerai comprendre pourquoi ?

En vous remerciant de votre aide

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub SUP()

Application.ScreenUpdating = False

Dim Critere As Range
Set Critere = Application.InputBox("Select critere", Type:=8)

Dim Nbcolcritere As Integer
Nbcolcritere = Critere.Column

Dim lr As Integer
lr = Cells(Rows.Count, Nbcolcritere).End(xlUp).Row

For x = lr To 2 Step -1
   If Cells(x, Nbcolcritere).Value = Critere Then
    Rows(x).Delete
    End If
    Next x

End Sub