bouton annuler userform1

[guillaume]

bonjour

je viens d'essayer la creation d'un user form,j'aimerais que lorsque je clic sur annuler ne pas excecuter le code qui suit Userform1.show
merci pour toutes vos reponse

Sub User()

Userform1.Show

name = Sheets("Feuil1").Range("A1")

Sheets("masque").Select
Sheets("masque").Copy After:=Sheets(2)

Sheets("masque (2)").name = Sheets("Feuil1").Range("A1")

Range("A5") = Sheets("Feuil1").Range("A1")
Range("B5") = Sheets("Feuil1").Range("A2")
Range("C5") = Sheets("Feuil1").Range("A3")
Sheets("Feuil1").Select
Range("A1") = ""
Range("a2") = ""
Range("a3") = ""
Userform1.Hide
End Sub

 

[Robert]

Bonsoir Guillaume, bonsoir le forum,

On m'a déjà conseillé de ne pas utiliser End dans les codes mais dans ton cas je ne vois que ce mot placé dans le bouton Annuler de l'UserForm.

Private Sub CommandButton2_Click()
Unload Me
End
End Sub

À plus,

Robert

 

[Jean-Jacques]

Bonsoir Guillaume,

Ci-joint le fichier modifié.
J'ai conditionné le code qui était après UserForm1.show en le mettant dans un module appelé par le bouton "valider" après controle du remplissage des texbox.
A+
JJ

 

[guillaume]

merci a tous .jean jaques c'est impeccable je vais continuer mon appli
bonne soiree ou bonne nuit