saisie de données dans userform / creation d'application

Bonjour je suis débutant totalement novice en VBA et je sollicite votre aide s'il vous plait.
Pour mon job je souhaite développer une petite application sous excel qui me permettra de passer outre les feuilles et de n'avoir à utiliser qu'une interface.
Cela va servir à plusieurs utilisateurs débutants et donc les champs à renseigner dans le formulaire sont ceux qui sont utiles.
Sur la feuille Excel, toutes les données permettent à des formules de sortir des infos.
Ces infos devront apparaitre dans des champs du userform pour que les utilisateurs puissent les copier/coller dans d'autres applis ou encore les imprimer pour contrôle ultérieur.
J'ai essayé de télécharger des BDD VBA, de lire à gauche et à droite et j'ai plein d'infos. Mais j'avoue que je ne sais pas où les mettre, comment les structurer, où mettre les codes précisément etc.
En bref j'ai besoin d'un bon coup de main !!! Si un utilisateur chevronné peut me guider et me dire comment structurer tout cela ce serait génial !!! Merci par avance à vous tous.

Bonjur stifler78, bienvenue sur le forum.
Ce qui importe pour faciliter ce que tu cherches à faire est la structure de tes données :
Une colonne par champ de saisie avec un en-tête.
Si tu as fait ça, tu as un exemple ici un exemple de ce que tu peux faire. Tu peux même utiliser le classeur tel quel en corrigeant seulement la feuille de calculs.
Mais pour un "début" dans VBA, tu vas devoir cravacher ;)
Bon courage

hello ! merci pour ta réponse. Je pense que je vais en baver ça c'est clair !:lol: pas mal ton petit fichier je vais essayer de copier dessus et si j'ai besoin de conseils complémentaires pour coller à ce que je veux faire, pourras tu me dépanner ? Merci encore et bonne journée.
Sébastien

Pas de problème pour t'aider, nous sommes tous les yeux grand ouverts mais un conseil : Pose une question à la fois et précise bien le contexte et ce que tu veux obtenir. Le code viendra automatiquement de la structure de ton appli ;)
Bonne journée à toi aussi.

Bonsoir !
J'ai pu un peu avancer lol, grâce à ton fichier j'ai pu déclencher l'affichage automatique du userform dès l'ouveture du fichier excel. Mais j'ai essayé de reprendre ce code et de le mettre sur les boutons d'action afin qu'en cliquant dessus ils ouvrent d'autres userform. En quelque sortes j'ai essayé de créer un menu avec des liens vers d'autres formulaires. J'ai bien mit les noms des userform en lieu et place de userform1 et au lieu de workbook open j'ai utilisé "Private Sub CommandButton1_Click()" puisque je suis sur des boutons d'actions
Voici le code générique sur lequel je me suis basé :

Code:

---

1 2 3 4 5

Sub Workbook_open() Load UserForm1 UserForm1.Show 'Thisworkbook.Close True End Sub

---

J'ai ensuite sauvegardé et redémarré mon fichier. Cela a fonctionné au départ puis lorsque j'ai cliqué sur le 2ème bouton, vlan, plantage du code, puis d'excel et en me le réparant, ce vilain méchant logiciel me supprime les userform que j'ai mit si longtemps à faire grrrrr
Y a t il une subtilité ? ou quelquechose que j'ai mal fait ? j'ai essayé sur Excel 2003 au boulot et à la maison sur Excel 2007.
Peux tu m'aider ? Merci par avance et bonne soirée !! Cordialement, Sébastien

Citation:

---

Envoyé par stifler78

Peux tu m'aider ?

---

Sans savoir ce que tu as fait dans le détail ?
Déjà, pour afficher un second userform, masque celui contenant le bouton

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() 'bouton dans usf1 Me.hide 'masque usf1 sans le décharger Load UserForm2 UserForm2.Show Userform1.show 'Affiche Userform1 quand Userform2 est quitté End sub

---

Si tu as laissé "userform1" au lieu de "Userform2", c'est normal que tu aies eu un pb.

Dans UserForm2, si tu mets un bouton pour le décharger, derrière le clic du bouton tu mets

Code:

---

1 2 3

Private Sub CommandButton1_Click() Unload me End sub

---

Me remplace le nom de l'userform actif dans le code de l'userform actif

