XL 2010 refaire une saisie avec USF

herve62 · 9 Juillet 2021

Bonjour
J'ai dû faire il y a très longtemps mais plus souvenir ? ( je m'appelle pas Aloïs !!!!)
j'ai un USF avec bouton de validation
A la fin je pose la question de refaire une saisie donc j'efface tout :

VB:

.......
If MsgBox("Autre saisie ? ", vbYesNo, "Nouvelle saisie") = vbYes Then
efface
TextJableMax01.SetFocus
End If
TS_dessus_24.Hide
end sub

Même si je répond OUI , on quitte l'USF ?
Merci de me rafraichir !!!!!

patricktoulon · 9 Juillet 2021

re
bonjour @herve62
ben bien évidemment ton hide doit être dans la condition else du if sinon il est exécuté
ou alors tu fait un exit sub pour le vbyes

VB:

.......
If MsgBox("Autre saisie ? ", vbYesNo, "Nouvelle saisie") = vbYes Then
efface
TextJableMax01.SetFocus
else
TS_dessus_24.Hide
End If

end sub

ou

.......

Code:

If MsgBox("Autre saisie ? ", vbYesNo, "Nouvelle saisie") = vbYes Then
efface
TextJableMax01.SetFocus
exit sub
End If
TS_dessus_24.Hide
end sub

herve62 · 9 Juillet 2021

Merci Patrick
Ben oui !!! si j'avais pris 5min de + pour réfléchir , ça commence à ramollir ....

patricktoulon · 9 Juillet 2021

re
ben là pour le coup ça t'a pris plus de 5 minutes et 0.5 secondes des miennes

XL 2010 refaire une saisie avec USF

herve62

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires