Sauvegarder données dans UserForm

Version imprimable

07/04/2009, 12h07
hawk91

Sauvegarder données dans UserForm

Bonjour à tous, je viens de créer un userform et je souhaiterais sauvegarder les données entrées dans l'userform et le transférer par mail.
Il y a plusieurs étapes :
1- user rempli le userform
2- il l'enregistre
3- il l'envoie par mail
4- la 2éme personne le valide et ça part la 3ème ou ne le valide pas et ça repart à la 1ère.

Je n'arrive pas à sauvegarder les données dans le UserForm,

merci
07/04/2009, 12h14
ucfoutu

Bonjour,

Un UserForm est volatile (ses données).
Il te faut donc :
- soit utiliser un fichier texte additionnel, à écrire avec les données au départ et à relire à destination pour recharger le userform
- soit utiliser des cellules (de la même feuille ou d'une feuille additionnelle) pour faire la même chose qu'au dessus.
07/04/2009, 12h21
hawk91

Peux tu détailler je débute et c'est vraiment urgent.
Une copie de mon fichier serait-elle utile? Merci
07/04/2009, 12h29
Krovax

En espérant que cela sera plus clair :

ce que tu écris dans ton userform ne peux pas être "sauvegardé" quand tu fermes le userform tout disparaît. Tu dois copier ces données (à l'aide d'une macro) soit dans les cellules de ta feuille excel soit dans un fichier texte (ou autre).
Et si tu veux les récupérer, les charger (à l'aide d'une macro) à partir de là ou elles étaient sauvegardées.
07/04/2009, 12h32
hawk91

1 pièce(s) jointe(s)

Merci j'ai bien compris c'est la marche a suivre, je débute et la je suis pris par le temps voici mon fichier.
Oui il faudrait pouvoir enregistrer le classeur et que lorsque on le réceptione il rouvre les données car la 2eme personne dois les voir et valider si ok ou refuser.
J ai presque tout finis, plus que 2 problème et pas des moindre les données et le format de sortie car trop gran en affichage pour un ecran de tablet pc en 9"

Je ne sais pas comment faire pour "lier" les donner du UserForm aux cellules, help
07/04/2009, 13h03
Krovax

Je ne vais pas pouvoir ouvrir ton fichier (je suis sous 2003 et visiblement toi pas) du coup je vais te répondre en aveugle
On ne lie pas le userform et les cellules (ou alors j'aimerais sérieusement savoir comment)
Par contre

Code:

feuil1.cells(1,1)=userform1.textbox1.value

ecrit dans la cellule A1 la valeur de la textbox1
Tu peux faire pareil avec les listbox et autres (voir ici)

Tu fait l'inverse à l'ouverture dans la subroutine
Private Sub UserForm_Activate()

Par contre ca n'aurais pas été plus simple de faire un fichier excel protégé et certaine nom pour pouvoir écrire dedans
Pour l'affichage sur 9" j'avais vu un moyen d'adapter la taille mais je ne retrouve plus regarde les faq et les contribution VBA execl et VBA access (je croit que ct dans ce dernier)

Bonjour,
Voici ce que j'ai fait.
Lors de la validation de l'UserForm la feuille BC1 est activée.
Dans la cellule B24 de la feuille active va se trouver la donnée qui a été saisie dans la Combo (CmbListeBat) et ainsi de suite.
Tu adapte en changeant les noms et je crois que cela devrait fonctionner.
Bon courage

Code:

1
2
3
4
5
6
7
8
9
10
11
 
           Sheets("BC1").Activate
                [B24].Value = (FrmEngt.CmbListeBat.Value)
                [B25].Value = (FrmEngt.CmbNom.Value)
                [D24].Value = (FrmEngt.CmbNom.Value)
                [G6].Value = CDate(FrmEngt.TxtDate)
                [H14].Value = (FrmEngt.CmbListeCred.Value)
                [N11].Value = (FrmEngt.CmbListeTiers.Value)
                [N15].Value = (FrmEngt.TxtNum.Value)
                [N17].Value = (FrmEngt.CmbMarche.Value)
                [N19].Value = (FrmEngt.TxtNome.Value)

07/04/2009, 14h32
hawk91

1 pièce(s) jointe(s)

Le voila en 97-2003. Et merci je teste vos solutions.
07/04/2009, 14h35
hawk91

Mais ou dois je mettre ça dans l'userform?

Citation:

Envoyé par Krovax

Je ne vais pas pouvoir ouvrir ton fichier (je suis sous 2003 et visiblement toi pas) du coup je vais te répondre en aveugle
On ne lie pas le userform et les cellules (ou alors j'aimerais sérieusement savoir comment)
Par contre

Code:

feuil1.cells(1,1)=userform1.textbox1.value

ecrit dans la cellule A1 la valeur de la textbox1
Tu peux faire pareil avec les listbox et autres (voir ici)

Tu fait l'inverse à l'ouverture dans la subroutine
Private Sub UserForm_Activate()

Par contre ca n'aurais pas été plus simple de faire un fichier excel protégé et certaine nom pour pouvoir écrire dedans
Pour l'affichage sur 9" j'avais vu un moyen d'adapter la taille mais je ne retrouve plus regarde les faq et les contribution VBA execl et VBA access (je croit que ct dans ce dernier)
07/04/2009, 14h48
Krovax

a toi de voir, je dirais un bouton sauvegardé et dans le code tu fait ca pour chaque info.
L'exemple de NEC montre comment récupéré plusieurs infos

ps j'arrive toujours pas a ouvrir ton fichier (mais évite le zip c'est la croix et la bannière pour l'ouvrir chez moi :aie: )
07/04/2009, 14h53
hawk91

Tu n'as pas un mail ou je pourrai te l envoyer? Merci
07/04/2009, 15h01
Krovax

Pas accéssible du boulot et vau mieu le mettre sur le forum il y passe des personne bien plus compétente que moi.

Mais essaye la méthode que l'on t'a donnée et dit nous si tu coince

1 pièce(s) jointe(s)

Je ne sais pas ou mettre
Code:

1 2 Sheets("REG").Activate [B2].Value = (FrmEngt.CommListeBat.Value)
ma feuille s'appele REG

Tu as un bouton sauvegarde alors on va l'utiliser
Rajoute un onglet que tu apelle par exemple sauv
Code:

1 2 3 4 5 6 Private Sub CommandButton9_Click() Sheets("sauv").Activate [B2].Value = (userform1.TextBox31.Value) 'ecrit les donnée de ton textbox33 dans la celule B2 'etc Application.Dialogs(xlDialogSaveAs).Show End Sub

07/04/2009, 18h01
hawk91

Merci Krovax, cela fonctionne mais comment faire pour que ces données soit réintégrer dans le userform que recevra la personne 2, et aussi créer une logique de userform c est a dire que les 1er resultats en b2, puis en b3 et ainsi de suite.
08/04/2009, 09h18
Krovax

pour charger les donnée tu fait l'inverse par exemple

Code:

textbox1=[B2]

Tu le met soit dans un bouton soit dans

Code:

Private Sub UserForm_Activate()

qui se lance a l'ouverture de ton userform

Après pour organiser les resulat je te laisse voir si tu naspas trop de champs tu peux le faire manuellement sinon regarde pour une boucle mais je ne sait pas boucler sur les contrôles. L'important c'est de faire la même chose au chargement des données

Pour ton problème d'écran 9" regarde ce lien ver la faq
Par contre tu ne dimensionnera pas la taille des champs. Pour ca ca sera une autre histoire
08/04/2009, 09h53
hawk91
Merci mais dois je refaire ceci :

Code:

Sheets("sauv").Activate

et changer

Code:

[A2].Value = (UserForm1.ComboBox7.Value)

en

Code:

[UserForm1.ComboBox7] =(A2.Value)

Cela ne fonctionne pas, ni cette méthode
Code:

1 2 3 Private Sub CommandButton10_Click() ComboBox7.Value = A2 End Sub
08/04/2009, 10h02
Krovax

Heu ce n'est pas [] a gauche () a droite :roll:
prend tout ce qui est a gauche et met le a droite

Code:

[A2].Value = (UserForm1.ComboBox7.Value)

devient

Code:

(UserForm1.ComboBox7.Value) = [A2].Value

D'ailleur les () sont inutiles

J'ai trouvé :
Code:

1 2 3 Private Sub CommandButton10_Click() TextBox11.Value = Sheets("sauv").Range("J2").Value End Sub
Merci Beaucoup pour ton aide