T
ThierryR
Guest
Bonjour à tous
Voici ma question :
J'aimerai pouvoir sortir de mon userform si je choisis vbNo. Or, le programme n'accepte pas "ma méthode". Je serai content de bénéficier de votre expérience en la matière.
Merci d'avance
ThierryR
Ps: Peux-t'on simplifier la remise à zéro des textvalues ? Surement...
Private Sub UserForm_Initialize()
LigneActive = ActiveCell.Row
If ActiveSheet.Cells(LigneActive, 7) <> ActiveSheet.Cells(LigneActive - 1, 7) Then
Réponse = MsgBox("Voulez-vous modifier la ligne ?", vbYesNo)
Select Case Réponse
Case vbYes
For I = 10 To 24
ActiveSheet.Cells(LigneActive, I) = 0
Next I
Case vbNo
Unload Espèces
End Select
End If
TextBox500.Value = 0
TextBox200.Value = 0
TextBox100.Value = 0
TextBox50.Value = 0
TextBox20.Value = 0
TextBox10.Value = 0
TextBox5.Value = 0
TextBox2.Value = 0
TextBox1.Value = 0
TextBox050.Value = 0
TextBox020.Value = 0
TextBox010.Value = 0
TextBox005.Value = 0
TextBox002.Value = 0
TextBox001.Value = 0
end sub
Voici ma question :
J'aimerai pouvoir sortir de mon userform si je choisis vbNo. Or, le programme n'accepte pas "ma méthode". Je serai content de bénéficier de votre expérience en la matière.
Merci d'avance
ThierryR
Ps: Peux-t'on simplifier la remise à zéro des textvalues ? Surement...
Private Sub UserForm_Initialize()
LigneActive = ActiveCell.Row
If ActiveSheet.Cells(LigneActive, 7) <> ActiveSheet.Cells(LigneActive - 1, 7) Then
Réponse = MsgBox("Voulez-vous modifier la ligne ?", vbYesNo)
Select Case Réponse
Case vbYes
For I = 10 To 24
ActiveSheet.Cells(LigneActive, I) = 0
Next I
Case vbNo
Unload Espèces
End Select
End If
TextBox500.Value = 0
TextBox200.Value = 0
TextBox100.Value = 0
TextBox50.Value = 0
TextBox20.Value = 0
TextBox10.Value = 0
TextBox5.Value = 0
TextBox2.Value = 0
TextBox1.Value = 0
TextBox050.Value = 0
TextBox020.Value = 0
TextBox010.Value = 0
TextBox005.Value = 0
TextBox002.Value = 0
TextBox001.Value = 0
end sub