Enregistrer valeur mis ds textbox d'un userform

Question

Bonjour,
J'ai un userform pourvu de plusieurs textbox. Les valeurs que j'entre ds ces texte box sont report&#233;s ds une feuille excel. Lorsque je ferme le classeur excel apr&#232;s l'avoir sauvegard&#233; et que je le rappelle, toutes les donn&#233;es entr&#233;es dans les textbox ont disparu.

1 / Comment faire pour que ces valeurs restent ds les textbox ?

2 / Je voudrais utiliser un bouton pour effacer le contenu de ces textbox, quelle est la proc&#233;dure

MErci
Georges

Mik10_46 · Accepted Answer

Salut,

tout d'abord, le problème est que tes textbox et tes cellules excel sont liées. Et comme tu dois certainement appelé excel à partir de ton application, les deux correspondent.
Ce que tu peux faire, c'est une macro où tu executes un copier/collage spécial (Valeur), de cette manière excel conservera ces valeurs de manières indépendantes (tu peux faire une feuille cachée).
Pour la deuxième question, tu fais un bouton avec l'instruction du type:
textbox.text="" (et de cette manière tout sera effacé!!! sauf dans excel, si tu fais comme je t'ai dit ou autrement, mais le but est que les valeurs ne doivent plus être liées!!!)

Mik10_46 · Answer

attend, je me suis peut-etre trompé après lecture de ce que je t'ai écrit!!!
ton but est de récupérer ces valeurs stockées dans excel? ou alors tes valeurs disparaissent dans excel????
si tu veux les récupérer :

ex.Worksheets("Feuil1").Activate
' n'oublies pas que la lecture dans vb se fait de droite à gauche)

textbox.text=Range("A1").value ...etc

voila, si cela t'aide, 
merci d'acceptée la réponse afin d'aider au mieux les autres qui ont le même type de soucis que toi!!!
Cordialement

cs_kouki69 · Answer

Salut,


Mes valeurs disparaissent des textes box de l' userform, celles dans la feuille d'excel sont conserv&#233;es.


Je souhaiterai que les valeurs entr&#233;es ds les texte box soient conserv&#233;s jusqu'&#224; la prochaine ouverture du classeur. Exemple


- J'ouvre le classeur, l'userform apparait en premier.


- Je rentre toutes mes valeurs ds les textbox de l'userform


