Discussion :

[mouftie]

Bonjour,
Dans mon usf de modification d'une base de données, l'utilisateur doit choisir une référence. il a la possibilité de saisir les 1ères lettres dans une liste déroulante.
Suite au choix de l'utilisateur, les autres contrôles du Usf doivent se pré-remplir. mais si l'utilisateur saisit une référence qui n'existe pas dans la table il reçoit un message lui demandant de commencer par créer la référence et le Usf doit se fermer.
Là j'ai un gros Bugue, le message apparait, mais au lieu de fermer l'Usf, Excel plante et redémarre.
Est-ce que quelqu'un comprend le pb ?
Voici le début du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CbxPrNm_AfterUpdate()
'en sortie de saisie, faire remonter le département de l'agent
'positionner par défaut la sortie ou un message
'rechercher l'agt
Dim RgFind As Range
Set RgFind = Range("TbPrenNom[Prénom Nom]").Find(CbxPrNm, LookAt:=xlWhole)
If RgFind Is Nothing Then
    Call MsgBox("Cette personne n'apparait pas dans la table agent !" _
                & vbCrLf & "" _
                & vbCrLf & "Veuillez l'ajouter préalablement. Merci" _
                , vbExclamation, "SOS - Agent non trouvé")
    Unload Me 'BUGUE////////////
Else '...
Else

[unparia]

Bonjour
Je ne parviens pas à reproduire ce que tu décris.
J'en conclus que ton problème est ailleurs (probablement dans le code de la feuille ou du contrôle depuis où tu as lancé le userform).

[eric4459]

Bonjour Mouftie,
Voici ce que j'utilise lorsque l'utilisateur entre une mauvaise donnée dans un Textbox, j'ai eu quelques souci avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Unload Me

et c'est la parade que j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Userform1.Hide
Userform1.TextBox4 = ""
Userform1.TextBox4.SetFocus
Userform1.Show

Je pense que tu peux remplacer TextBox par Combobox, à voir ...

Eric