Boutons OK et CANCEL d'un UserForm avec VBA

[nougitch]

Bonjour,

Dans une macro, je fais appel a un UserForm.

1/ Comment faire pour que quand je clique sur Cancel, je sorte de la procedure ? Car actuellement, j'ai une erreur.

2/ Comment verifier que les donnees saisies soient numeriques du type 4.53 ? Dois-je placer ce code en question dans le code de la macro ou sur l'evenement click du bouton OK ?

Merci par avance pour votre aide.
Cdt,

 

[Pierrot93]

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

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.

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

bon après midi
@+

 

[nougitch]

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.

 

[Pierrot93]

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 :

Exit Sub

@+

 

[nougitch]

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 !

 

[Pierrot93]

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

Re

essaye peut être comme ceci alors :

Private Sub BoutonCancel_Click()
End
End Sub

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

 

[nougitch]

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 !

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

 

[Pierrot93]

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

Re

code modifier :

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

 

[nougitch]

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

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