Erreur d'actualisation UserForm

[INFINITY100]

Bonjour

Voila je face à un problème car dans le fichier joint j'ai deux userform 1 et 2 à l'appel tout marche bien mais quand j'appel le second et que j'essaye de quitter il me renvoi une erreur puisque ce que je veux c'est quand je ferme userform2 l'userform1 actualise automatiquement
voici la macro qui donne l'erreur :

Private Sub CommandButton1_Click()
  UserForm1.UserForm1_Initialize
Unload UserForm2
End Sub

je joins le fichier

merci a vous tous

cordialement

 

[Dranreb]

Bonsoir.
Il n'y a pas de méthode UserForm1_Initialize écrite dans UserForm1.
Du reste ce serait un nom de méthode à éviter, pour plein de raisons.
Par ailleurs je n'ai pas trop compris ce que vous voulez faire, mais pas sûr que ce soit possible sans mettre les propriétés ShowModal des deux UserForm à False.

 

[INFINITY100]

Merci pour la réponse

en effet je m'explique bien au faite je veux que tout simplement quand je quitte userform2 rapporter la totalité de la somme de la textbox2 de l'userform2 vers la textbox1 l'userform1

merci encore

Voir le fichier et le code qui s'y trouve

 

[Dranreb]

Comme ça ?
Dans UserForm2 :

Private Sub UserForm_Initialize()
Me.TextBox2.Text = UserForm1.TextBox1.Text
End Sub
Private Sub Validation_Click()
If TextBox1 > 0 Then
TextBox2 = Val(TextBox2) + Val(TextBox1)
End If
TextBox1 = ""
End Sub
Private Sub CommandButton1_Click()
Me.Hide ' Le ferme sans le décharger
End Sub

Dans Userform1 :

Private Sub CommandButton1_Click()
UserForm2.Show
Me.TextBox1.Text = UserForm2.TextBox2.Text
Unload UserForm2 ' Le décharge
End Sub

(propriétés ShowModal remises à True pour l'instant)

 

[INFINITY100]

Merci beaucoup Dranreb

ça répond exactement à ma recherche

merci infiniment