Discussion :

[Chris171717]

J'ai un souci avec le code suivant...

J'ai une feuille de données en 8 colonnes avec une ligne d'entête à partir de A1...

Un userform avec une listbox qui me permet de consulter les données de la feuille... lorsque je selectionne une ligne de la listbox je voudrai, en cliquant sur le commandbutton5, supprimer la ligne dans la feuille... or il me renvoi

pour la ligne 9
'erreur d'execution 424
'objet requis

Je ne comprend pas ce qu'il me manque...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton5_Click()
Dim Mes As Integer
    Mes = MsgBox("Vous êtes sur le point de supprimer un enregistrement. Action irreversible ! Voulez vous continuer ?", _
            vbExclamation + vbYesNo)
    If Mes = vbNo Then
        Unload Me
    Else
        With lstFiltre
            Sheets("Retenues").Rows(.List(.ListIndex, 8) + 1).EntireRow.Delete
        End With
    End If
End Sub

[JPierreM]

Bonjour,

Ne faudrait-il pas définir lstFiltre?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set lstFiltre = ??

JP

[Chris171717]

Je dois vraiment changer de lunettes... j'aurais dû commencer par ça...

en fait mon objet s'appelle ListBox1 et non lstFiltre

Par contre maintenant à la même ligne, j'ai

erreur d'execution '13' :
incompatibilité de type


Aurais-tu une idée !?