Stop au UserForm

Robert

XLDnaute Barbatruc

Repose en paix

• 30 Octobre 2006

• #2

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.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 30 Octobre 2006

• #3

Re : Stop au UserForm

Bonjour

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

 

Vote positif 0 Vote négatif

J

JR26

Guest

• 30 Octobre 2006

• #4

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 ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 30 Octobre 2006

• #5

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é 😉

 

Vote positif 0 Vote négatif

J

JR26

Guest

• 30 Octobre 2006

• #6

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 30 Octobre 2006

• #7

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

 

Vote positif 0 Vote négatif

J

JR26

Guest

• 30 Octobre 2006

• #8

Re : Stop au UserForm

Merci Hervé

 

Vote positif 0 Vote négatif