OVH Cloud OVH Cloud

remontée d'information vers un Textbox

2 réponses
Avatar
Rémi
Bonjour tout le monde,

J'ai un petit problème, avec un textbox d'un formulaire. Je voudrais faire
remonter des données de ma feuille vers mon textbox et j'ai essayé les deux
codes suivants mais qui ne fonctionnent pas, cela vient-il de la valeur
Change ?

Si quelqu'un pouvait me secourir

Merci d'avance



Private Sub toto_Change()

toto.Value = Range("mafeuille!P18").Value

End Sub



Private Sub toto_Change()

toto.Value = Sheets("mafeuille ").Range("P18").Value

End Sub

2 réponses

Avatar
papou
Bonjour
Comme son nom l'indique, l'évènement Change intervient lorsque l'on effectue
une saisie dans le contrôle.
Donc je ne pense pas que cela correspond à ton souhait.
Si tu veux initialiser une valeur dans ton textebox à l'affichage de ton
userform, tu peux le faire comme ceci :
Private Sub UserForm_Initialize()
toto.Value = Range("mafeuille!P18").Value
End Sub

NB: Code à placer dans le code de ton userform
Cordialement
Pascal

"Rémi" a écrit dans le message de news:
u%23f%
Bonjour tout le monde,

J'ai un petit problème, avec un textbox d'un formulaire. Je voudrais faire
remonter des données de ma feuille vers mon textbox et j'ai essayé les
deux codes suivants mais qui ne fonctionnent pas, cela vient-il de la
valeur Change ?

Si quelqu'un pouvait me secourir

Merci d'avance



Private Sub toto_Change()

toto.Value = Range("mafeuille!P18").Value

End Sub



Private Sub toto_Change()

toto.Value = Sheets("mafeuille ").Range("P18").Value

End Sub



Avatar
El pequeno
Bonjour Rémi.

"L'évenement" Change n'est pas pas le bon évenement à utiliser.
Essaye avec "lnitialize" :

Private Sub toto_Initialize()

toto.Value = Sheets("mafeuille ").Range("P18").Value

End sub

Cordialement



Bonjour tout le monde,

J'ai un petit problème, avec un textbox d'un formulaire. Je voudrais faire
remonter des données de ma feuille vers mon textbox et j'ai essayé les deux
codes suivants mais qui ne fonctionnent pas, cela vient-il de la valeur
Change ?

Si quelqu'un pouvait me secourir

Merci d'avance



Private Sub toto_Change()

toto.Value = Range("mafeuille!P18").Value

End Sub



Private Sub toto_Change()

toto.Value = Sheets("mafeuille ").Range("P18").Value

End Sub