Bouton Modifier

Bonjour je cherche a créer un bouton modifier qui permettre de modifier la ligne de donnée situer dans la feuille "BDD CLIENT" grâce a des textbox" dont l'index et la valeur qui est situer dans le textbox (numéro CMD) "txt_cmd_num".

j'ai écris ce code mais il ne fonctionne pas il me renvoie l'erreur "Erreur d'exécution '13'': incompatibilité de type"

tout ce passe dans l'Userform4

voici le code

'bouton MODIFIER CLIENT
Private Sub cmd_client_modifier_Click()
Dim Ligne As Integer
Ligne = Application.Match(txt_cmd_num, OCLI.Columns("A"), 0)
If txt_clt_nom.Value = "" Then
MsgBox ("veuillez saisir le nom du client !")
Else
    OCLI.Cells(Ligne, 2) = txt_clt_nom.Value
    OCLI.Cells(Ligne, 3) = txt_clt_prenom.Value
    OCLI.Cells(Ligne, 4) = txt_clt_mail.Value
    OCLI.Cells(Ligne, 5) = txt_clt_portable.Value
    OCLI.Cells(Ligne, 6) = txt_clt_adresse.Value
    OCLI.Cells(Ligne, 7) = txt_clt_code_postal.Value
    OCLI.Cells(Ligne, 8) = txt_clt_ville.Value
    OCLI.Cells(Ligne, 9) = txt_clt_commentaires.Value

End If

'If MsgBox("Confirmez-vous la modification ?", vbYesNo, "Confirmation de modification") <> vbYes Then Exit Sub
End Sub

une image du programe

ainsi que le fichier excel

Bonjour rocca66, le forum,

Essaies avec:

Ligne = lst_rechercher.ListIndex + 2

Cordialement,

Merci xorsankukai problème résolu