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

benoit06190

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
VB:
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
VB:
Private Sub UserForm_Initialize()
    Me.TextBox1.Value = UCase(Range("A7").Value)
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
315 089
Messages
2 116 098
Membres
112 661
dernier inscrit
ceucri