Simuler l’appui sur un bouton dans un userform

Fermé
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 24 nov. 2016 à 14:51
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 25 nov. 2016 à 13:58
Bonjour,

Est-il possible de simuler l’appui d’un bouton qui est dans un UserForm, en ajoutant cette fonction dans le code d’une procédure.
Par exemple dans mon cas je souhaiterais qu’après la ligne « LabPatience = "Ok !!!" » est affiché la procédure continue sans passer par le deuxième code si dessous.


Private Sub BoutImage_Click()
If IsNumeric(FormTapisserie.tbxNbCol) Then
If IsNumeric(FormTapisserie.tbxLumi) Then Sheets("F1").[A30] = CLng(FormTapisserie.tbxLumi)
ChargeImage
LabPatience = "Ok !!!" 'Affiche OK sous le bouton de validation
LabPatience.Visible = True
numerotation
Else
MsgBox "message"
End If
End Sub



Private Sub BoutQuitte_Click()
Unload Me
End Sub


Merci pour l’aide

Bien cordialement

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 nov. 2016 à 16:08
Bonjour,

la procédure continue sans passer par le deuxième code si dessous.

Comprends pas tout !!!!! Vous pouvez developper
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
25 nov. 2016 à 10:22
Bonjour,


Merci d'avoir pris du temps sur mon post.

Ce que je souhaite :

Simuler l’appui d’un bouton qui est dans un UserForm, donc ne pas utiliser le code ci dessous pour que la suite de mon programme continu sans attendre cette commande.


Private Sub BoutQuitte_Click()
Unload Me
End Sub


Bien cordialement
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021
25 nov. 2016 à 10:58
Bonjour,

Vous voulez fermer la forme dans cette procedure
Private Sub BoutImage_Click()


avant end sub , ecrivez unload me
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
25 nov. 2016 à 11:11
Re,

Oui je souhaite fermer l’userforme sans passer par

Private Sub BoutQuitte_Click()
Unload Me
End Sub


Mais en faisant comme si j’avais réalisé l’appui sur le bouton qui actionne cette sortie afin que la suite du code soit bien réalisée.

Si je rajoute uniquement unload me avant end sub, mon code va bien comprendre qu'il faut faire la suite ?

Bien cordialement
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021
Modifié par f894009 le 25/11/2016 à 11:23
Re,

Ben, comme je ne connais
Si je rajoute uniquement unload me avant end sub, mon code va bien comprendre qu'il faut faire la suite ?
le debut et la suite du code, peux pas vous dire
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
25 nov. 2016 à 11:59
Re,

Ma question initiale était,

Comment sortir de l'userforme comme ci on avez réalisé l'appui sur le bouton (boutquitte_click) sans avoir réalisé cette action mais que le code ai compris l'appui sur le bouton vient d'être effectué ?

Bien cordialement
0