utilisation userform

Bonjour j'ai plusieurs probleme sur exel si quelqu'un peut m'aider je le remercie par avance meme pour 1 question alors j explqiue mes problemes


1)Comment faire pour ques des infos disponible dans un usurforme (et saisie par l individu) puisse etre reporter sur un autre usurforme mais ce dernier comporte d autre informations (que je souhaite calculer).

2) Comment faire pour que des saisie a partir d un usurforme puisse etre placer sous les precedante. j m explique j ai reussi a retransmettre les info de mon usurforme sur la feuille exel mais je souhaoite que c dernier puisse etre enregister sur ma feuille exel et qu une nvelle saisie puisse etre enregistre a la suite

voici ce que j ai fait
Sheets("Go Crédit").Range("A11").Value = Me.TextBox3.Text
'ce qui me permet de la fffichera la cellule A11 mais comment faire pour que la nouvelle saisie aille en dessous soit en cellule A12'
merci davance

SAlut
8O c'est claire comme du jus de chic.
Ce que j'en comprend c'est que tu as une zone de text sur un userform et que quand tu appui sur un bouton tu veux mettre la valeur saisi dans un tableau.
Et qu'a chaque nouvel appui sur le bouton tu ailles 1 cellule plus bas.
Tu as au moins de choix possible.
Je pense que le plus simple est le suivant, tu regarde le 1ere case vide et tu y met ta valeur

Code:

---

Sheets("Go Crédit").cells(rows.count,"A").End(XlUp) := me.TextBox3.Text

---

Pour le reste explique un peu plus ce que tu veux ou mieux, met carrement un fichier exemple ;)
A++
Qwaz

[Edit]
Ps: change le topic de ton sujet et met en un en rapport avec ta question ;)
[/Edit]

je n'est pas encore essayé mais avant de m'y hater je vais mieux expliquer

Je dispose de mon premier usurforme (frmCredit) et d'un deuxieme usurforme (frmReponse) je souhaite plus precissiment que des infos saisie sur l usurforme frmcredit soit representer sur mon deuxieme uniforme (frmreponse) apres avoir valider sur un bouton.

'Commnande permettant de passer au deuxieme usurforme (frmReponse)
frmReponse.Show

'je vaiy agouter la commande que tu m a donner pour que les infos saisie y apparaisse sur la feuille exel'

MAIS comment faire pour que les infos saisie sur cette usurforme (frmCredit)) apparaise sur le second (frmReponse) (ces inforamtion sont le nom prenom ect....)




je profite pour demander auytre chose :oops:

Comment faire pour effectuer un calcul automatiquement cad apres la saisie des informations necesaire pour le calcul par l utulisateur


sachant que le calcul ets le suivant

Sub textTotal_Change()
TextTotal = TextMontant(1 + TextTaux) * TextDuree
End Sub

ait-je ete asser clair ??????????


merci d avance

Re
Pour transmettre les valeurs d'un UserForme a l'autre tu fait comme ca dans le bouton

Code:

---

1 2 3 4 5 6

'tu t'assure que t'as form est chargée Load frmReponse   'Tu recupert alors les valeurs frmReponse.TextBox1.Text = TextBox1.text 'le 2eme c'est le textbox qui se trouve sur la fenetre en cours Me. est facultatif [...] 'Pareil pour les autre controle

---

A++
Qwaz

Pour les calculs c'est comme ca, il faut convertir les donné text en données numeric. Attention de bien controler avant que les données soit numeric

Code:

---

1 2 3 4

'On test si les données sont numeric If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then TextBox3.Text = CStr(CSng(TextBox1.Text) + CSng(TextBox2.Text)) End If

---

Pour affiner un peu le truc tu peux controler que l'utilisateur utilise bien le bon separateur decimal, regarde dans les topic precedent la question a deja ete traité

A++
Qwaz

re
Je tenais deja a te remercier pour ton aide (je suis vraiment perdu)

Pour les calcule je vais essayer masi revenons a mon probleme de formulaire je n arrive tjs pas a faire en sorte que les donnee inscrit sur mon formulaire cerdit apparauisse sur mon formulaire reponse
voila ce que j ai fait (je suis novice dsl il faut faire calmement)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub cmdValider_Click()   Load frmReponse   'Commnande permettant de passer au deuxieme usurforme (frmReponse)   frmReponse.Show   'Commande permettant d'afficher sur la feuille exel toutes les informations saisient par l'utulisateur' Sheets("Go Crédit").Cells(Rows.Count, "A").End(xlUp) = Me.TextStatut.Text Sheets("Go Crédit").Cells(Rows.Count, "B").End(xlUp) = Me.TextNom.Text Sheets("Go Crédit").Cells(Rows.Count, "C").End(xlUp) = Me.TextBox2.Text Sheets("Go Crédit").Cells(Rows.Count, "D").End(xlUp) = Me.TextMontant.Text Sheets("Go Crédit").Cells(Rows.Count, "E").End(xlUp) = Me.TextDurée.Text Sheets("Go Crédit").Cells(Rows.Count, "F").End(xlUp) = Me.TextTaux.Text     frmReponse.TextNom.Text = TextNom.Text frmReponse.TextStatut.Text = TextStatut.Text frmReponse.TextTaux.Text = TextInteret.Text frmReponse.TextMontant.Text = TextMontant.Text frmReponse.TextDurée.Text = TextDurée.Text     Unload Me End Sub

