Bonjour,

A la ligne 9 du code suivant j'ai ça :

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

Je ne vois pas d'où ça vient... quelqu'un aurait une idée !?


MErci


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 ListBox1
            Sheets("Retenues").Rows(.List(.ListIndex, 1) + 1).EntireRow.Delete
        End With
    End If
End Sub