Boutons OK et CANCEL d'un UserForm avec VBA

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2008

• #2

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Bonjour Nougitch

regarde les codes ci dessous, si j'ai bien compris :

Décharge l'USF

Code:

Private Sub BoutonCancel_Click()
Unload Me
End Sub

Vérifie si la saisie d'un textbox est numérique, à placer éventuellement lors de la validation, à adapter à ton projet.

Code:

Private Sub BountonOK_Click()
If IsNumeric(TextBox1.Value) Then MsgBox "ok numérique"
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 24 Juillet 2008

• #3

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Salut Pierrot,

Pour le message d'erreur, cela fonctionne, merci.
En revanche, le Unload me fait pas effet. D'ailleurs, que ce soit avec le bouton CANCEL, ou avec le bouton OK quand l'utilisateur genere un erreur, j'ai le message suivant : "Run-time error '13': Type mismatch". Comme si le code continuait et que comme il ne trouve pas de donnees pour la suite du code, il plante.

Merci pour ton aide.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2008

• #4

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Re

logiquement le code donné "ferme" l'usf, mets le code utilisé en pièce jointe, car là je ne comprends pas trop... Si le bouton est placé sur un USF et le code dans le module de celui ci, cela devrait fonctionner... Sinon pour sortir d'une procédure tu peux utiliser l'instruction suivante :

Code:

Exit Sub

@+

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 24 Juillet 2008

• #5

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Non, le code est dans un module, pas dans l'USF. Il faut donc qu'a distance, je puisse dire si CANCEL alors, EXIT SUB, non seulement de l'USF mais aussi du module.

Merci !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2008

• #6

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Re

essaye peut être comme ceci alors :

Code:

Private Sub BoutonCancel_Click()
End
End Sub

mais attention, réinitialisera toutes les variables.... peux pas t'en dire plus en l'état..

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 24 Juillet 2008

• #7

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Cool Pierrot, ca marche !

Je suis presque a ce que je souhaite 🙂
Ce qu'il me reste a faire, c'est que tant que la valeur saisie n'est pas numerique, pour le bouton OK, je laisse l'USF ouvert avec le champ vide.

Merci mille fois pour ton aide !

Code:

Private Sub cmdOk_Click()
    While Not (IsNumeric(frmInterestsRate.txtInterestsRate.Value))
        MsgBox "Please enter a correct interests rate (e.g. 4.83%)"
    Wend
    Unload Me
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2008

• #8

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Re

code modifier :

Code:

If Not IsNumeric(frmInterestsRate.txtInterestsRate.Value) Then
    MsgBox "Please enter a correct interests rate (e.g. 4.83%)"
frmInterestsRate.txtInterestsRate.Value =""
Else
    Unload Me
End If

@+

Edition : réinitialisation du textbox

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 24 Juillet 2008

• #9

Re : Boutons OK et CANCEL d'un UserForm avec VBA

Youhou !!! Ca marche !
Merci bcp Pierrot !
Bonne journee !

 

Vote positif 0 Vote négatif