Ces valeurs sont copi&#233; dans la feuille excel  par les lignes suivantes, ex
Sheets("GRAPH SELECT").Range("E9").Value = speed.Value
   (speed value &#233;tant la valeur ds le textbox, admettons 400)
LEs calculs sont r&#233;alis&#233;s, etc....
Je sauvegarde, je ferme le classeur.
Si j'ouvre &#224; nouveau ce classeur, je souhaiterai que la valeur speedvalue de 400 apparaissent tjrs ds le textbox avec la possibilit&#233; de modifier cette valeur. Si je la modifie, la valeur devra &#233;galement &#234;tre modifi&#233;e ds excel

cs_kouki69 · Answer

J'ai oubli&#233; de pr&#233;ciser,
Ds l'userform, j'ai un bouton qui lance une macro qui au final ferme 'en fait il le cache)----->userform.hide. Si je reviens ds l'userform, les valeurs ds les textbox sont conserv&#233;es(normal)
Si par contre, je clique ds la croix en haut &#224; droite de l'userform, et que je lance l'userform de ma feuille excel, les valeurs sont &#233;ffac&#233;es.
Voil&#224;, en d&#233;finitive, il semble que qd l'userform est ferm&#233;, et pas cach&#233;, les valeurs ne sont pas conserv&#233;es. Comment faire pour qu'elles le soient.
Merci

Mik10_46 · Answer

ok,
dans ce cas là, pourquoi tu ne stockes pas la valeur dans ton programme en enregistrant tout simplement ton programme dans l'état?enfin, cela dépend si c'est à partir d'un .exe ou d'un projet!!
sinon, ce que tu peux faire, c'est de rappeler les valeurs, comme je t'ai indiqué au début. Je m'explique :
tu entres tes valeurs,
ça enregistre dans excel,
tu quittes tout en enregistrant!

Au moment de l'ouverture (Load Userform),
tu appelles tes valeurs à partir d'excel,
mais quand tu changeras, les valeurs dépendront de ce que tu auras mis dans ton textbox!
donc en résumé :
tu gardes ton code tel qu'il est à l'heure actuel,
tu rajoutes juste sur ton UserForm Load :
textbox.text=Range("A1").value
je pense, que cela devrait résoudre ton pb, sinon, je me tiens à ta disposition

cordialement,

@+, Mik

Mik10_46 · Answer

normal pour ce que tu viens de rajouter, car quand tu caches tu n'effaces pas ta feuille de la mémoire!
mais quand tu fermes, tu mets la mémoire à nue!!!
mais je pense que l'indication que je t'ai donnée précédemment devrait te convenir!
cordialement
@+
Mik

cs_kouki69 · Answer

Ca marche &#224; moiti&#233;e, je m'explique:
LE bouton qui relance l'userform &#224; partir de la feuille excel, remet bien la valeur ds le textbox de l'userform, j'ai mis la commande suivante :

UserForm1.Show
UserForm1.speed = Sheets("graph Select").Range("E9").Value

Impec
Pour rappeller la valeur de la feuil excel ds l'userform lorsque j'ouvre le classeur, j'ai proc&#233;d&#233; comme ci:
Afin d'ouvrir l'userform d&#232;s l'ouverture du classeur, j'ai mis ds l'objet Thisworkbook
la ligne suivante : 

Private Sub Workbook_Open()


UserForm1.Show
et j'ai rajout&#233; la ligne ci-dessous pour qu'il me mette la valeur de la feuille ds mon textbox :

UserForm1.speed = Sheets("graph Select").Range("E9").Value
End Sub
Ca marche pas !!!! J'ai v&#233;rifier ds la feuille, la valeur est pr&#233;sente.

Mik10_46 · Answer

Tout est pratiquement juste.
le seule erreur de ta part, est le fait que tu attribues la valeur d'une case &#224; ton applic.
et c'est l&#224; qu'est l'erreur :
c'est plut&#244;t du style:

Textbox.text = Sheets("graph Select").Range("E9").Value

ce n'est pas l'applic qui prend la valeur, mais un ou plusieurs textbox!!!
maintenant, si je me trompe, j'en suis d&#233;sol&#233;!
Cordialement,
Mik

cs_kouki69 · Answer

Mik,
Ca ne marche pas !
LE nom de mon textbox est le suivant : textetoi
Le nom de mon userform est userform1
LA cellule de la feuille excel est la suivante : E9, ds la feuille "graph select"

Ce que je veux donc c'est mettre la valeur de la cellule E9 dans le textbox de l'userform1 &#224; l'ouverture du classeur.
L'userform1 s'ouvre &#224; l'ouverture de la mani&#232;re vsuivante :
Ds "this workbook", j'ai ecris la ligne suivante :
userform1.show

J'ai  mis &#233;galement apr&#232;s userform1.show la ligne suivante :
 userform1.textetoi.value= sheets ("graph select").range("E9").value
--> Ca marche pas
J'ai essay&#233; ce que tu m'as propos&#233;, &#224; savoir :
textbox.textetoi = sheets ("graph select").range("E9").value
--> Ca marche pas
OU EST CE QUE JE DECONNE ???

Mik10_46 · Answer

Salut,
ta 1&#232;re erreur, est :
textbox.textetoi = sheets ("graph select").range("E9").value
c'est plut&#244;t du style :
textetoi.text = sheets ("graph select").range("E9").value

De plus, il faut que t(u charges la feuille car les valeurs ne sont pas en m&#233;moire!!!
je m'expliques :
&#224; l'ouverture de ton applic
dans thisworkbook_open
worksheets("graph select").Activate
userform1.show

Voila, je pense que cela devrait fonctionner.
il faut que tu fasses aux erreurs de syntaxe!!!!!!
le mieux quand tu n'arrives pas, tu fais une verif en pas &#224; pas (touche F8)
voila,
@+
tiens moi au courant

Enregistrer valeur mis ds textbox d'un userform

10 réponses

Discussions similaires