Renvoi la valeur de la cellule vers textbox

camarchepas

XLDnaute Barbatruc

• 21 Juillet 2014

• #2

Re : Renvoi la valeur de la cellule vers textbox

Bonjour ,

Une solution possible ...

 

Pièces jointes

• USF.xlsm

  32.4 KB · Affichages: 69
• USF.xlsm

  32.4 KB · Affichages: 84
• USF.xlsm

  32.4 KB · Affichages: 63

Vote positif 0 Vote négatif

A

aspe

Guest

• 21 Juillet 2014

• #3

Re : Renvoi la valeur de la cellule vers textbox

Bonjour,

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

 

Pièces jointes

• USF-1.xlsm

  29.5 KB · Affichages: 47

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juillet 2014

• #4

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 :

VB:

Dim WithEvents Excel As Application

Plus loin :

VB:

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

Enfin ajouter cette procédure :

VB:

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

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 21 Juillet 2014

• #5

Re : Renvoi la valeur de la cellule vers textbox

Bonjour à camarchepas, aspe, Dranreb,

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

 

Vote positif 0 Vote négatif