Bonjour forum.
Il y a un truc qui m'échappe dans l'exécution du code:
Dans le bouton Valider de l'userform, j'ai mis écrit une procédure qui permet d'ajouter des données dans la base de données souhaitée. Mais avant l'exécution, j'appelle une fonction qui se trouve dans un module pour vérifier s'il y a un doublon.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Function Doublons ()
For NbreLignes= 2 to Cells(Rows.Count, 1).End(Xlup).Row
  If Cells(NbreLignes,1)= TextBox1 then
   Msgbox" Doublon"
  End if
Next
 
End Function
Dans la procédure du bouton valider
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
If Doublons then 
 If MsgBox ("")= Vbok Then Exit Sub
Else 
... ' Code suivant
La fonction est bien vérifiée et le message s'affiche mais après le message il exécute le code qui suit Else pourtant j'ai mis une restriction '' Exit sub''.
Normalement, Si j'appuie ok, il ne devrait pas continuer avec Else vu que la condition est vérifiée donc il sort de l'alternative.
Mais ce n'est pas le cas.
Je suis passé par Select Case, c'est le même souci.

J'espère que j'ai été précis.
Merci de m'aider