Copie de Valeur de TextBox entre 2 USF

[Provence Vintage]

Bonjour le Forum,

J'ai un USF nommé: DonnéesGénérales,
Une TextBox1 dont je veux que la Valeur soit recopié dans un autre USF
USF non nommé, dans la TextBox24

le principe du code:
dans UserForm1 Dans TextBox24 j'écris:

UserForm1.TextBox24.Value = DonnéesGénérales.TextBox1.Value

ça ne fonctionne pas!
faut-il le mettre en initialisation du Sub?

Merci😕

 

[juju_69]

Re : Copie de Valeur de TextBox entre 2 USF

Bonjour,

As tu essayer d'affecter la valeur à une variable déclarée en Public ?

Public temp as string

Dans ton usf DonnéesGénérales tu fais : TextBox1.Value.Value = Temp
Puis dans ton usf1Puis temp = TextBox24.Value

@ +

Juju
Edit : Yop Robert, j'ai été plus rapide car beaucoup moins courageux que toi 🙂 Tes explications sont bien plus claires !

 

[Robert]

Re : Copie de Valeur de TextBox entre 2 USF

Bonsoir Provence Vintage, bonsoir le forum,

Si l'UserForm DonnéesGénérales reste ouvert quand tu ouvres l'UserForm1, tu peux en récupérer la donnée et la mettre, par exemple, à l'initialisation :

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm1
Me.TextBox24.Value = DonnéesGénérales.TextBox1.Value
End Sub

Mais si DonnéesGénérales est fermé avant d'ouvrir UserForm1 il te faudra stocker le contenu de la TextBox1.
Soit dans une cellule quelconque (tu pourras l'effacer ensuite) :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("IV1").Value = me.TextBox1.Value
End Sub

soit sous forme de variable en déclarant dans un module, au tout début, (Module1 par exemple) une variable publique du style :

Public mavar As String

puis lui affecter la valeur, a la sortie de la Textbox1 par exemple avec

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
mavar = TextBox1.Value
End Sub

puis récupérer cette valeur pour l'UserForm1 par :

Private Sub UserForm_Initialize()
Me.TextBox24.Value = mavar
mavar = ""
End Sub

ou si tu avais stocké dans une cellule :

Private Sub UserForm_Initialize()
Me.TextBox24.Value = Range("IV1").Value
Range("IV1").Value = ""
End Sub

Voir pièce jointe en exemple...
Il faut taper du texte dans la TextBox1 car mavar est déclarée comme String dans mon exemple... Tu adapteras si besoin.

Édition:

Bonsoir Juju on s'est croisé

 

[Provence Vintage]

Re : Copie de Valeur de TextBox entre 2 USF

merci Juju, robert,

J'incorpore et je vous dit
bonne Journée

 

[Provence Vintage]

Re : Copie de Valeur de TextBox entre 2 USF

Coucou le Fil,

ça fonctionne uniquement entre 2 usf lorsque cLOSE, et pes entre plusieurs....?
Merci

 

[juju_69]

Re : Copie de Valeur de TextBox entre 2 USF

Hello,

Qu'appelles tu "close" ? Je connais Hide ou unload mais close ? tu parles de quoi ?