Stop au UserForm

[JR26]

Bonjour,
J'ai deux petits problèmes à soumettre :
1- Qu'elle est la formule pour mettre fin à l'affichage d'un UserForm?😕
2- Comment faire pour supprimer l'erreur d'éxécution '13' lorsqu'on appuie sur le bouton ANNULER d'un MsgBox ?😕

Merci.

 

[Robert]

Re : Stop au UserForm

Bonjour JR, bonjour le forum,

Unload Me (uniquement si le code est écrit dans le module de l'userform sinon il faut le nommer ) ou Unload UserForm1 vide (de la mémoire) et ferme l'userform nommé UserForm1. Me.Hide ou UserForm1.Hide ne fait que le masquer sans le vider de la mémoire...
Pour ton deuxième problème, difficile de te répondre sans avoir ton code et son contexte sous les yeux.

 

[PascalXLD]

Re : Stop au UserForm

Bonjour

Pour le 2ème cas et bien il faut le gerer le clic sur annuler

 

[JR26]

Re : Stop au UserForm

Mon premier problème est résolu, Merci Robert🙂
Pour le second, je fais apparaître une fenêtre et réalise un tri avec le code suivant :

Dim Dp As Integer
Dp = InputBox("Diamètre extérieur de la gorge ?")
Selection.AutoFilter Field:=4, Criteria1:=Dp, Operator:=xlAnd

Cette fenêtre me propose un bouton "Annuler" qui m'est inutile. Serait-il possible d'avoir une fenêtre sans ce bouton "Annuler"?

Un second problème se pose :
Lorsque je ne rentre pas de valeur Dp et que je valide par "OK" un message de blocage s'affiche. Comment pourrais-je faire apparaître un MsgBox en fonction de cette validation nulle ?

 

[PascalXLD]

Re : Stop au UserForm

RE

ET bien justement ton annuler te renvoie une valeur nulle

Dim Dp As Variant
Dp = InputBox("Diamètre extérieur de la gorge ?")
if Dp ="" then
msgbox "et bien alors on oublie de noter le diametre"
exit sub
end if
Selection.AutoFilter Field:=4, Criteria1:=Dp, Operator:=xlAnd


EDIT : merci Hervé 😉

 

[JR26]

Re : Stop au UserForm

Ok merci,
et pour la suppression du bouton "Annuler", y'a pas moyen de faire afficher un autre type de boite de dialogue sans "Annuler" ??

 

[Hervé]

Re : Stop au UserForm

Bonjour à tous

Une autre syntaxe :

Dim Dp As Integer
Dp = Application.InputBox("Diamètre extérieur de la gorge ?", Type:=1)
If Dp <> 0 Then
Selection.AutoFilter Field:=4, Criteria1:=Dp, Operator:=xlAnd
End If


salut

 

[JR26]

Re : Stop au UserForm

Merci Hervé