Discussion :

[Mr l'Ashanti]

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

[PetitBoutDeCode]

Bonjour,

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 :

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

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

[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 !

[PetitBoutDeCode]

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

Bonne question .

Je n'ai pas du tout réfléchi a ce détail, le but est de donner un angle d'attaque

[Fab_de_chez_PERFORM]

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

@+

[Thumb down]

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!

[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 ?🤔🤔

[Thumb down]

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 :

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

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 ?

[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.

[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.

[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/

[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

[Thumb down]

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 !

[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.

[Thumb down]

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 :

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

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!

[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. 🙏🙏

[Thumb down]

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 :

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

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

[Mr l'Ashanti]

Bien noté.

[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"

[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.