Sans doute une erreur dans la gestion des userforms mais va savoir 8O
En outre tu as perdu le code :(
Teste déjà ça pour apprendre à jouer un peu avec les userforms.
Bonne soirée (!) enfin c'est ce que je te souhaite malgré tout :?

Ca marche, cela ne plante plus ! si je comprends bien sans cette ligne de commande, les formulaires restent en mémoire et ça pose des problèmes.
Je continue, je te tiens au courant.
Encore merci !

Citation:

---

Envoyé par stifler78

si je comprends bien sans cette ligne de commande, les formulaires restent en mémoire et ça pose des problèmes.

---

Tu n'es pas obligé de décharger Userform2 pour retourner dans Userform1.
Par exemple, si dans userform1 tu as besoin de données saisies dans usf2, pour retourner dans usf1 tu mets dans usf2

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Me.hide Userform1.show End sub

---

mais dans ce cas-là, dans userform1, tu supprimes "Userform1.show" qui suit l'activation de usf2 dans le code du bouton.

Dans ce cas, (si les deux userforms sont actifs, l'un d'eux étant masqué)
pour tout quitter depuis Userform1, tu mettras derrière un bouton "QUITTER_TOUT_USF1"

Code:

---

1 2 3 4

Private Sub QUITTER_TOUT_USF1_Click() Unload Userform2 Unload Userform1 End sub

---

tandis que pour fermer tout depuis userform2 tu mettras l'inverse dans le code de son bouton "QUITTER_TOUT_USF2"

Code:

---

1 2 3 4

Private Sub QUITTER_TOUT_USF2_Click() Unload Userform1 Unload Userform2 End sub

---

A+

bon je progresse j'ai bien réussi à mettre tous les enchainements avec les différents boutons, c'est sympa ça commence à ressembler à qqch.
Question(s) :
Je voudrais récupérer des chiffres insérés dans mes textbox pour qu'ils aillent directement dans les cellules de mes feuilles Excel. Une fois dedans, il y a des fomules deja faites dans la feuille. Les résultats s'afficheront dans d'autres Textbox.
Exemple basique : je saisis 1 dans une textbox puis 2,5 et en cliquant sur calculer j'aimerais que le userform me rapatrie le résultat dans une troisième textbox.
Peut on lier une cellule à un text box et récupérer le résultat d"une formule dans un autre ? ou doit on retranscrire toutes les formules en VBA ?
Dans les deux cas je ne vois pas trop comment faire. Seule piste que j'ai trouvé c'est dans les propriétés de ma text box, le controle "control source".
Peux tu m'aider s'il te plait ? je cherche depuis toute à l'heure, je bidouille mais cela ne fonctionne pas 8O
Merci par avance et bonne journée à toi !

Tu poses deux questions... et même plus

Citation:

---

Envoyé par toi

Je voudrais récupérer des chiffres insérés dans mes textbox pour qu'ils aillent directement dans les cellules de mes feuilles Excel.

---

Si tu connais l'adresse de la cellule tu peux faire ça dans l'exit du TextBox

Code:

---

Cells(NoLig,NoCol) = Me.textBox10.value

---

Citation:

---

Envoyé par toi

Une fois dedans, il y a des fomules deja faites dans la feuille. Les résultats s'afficheront dans d'autres Textbox

---

Où se trouvent tes formules ? Pas dans la même cellule (!)
Sinon, toujours dans l'exit du TextBox10, tu mets

Code:

---

Textbox11.value = Cells(NoLig,NoCol).offset(0, Le décallage entre NoCol et la Colonne Contenant La Formule)

---

Exemple
La donnée se trouvant dans la colonne 1 ("A"), la formule dans la colonne (NoCol) = 3 ("C")... tu mets

Code:

---

Textbox11.value = Cells(NoLig, NoCol).offset(0, 2)

---

Commence par là en adaptant les N° de ligne et de colonne
A+

Bonjour à toi ! merci pour tes explications. J’arrive à comprendre comment cela fonctionne cependant je n’arrive pas à le faire marcher.
Je t’explique l’architecture de mon fichier.

Il y a 4 feuilles.

La première s’appelle restitution , la seconde Courrier, la troisième Calculette et la quatrième SaisieTL

Il y aura un userform par feuille puisque ce sont des opérations différentes.

Si je prends juste le premier qui est restitution.
Théoriquement si je veux que les infos de ma textbox soient inscrites dans la cellule B2 de la feuille restitution, dois-je le préciser sous une forme comme celle-ci :

Code:

---

1 2 3

Private Sub TextBox2_Exit() TextBox2.Value = Sheets("saisie").Cells(2, 2).Offset(0, 2) End Sub

---

Cette nomenclature ne fonctionne pas, il doit y avoir une subtilité.
Pourrais tu m’expliquer précisément à quoi correspond l’instruction offset s’il te plait ?
Merci par avance pour ton aide précieuse.
Bonne journée.