Initialisation USF

[ThierryR]

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

 

[JB]

Salut ThierryR,

voici une solution qui appartient à @+Thierry,

For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Or TypeOf CTRL Is MSForms.ComboBox Then
CTRL = ""
End If
Next CTRL

Me.ComboBox1.Clear 'On vide les précédentes données
Me.ComboBox2.Clear 'On vide les précédentes données

J'espère que çà t'aidera.

A+

JB

 

[ThierryR]

Salut JB et les forumeurs(ses)

Merci pour ta réponse.
Je l'ai mise en pratique.

J'ai déclaré CTRL en controls.
Pour CTRL="" il me renvoie l'erreur "argument non facultatif"

Merci pour votre aide

ThierryR