Discussion :

[fdegrave]

Bonjour,

alors voila j'ai un petit problème.
J'ai créé un Userform et je je veux demander des informations à un utilisateur avec des TextBox et des ComboBox
Cependant pour éviter à l'utilisateur de tout recommencer à chaque fois, je souhaite que ce Textbox affiche au préalable les informations renseignées lors de la précédente utilisation.
Ces informations sont stockées dans la page Excel en elle même.

J'ai essayé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
TextBox14.Text = Sheets("Bilan").Range("K19").Value
TextBox14.Visible = True
TextBox14.Enabled = True
TextBox14.Locked = False

Mais ça ne fonctionne pas du tout:
1) Ca n'affiche la valeur que si je clic sur la textbox
2) la valeur à l'intérieur est figée

Voila, j'éspére que vous pourrez m'aider,
A bientot

[Daniel.C]

Bonjour,

Utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Hide

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Unload Me

pour masquer au lieu de fermer ton userform

[fdegrave]

Excuse moi, mais je ne comprends pas du tout en quoi cela répond à la question.

Ah ou alors je me suis mal exprimé.
Il peut y avoir plusieurs jours entre les deux utilisations, donc la page excel est fermée... entre les deux!

[DeTraX]

Bonjour,

La réponse que te donne Daniel est la bonne si tu souhaites que la mémorisation des informations saisies ne persiste pas après la fermeture de l'application.

Par contre, si tu veux traiter le sujet comme la mémorisation de préférences, il te faut passer par une base de données avec une table de gestion des préférences contenant l'ID de l'utilisateur, le nom du champ et sa valeur - voire une valeur par défaut.
Ensuite tu codes les évènements :
- A l'ouverture de l'application, tu charge le formulaire des préférences avec les valeurs de l'utilisateur (et tu laisses le formulaire masqué)
- Quand l'utilisateur clique sur un bouton "Préférences", tu rends le formulaire des préférences visible
- A la sauvegarde des préférences, tu sauves les valeurs des champs dans la base (pour l'utilisateur) et tu rends le formulaire à nouveau invisible

[Fvandermeulen]

Salut,

A mon avis le problème vient de l'évènement dans lequel tu as placé le code (qui a priori est correct)

Tu dois placer ce code dans ton userform sur l'évènement initialize

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    TextBox14.Text = Sheets("Bilan").Range("K19").Value
    TextBox14.Visible = True
    TextBox14.Enabled = True
    TextBox14.Locked = False
End Sub

Toutefois, si je peux te donner un ou deux conseils...
-Renomme tes Item, plus facile quand tu en as beaucoup de s'y retrouver
moi je commence toujours par Obj_ et son type
En admettant que ton TextBox14 attend le chiffre d'affaire, je nommerais:
Obj_TB_CA

-Utilise Me. avant, Me correspond à l'userform actif.
Dès lors que tu l'utlise, tu accède aux attributs/évènements
J'en reviens à l'astuce de toujours nommer tes Item, ils seront alors dans les listes des attributs regroupés

-N'hésites pas à utiliser le With pour limiter la saisie et rendre ton code plus concis.

Ton code revus à ma sauce:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
With Me.Obj_TB_CA
    .Text = Sheets("Bilan").Range("K19").Value
    .Visible = True
    .Enabled = True
    .Locked = False
End With
End Sub

A+

[Daniel.C]

J'ai peut-être mal compris. Je joins un classeur montrant ce que j'ai voulu faire. Appuie sur le bouton "UserForm" pour afficher celui-ci. Saisis quelque chose dans le textbox. Appuie sur le bouton "OK". Appuie de nouveau sur le bouton "UserForm". Le textbox affiche le contenu saisi précédemment.

[fdegrave]

Merci Fvandermeulen
Éventuellement, sais tu comment faire pour un ComboBox?
J'ai essayé la même chose mais cela ne fonctionne pas. (Après je peux peut être mettre une TextBox a coté, ça suffira...)!

@ Daniel.C
Malheureusement, je n'arrive pas à ouvrir ton fichier correctement.
Il me détecte un problème de sécurité.

[Fvandermeulen]

Merci Fvandermeulen
Éventuellement, sais tu comment faire pour un ComboBox?
...

Pour afficher une valeur voulut d'une Combobox, j'utilise le ListIndex (attention, le premier élément = 0)

Il faut donc savoir comment tu alimente la liste pour pouvoir définir comment trouver le bon index.
Je te mets un exemple simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
With Me.Obj_TB_CA
    .Text = Sheets("Bilan").Range("K19").Value
    .Visible = True
    .Enabled = True
    .Locked = False
End With
 
Me.Obj_CB_Nom.AddItem "Jean"
Me.Obj_CB_Nom.AddItem "Marc"
Me.Obj_CB_Nom.AddItem "Louise"
 
Me.Obj_CB_Nom.ListIndex = 1 'Affiche l'index 1, sachant que ça commence à 0 on doit avoir Marc à l'affichage de l'UF
 
End Sub

[fdegrave]

C'est ok,
merci à vous deux!!!