XL 2019 récupération la valeur d'une cellule dans un texbox

[benoit06190]

Bonsoir,
Après avoir essayer beaucoup de formules, je n'arrive pas à avoir la solution à mon problèmes. Voici mon soucis, je voudrais que le nom et prénom de ma cellule A7 de ma PANIER DE NOEL ( résultat d'une formule concatener) se copie directement dans le textbox1 de mon userform4.
J'ai également mis cet textbox en majuscule avec cette formule

Private Sub Textbox1_Change()
Userform4.Textbox1.Value=Active.Sheets("PANIER DE NOEL").Range("A7").Value
sub TextBox1_Change
TextBox1=UCase(TextBox1).

En vous remerçiant pour votre aide.

 

[Jacky67]

Bonsoir,
Après avoir essayer beaucoup de formules, je n'arrive pas à avoir la solution à mon problèmes. Voici mon soucis, je voudrais que le nom et prénom de ma cellule A7 de ma PANIER DE NOEL ( résultat d'une formule concatener) se copie directement dans le textbox1 de mon userform4.
J'ai également mis cet textbox en majuscule avec cette formule

Private Sub Textbox1_Change()
Userform4.Textbox1.Value=Active.Sheets("PANIER DE NOEL").Range("A7").Value
sub TextBox1_Change
TextBox1=UCase(TextBox1).

En vous remerçiant pour votre aide.

Bonjour,
Essaye comme ceci
A placer dans le code de l'userform4

Private Sub UserForm_Initialize()
    Me.TextBox1.Value = UCase(Sheets("PANIER DE NOEL").Range("A7").Value)
End Sub

Si la feuille "PANIER DE NOEL" est la feuille active, alors ceci est suffisant

Private Sub UserForm_Initialize()
    Me.TextBox1.Value = UCase(Range("A7").Value)
End Sub

 

[benoit06190]

Merci beaucoup, cela fonctionne.
On cherche trop souvent à se compliquer la vie.
Merci encore