Erreur d'exécution "13"

Bonjour,

J'ai 2 formulaires 1 de saisie et 1 de modification pour une association et je bloque sur une erreur d'exécution "13".

l'erreur ce produit quand j'ouvre le formulaire " AJOUT " et sur champ le N° Carte.

Exemple sur le formulaire.

Merci de votre aide et de votre réponse.

Bonjour Campan,

Chez moi, j'ai une référence manquante dans -> Outils -> Références

Décocher là si c'est le cas également chez vous

A+

Merci de votre réponse mais ce n'ai pas ça et j'ai toujours mon erreur !!!

Ce formulaire a été avec excel VBA

Re,

Et bien merci de cliquer sur débogage et nous faire une copie d'écran de la ligne qi sera en jaune

Perso, une fois la référence décochée, je n'ai pas d'erreur

A+

Merci

Re,

Merci de joindre votre fichier Excel et non un document Word avec une copie d'écran

Vous pouvez joindre les images sur ce forum

A+

Excusez moi

Re,

Je comprends mieux, vous avez l'erreur si vous êtes passé dans le TextBox sans rien saisir (ce que je n'ais pas fait)

C'est pour cela qu'il vaudrait mieux prendre l'évènement "AfterUpdate" que "Exit"

Voici le code modifié

Private Sub txtn_carte_AfterUpdate()
  Dim LigF As Long
  ' Si aucune valeur dans n° de carte, on sort
  If Me.txtn_carte.Value = "" Then Exit Sub
  ' Cherche si le numéro de carte existe déjà
  LigF = LigFind("Source[N° Carte]", Me.txtn_carte.Value)
  ' On teste si la valeur a été trouvée.
  If LigF > 0 Then
    Me.lblmessage_carte = "Le Numéro de l'Adhérent [" & Me.txtn_carte & "] existe déjà dans la base."
    Me.txtn_carte = ""
    Me.txtn_carte.SetFocus
  Else
    Me.lblmessage_carte = ""
    Exit Sub
  End If
End Sub

Avec la fonction qui est appelée

Function LigFind(sPlage As String, sQuoi As String)
  LigFind = 0
  ' Si on ne trouve pas de valeur et pour éviter le message d'erreur
  On Error Resume Next
  With Range(sPlage)
    LigFind = .Find(What:=sQuoi, LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Row
  End With
  On Error GoTo 0
End Function

Et votre fichier ainsi modifié

Nota : Mieux vaut se passer des "Select"

A+

Bonjour et merci l'erreur est disparue

Merci beaucoup