Renvoi la valeur de la cellule vers textbox

[BRUNO62]

Bonjour,

J'ai besoin d'aide.
Pour illustrer ma demande. J'ai repris un fichier pris du site.
Je souhaite à chaque modification de la feuil1.
La valeur de la cellule R19 modifié se change automatiquement dans la textbox 15
Avez vous une idée.
Merci, d'avance
Bonne journée
A+

 

[camarchepas]

Re : Renvoi la valeur de la cellule vers textbox

Bonjour ,

Une solution possible ...

 

[aspe]

Re : Renvoi la valeur de la cellule vers textbox

Bonjour,

Sous For Each CTRL In Controls
ajouter:
TextBox15.Value = Sheets("Feuil1").Range("R19").Value

 

[Dranreb]

Re : Renvoi la valeur de la cellule vers textbox

Bonjour.
Un truc qui marche pour tout changement de cellules sources présumées antécédentes possibles :
En tête de l'Userform :

Dim WithEvents Excel As Application

Plus loin :

'Alimenter USF
Private Sub UserForm_Initialize()
Set Excel = Application
'…

Enfin ajouter cette procédure :

Private Sub Excel_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Me.TextBox15.Text = Format(Feuil1.[R19].Value, "0.00 €")
End Sub

 

[BRUNO62]

Re : Renvoi la valeur de la cellule vers textbox

Bonjour à camarchepas, aspe, Dranreb,

Merci, à vous.
C'est OK.
Grand MERCI.Bonne journée
A+