Discussion :

[hawk91]

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

[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.

[hawk91]

Peux tu détailler je débute et c'est vraiment urgent.
Une copie de mon fichier serait-elle utile? Merci

[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.

[hawk91]

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

[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 :

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

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)

[NEC14]

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 :

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

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)

[hawk91]

Le voila en 97-2003. Et merci je teste vos solutions.

[hawk91]

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

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 :

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

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)

[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 )

[hawk91]

Tu n'as pas un mail ou je pourrai te l envoyer? Merci