XL 2010 refaire une saisie avec USF

[herve62]

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 :

.......
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]

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

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

end sub

ou

.......

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

 

[herve62]

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

 

[patricktoulon]

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