Problème avec la fonction Exit Sub

Version imprimable

26/08/2022, 14h47
Mr l'Ashanti

Problème avec la fonction Exit Sub
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:

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:

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

Bonjour,

Citation:

La fonction est bien vérifiée et le message s'affiche

J'ai un petit peu modifié la fonction, chez moi ça ne rentre pas dans le Else de cette manière :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function Doublons() As Integer
For NbreLignes = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If Cells(NbreLignes, 1) = TextBox1 Then
   MsgBox " Doublon"
   Doublons = 1
  End If
Next
 
End Function
 
Sub Macro1()
 
 
X = Doublons
If X = 1 Then
 If MsgBox("IN") = vbOK Then Exit Sub
Else
  MsgBox ("OUT")
End If
End Sub

27/08/2022, 11h03
Thumb down

Bonjour,
Pourquoi utiliser un integer en retour de fonction et pas un booléen ?

C'est pas comme si tu avais voulu compter le nombre de doublons !
27/08/2022, 11h29
PetitBoutDeCode

Citation:

Pourquoi utiliser un integer en retour de fonction et pas un booléen ?

Bonne question :ptdr:.

Je n'ai pas du tout réfléchi a ce détail, le but est de donner un angle d'attaque :roll:
27/08/2022, 14h10
Fab_de_chez_PERFORM

idée

Bonjour
peut être ai je mal compris, mais cela me fait penser à un pb que j'avais rencontré.

Solution utilisée
End (au lieu de Exit sub) si je veux fermer également la macro qui m'a appelé via application.run
car Exit Sub ne sort que de la macro en cours

@+
27/08/2022, 15h24
Thumb down

Citation:

Envoyé par Fab_de_chez_PERFORM

End (au lieu de Exit sub) si je veux fermer également la macro

Le suicide comme solution, pas bête !

Le seul problème c'est qu'à l'origine la fonction ne retournerait rein permettant d'évaluer le If alors End ou Exit qu'elle importance !

PetitBoutDeCode de la tribu des DVP.COM a apporté une solution!

Avec les compliments de PouceVersLeBas!
27/08/2022, 17h00
Mr l'Ashanti

Merci à tous pour les différentes réponses.
J'ai essayé de passer la Function en Booléen mais toujours le même constat.
Je me demande pourquoi la procédure suivante s'exécute ?🤔🤔

Citation:

Envoyé par Mr l'Ashanti

Merci à tous pour les différentes réponses.
J'ai essayé de passer la Function en Booléen mais toujours le même constat.
Je me demande pourquoi la procédure suivante s'exécute ?🤔🤔
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function Doublons() as Boolean For NbreLignes = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(NbreLignes, 1) = TextBox1 Then MsgBox " Doublon" Doublons = True End If Next End Function Sub test() If Doublons Then If MsgBox("Voulez vous quitter", vbOKCancel + vbQuestion) = vbOK Then Exit Sub 'Else '... ' Code suivant End Sub
Il faut préciser au msgbox ce que tu veux qu'il te retourne vbOKCancel pour vbOK par exemple ?

27/08/2022, 22h11
Mr l'Ashanti

J'avais essayé de passer par là quand j'ai rencontré le problème avant de poster mais ça exécutait le code suivant.
Même si on réussit à résoudre le problème, je voudrais bien savoir pourquoi il n'obéit pas à la restriction et exécute le code suivant.
27/08/2022, 22h24
Mr l'Ashanti

En ajoutant Doublons = true, le retour de la fonction est vérifiée. Donc c'est cet ajout qui active la restriction ? C'est vraiment déconcertant, pourtant j'ai testé plusieurs astuces.
Merci à vous pour les différentes réponses.
28/08/2022, 14h16
Thumb down

Bonjour,
en fait le problème est entre la chaise et le clavier!

tu ne lis pas correctement les réponse que l'on te fait comme dans ce poste là également!
https://www.developpez.net/forums/d2...ues-non-vides/
28/08/2022, 14h27
Mr l'Ashanti

Je prends la peine de lire les réponses. J'ai noté la réponse et je prends soin de tester toutes les remarques que je reçois sur le forum ; mais j'ai voulu savoir pourquoi la restriction est passée outre.
Faut il vraiment ajouter le retour de la fonction pour que la procédure obéisse à la restriction ?

Merci
28/08/2022, 14h35
Thumb down

1 pièce(s) jointe(s)

Citation:

Envoyé par Mr l'Ashanti

En ajoutant Doublons = true, le retour de la fonction est vérifiée. Donc c'est cet ajout qui active la restriction ? C'est vraiment déconcertant, pourtant j'ai testé plusieurs astuces.
Merci à vous pour les différentes réponses.

je n'ai pas dit que tu ne lisais pas, j'ai dit que tu lisais pas correctement!

dans le poste #8 je mets Doublons = true!

Alors que dans le poste #1 tune le fait pas !

Pièce jointe 624483
28/08/2022, 14h41
Mr l'Ashanti

Excuse énormément si on est en déphasage.
J'ai remarqué que vous avez ajouté : Doublons= True pour que la procédure obéisse à la restriction et ça marche comme je l'avais souhaité.
C'est indéniable mais je voudrais comprendre pourquoi il faut utiliser le retour Booléen.

voila c'est bien ce genre de question qu'il faut poser! tu ne serais pas le DSI de ta boîte par Hazara?

en schématisant, on peut considérer une fonction c'est comme une variable; une variable intelligente mais une variable quand même !
Code:

1 2 3 4 5 Dim A as Boolean A=true A=Doublons 'A est une variable qui reçois la valeur de la variable intelligente {Fonction} Doublons If A Then If MsgBox("Voulez vous quitter", vbOKCancel + vbQuestion) = vbOK Then Exit Sub
pour qu'une variable retourne un autre valeur que la valeur par défaut , False pour un booléen, il faut l'informer de son changement d'état et ça ne peut ce faire qu'a l'intérieur de la fonction!

28/08/2022, 14h58
Mr l'Ashanti

Un plus...
Infiniment merci. Je croyais qu'il fallait forcément le retour de la fonction dans une autre procédure. C'est vraiment incroyable.
Je découvre encore plus.
Merci encore. 🙏🙏

Citation:

Envoyé par Mr l'Ashanti

Un plus...
Infiniment merci. Je croyais qu'il fallait forcément le retour de la fonction dans une autre procédure. C'est vraiment incroyable.
Je découvre encore plus.
Merci encore. 🙏🙏

ne te m'éprend pas il faut l'utiliser dans une procédure!
Code:

1 2 3 4 5 6 Sub Test() Dim A as Boolean A=true A=Doublons 'A est une variable qui reçois la valeur de la variable intelligente {Fonction} Doublons If A Then If MsgBox("Voulez vous quitter", vbOKCancel + vbQuestion) = vbOK Then Exit Sub End Sub
ou directement dans un cellule com si c'était un fonction Excel

28/08/2022, 15h12
Mr l'Ashanti

Bien noté.
28/08/2022, 15h24
Thumb down

en complément!
un fonction retourne ce qu'on veut! j'ai choisi de répondre par OUI/NON TRUE/FALSE par ce qu'un if vérifie si une condition est rempli ou non True/False
If true thenla proposition de PetitBoutDeCode propose un Integer pourquoi pas si en plus de savoir s'il y a des doublon on veux en connaitre le nombre!

un string pourquoi pas si on veut un affichage direct "OUI/NON"
28/08/2022, 15h30
Mr l'Ashanti

C'est très important cette précision. Au cas où vous admettez que deux Doublons dans votre liste, cette méthode peut aider.
C'est Super génial comme idée.
Encore une fois merci.