Bonjour a tous
la mon findfirts me retour l'erreur suivant :  type incompatible.

Call connectBd
    monRecordset.MoveFirst
    Dim intSelect As Integer
    intSelect = Int(ListView1.SelectedItem.Text)
    MsgBox ListView1.SelectedItem.Text
    monRecordset.FindFirst ("No = '" & intSelect & "'") (erreur ici)
  If monRecordset.NoMatch Then
    MsgBox ("non trouve")
  Else
    monRecordset.Delete
    monRecordset.Update
    monRecordsetBookmark = monRecordset.LastModified
    End If

Pourtant dans ma bd No est numeroAuto

Je comprend pu rien

As-tu essayer sans les guillemets ?

monRecordset.FindFirst ("No = " & intSelect)

---

oui pareil

Ok, j'avais sauté la dernière ligne.

Si No est déclaré en numéro auto, il doit surrement etre du type entier long

donc dans ton code tu as 2 solutions:

soit tu fais Dim intSelect as long  (ou pour etre cohérent dim lngSelect as long )

soit tu fais monRecordset.FindFirst ("No = " & CLng(intSelect))

---