Userform erreur automation en quittant le userform

Bonjour,

je m'arrache les cheveux depuis deux jours.

j'ai un formulaire de recherche qui fonctionne à un détail près.

si la recherche est infructueuse, mon message d'alerte "le N° n'existe pas" s'affiche.

je peux alors lancer une autre recherche et même l'ajouter.

par contre dès que je quitte le userform, via la croix j'ai :

une erreur d' exécution -2147417848 (80010108):

erreur automation

L'objet invoqué s'est déconnecté de ses clients.

Pour être sur que ça ne vient pas d'ailleurs, j'ai copié ce code sur un classeur vierge et ça me donne exactement la même erreur.

Option Compare Text
Private Sub UserForm_Initialize()

Me.enreg = [donées].Rows.Count + 1
tbl = [donées].Value
Me.Recherche.SetFocus
End Sub

Private Sub Recherche_AfterUpdate()

If Application.CountIf([donées[N° Convention]], Val(Me.Recherche)) >= 1 Then

Me.enreg = Application.Match(Val(Me.Recherche), [donées[N° Convention]], 0)
Me.nconv = Me.Recherche
Me.datfaca = [donées].Item(enreg, 9)
If Me.datfaca <> "" Then
MsgBox "cette convention a déjà ue date facture acompte"
Unload Me
UserForm1.Show
Else
Me.datfaca = [donées].Item(enreg, 9)
Me.Recherche.SetFocus
End If

Else
MsgBox "le N° n'existe pas"
Unload Me
UserForm1.Show
Me.Recherche.SetFocus

Err.Clear

End If

End Sub
Private Sub ajout_Click()
  enreg = Me.enreg
    [donées].Item(enreg, 9) = Me.datfaca

End Sub
Private Sub Recherche_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If InStr("1234567890", Chr(KeyAscii)) = 0 Then
   KeyAscii = 0: Beep
   End If
End Sub

si quelqu'un a une idée...

Bon weekend

Bonjour et bienvenu sur le forum

Pour moi c'était un problème avec le tableau "donées"...

Je n'ai plus le défaut

A+ François

Bonjour fanfan38,

Merci pour la réponse, mais chez moi ça donne toujours la même erreur.

la seule piste que j'ai, c'est que tant qu'on rentre une valeur qui existe dans la colonne1 je n'ai pas l'erreur.

Si la valeur n'existe pas, je le détecte avec mon if, mais en quittant j'ai l'erreur.

Bonjour,

Essayer cette version

NB : apprenez à indenter votre code pour le rendre plus lisible.

Bonjour thev et merci.

Mais j'ai toujours l'erreur mais aléatoirement.

Si je sais un numéro qui n'existe pas et que je valide le message des fois ça recharge bien le formulaire et des fois j'ai de nouveau le même message 😱

et avec cette version ?

là ce n'est plus aléatoire mais comme avant à chaque fois :(

nouvelle version

Merci thev!

ça fonctionne à merveille :)

je n'ai plus l'erreur que si lorsque la message box s'affiche, au lieu de valider par ok, je clique sur la croix.

mais je crois qu'on va en rester là, je ferais un brief pour bien cliquer sur le ok :)