Erreur d'actualisation UserForm

Dranreb

XLDnaute Barbatruc

• 16 Août 2017

• #2

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.

 

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 16 Août 2017

• #3

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

 

Pièces jointes

• Classeur1.xlsm

  18.6 KB · Affichages: 26

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Août 2017

• #4

Comme ça ?
Dans UserForm2 :

VB:

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 :

VB:

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)

 

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 17 Août 2017

• #5

Merci beaucoup Dranreb

ça répond exactement à ma recherche

merci infiniment

 

Vote positif 0 Vote négatif