---

Je t'EXPLIQUE je desire saiir des infos (ds le formulaire frmcredit) qui vont automatiquement dans le deuxieme formulaire (frmreponse) puis ces donnes doivnet etre inscrit sur ma feuille exel mais chaque nouvelle saisie doivent etre ecrite l une en dessous de lautre


j espere etre asser clair et encore merci d avance je desssespere depuis plusieurs jours:evilred:

les commander que je ecrite je les ait inscrite ds un bouton valide sur mon premiere usurforme

Si tu utilise une version superieur a Excel 97, utilise

Code:

---

UserForm1.show False

---

Et ne mets cette ligne qu'une fois tes données inscrites dans ton 2eme UserForm. Le UserForm apparaitra directement avec les valeurs saisies comme ca ;)

a++
Qwaz

Re,
Pourrais tu stp modifier ce que j ai copier precedemamnt car la je uis :aie: , completement perdu oui effectivement je dispose d exel 2003


j ai un peu :oops: de te deamnder ça mais ej deprime je suis perdu:(

Pense a mettre des balise code dans tes topics

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub cmdValider_Click()     'Commande permettant d'afficher sur la feuille exel toutes les informations saisient par l'utulisateur Sheets("Go Crédit").Cells(Rows.Count, "A").End(xlUp) = Me.TextStatut.Text Sheets("Go Crédit").Cells(Rows.Count, "B").End(xlUp) = Me.TextNom.Text Sheets("Go Crédit").Cells(Rows.Count, "C").End(xlUp) = Me.TextBox2.Text Sheets("Go Crédit").Cells(Rows.Count, "D").End(xlUp) = Me.TextMontant.Text Sheets("Go Crédit").Cells(Rows.Count, "E").End(xlUp) = Me.TextDurée.Text Sheets("Go Crédit").Cells(Rows.Count, "F").End(xlUp) = Me.TextTaux.Text   'on charge en memoire la fenetre si ce n'est pas deja fait Load frmReponse   frmReponse.TextNom.Text = TextNom.Text frmReponse.TextStatut.Text = TextStatut.Text frmReponse.TextTaux.Text = TextInteret.Text frmReponse.TextMontant.Text = TextMontant.Text frmReponse.TextDurée.Text = TextDurée.Text   frmReponse.Show False   'Il vaut mieux cacher la fenetre plutot que de la decharger (enfin c mon avis) Me.hide   'Unload Me End Sub

---

J'ai pas testé mais ce doit etre bon.
Par contre attention au debut avec les cells(...).End il faut imperativement que tes TextBox contiennent des données pour faire comme cela, car sinon tu va toutes decaler tes données.

desolé j ai une erreur il me dise erreur d application 401

impossible d 'afficher une feuille non modale lorsque une feuille modalle est affiché :?

ce qui est en jaune c cette commande frmReponse.Show False

enfin j 'ai reussi a transmettre les infos noté sur mon usurforme1 sur le 2 eme

Maintenant j'ai 2 autre soucis:

1) mon premier est de permettre au données saisie sur mon usurforme d'aller sur ma feuille exel (ça je ais faire c par exemple:
Sheets("Go Crédit").Range("A11").Value = Me.TextPre.Text
mais je veux qu'une nouvelle saisies aille directement en dessous de l autre sachant que pour moi ma premiere saisies doit allé a la celule A11
je sais que c une bouvle mais je n ai aps reussi a l appliquer


2) comment permettre a vba d'effectuer un calcul directement apres la saisie des données sur mon usurforme
voici mon calcul:

Code:

---

1 2 3

Sub textTotal_Change() TextTotal = TextMontant(1 + TextTaux) * TextDuree End Sub

---

si quelquin peu m aider qu'il maide svp je dessepere


merci a tous le monde pour votre aide

Et qu'advient-t-il de ton autre poste avec la même question pour lequel tu à eu des réponses aujourd'hui à 17h21 et 17h47 et auquel tu ne daigne même pas répondre.
A+++++

Effectivement je me suis emmellé les pinceaux entre les 2 postes
je m'excuse donc et vais mettre ce post comme etant resolu je vous pris de m'excuser:oops: