Copier des informations d'un userforms à un tableau Excel

Bonjour

Presque tout est dans le titre.


Alors voilà, j'ai un programme qui affiche un userform. Dans ce userform je rentre des informations, ces informations doivent être copier par la suite dans un tableau excel.


Et c'est sur ce dernier point que mon programme bug.


Voilà le code que mon programme qui se trouve dans un module de mon tableau Excel, celui qui doit recevoir les informations.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub creation_code() Dim a As Range Set a = Workbooks("bd_code.xls").Worksheets("liste_codes").Range("a2") While a <> "" Set a = a.Offset(1, 0) Wend a.Value = textbox1.Value a.Offset(0, 1).Value = textbox2.Value ThisWorkbook.Save End Sub

---

Je l'ai testé il marche bien, mais le debugger s'arrête sur la ligne en rouge. La seconde ligne en rouge elle aussi bug donc.

En fait j'ai besoin d'une information technique, sur comment écrire dans le tableau excel les informations des textboxs de mon userform.

Merci pour les informations et le temps prit pour me répondre.

Mon problème s'affine.

En fait j'arrive à copier les informations de mon userform2. Mais j'ai un deuxèime userform (appellé userform1) et ses informations à lui ne s'enregistre pas sur la feuille Excel.

En quelques points voilà ce que je fais :

1)clic sur un bouton qui déclenche l'userform 1
2)je rentre mes infos dans l'userform 1
3)clic sur un bouton dans l'userform 1 qui déclenche:

Citation:

---

userform2.show
unload me

---

4) je rentre mes infos dans l'userform2
5)clic sur un bouton qui déclenche une macro qui copie les informations de mon userform 2 dans un tableau Excel mais il ne copie pas les infos de mon userform1.

Tout se passe donc bien sauf que les informations de mon userform1 se sont pas copier dans mon tableau.

Bonjour,

Ton problème vient du fait que tu Unload le UserForm1, c'est à dire que tu le sors de la mémoire et réinitialise tous ses contrôles.

Essaye ceci dans ton UserForm1

Code:

---

1 2	UserForm2.show Me.Hide

---

Merci pour les infos.

J'essaierai demain au bureau et je ferai un retour ici.

Merci en tout cas.

:( Ca marche pas !

Peut être une erreur de ma part quelque part. Est ce que d'autres informations osnt nécessaires ??

Citation:

---

Peut être une erreur de ma part quelque part.

---

Je dirais...probablement que oui ;)

Citation:

---

Est ce que d'autres informations osnt nécessaires ??

---

Oui, sans le code complet impossible de deviner où ça coince

Alors voilà le code qui se trouve sur mon premier classeur excel.

Code de mon premier formulaire qui se trouve dans la section "feuille" dans l'explorateur de projet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() formulaire_creation_personnel2.Show Me.Hide End Sub -------------------------------------------------------------------------- Private Sub CommandButton2_Click() Unload Me End Sub -------------------------------------------------------------------------- Private Sub UserForm_Initialize() TextBox4 = "contact@email.com" TextBox5 = "sans espace" End Sub

---

Code de mon deuxième formulaire qui se trouve lui aussi dans la section "feuille" de l'explorateur de projet:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Unload Me Workbooks.Open ("D:\Documents and Settings\Mes documents\outil\personnels\bd_personnel.xls") Application.Run "bd_personnel.xls!creation_personnel" End Sub --------------------------------------------------------------------------   Private Sub CommandButton2_Click() Unload Me End sub

---

Code de mon programme VBA sur le deuxième classeur dans la section module de l'explorateur de projet, celui qui reçoit les informations:

Code:

---

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

Sub creation_personnel()   Dim a As Range Set a = Workbooks("bd_personnel.xls").Worksheets("liste_personnel").Range("a2")   While a <> "" Set a = a.Offset(1, 0) Wend   a = textbox1 a.Offset(0, 1) = textbox2 a.Offset(0, 2) = textbox3 a.Offset(0, 4) = textbox4 a.Offset(0, 5) = textbox5   If checkbox1 = True Then a.Offset(0, 3) = "Anglais" End If   ThisWorkbook.Save End Sub

---

Encore une fois tout marche très bien sauf l'écriture des données qui se trouvent dans les textbox du premier formulaire. je vois pas trop où peut être l'erreur.

Merci pour le coup de main mais ça me débloquerait tout mon boulot de trouver ça !

C'est très confus, je ne m'y retrouve pas...

Pour commencer, pourquoi ce bout de code ?

Code:

---

1 2 3

While a <> "" Set a = a.Offset(1, 0) Wend

---

Tu fais une boucle sur une seule cellule ! que cherches tu à faire exactement ?

Ensuite dans cette partie

Code:

---

1 2 3 4 5

a = textbox1 a.Offset(0, 1) = textbox2 a.Offset(0, 2) = textbox3 a.Offset(0, 4) = textbox4 a.Offset(0, 5) = textbox5

---

Si tu ne précises pas où se situe les TextBox, il ne peut pas le deviner tout seul et le problème est que ta procédure se trouve dans le classeur 2 et doit récupérer les infos dans un UserForm du classeur 1. Le plus simple serait de mettre la procédure dans le classeur 1 et d'envoyer les infos dans le classeur 2.

C'est trop nébuleux pour apporter des réponses précises à ton problème, essaye d'expliquer ce que tu cherches à faire et les différentes étapes pour y arriver.

Citation:

---

While a <> ""
Set a = a.Offset(1, 0)
Wend

---

Ce bout de code me permet de copier les informations que je récupère dans la toute première ligne disponible. Elle n'est pas forcément la dernière de ma base de données.

Citation:

---

Si tu ne précises pas où se situe les TextBox, il ne peut pas le deviner tout seul et le problème est que ta procédure se trouve dans le classeur 2 et doit récupérer les infos dans un UserForm du classeur 1. Le plus simple serait de mettre la procédure dans le classeur 1 et d'envoyer les infos dans le classeur 2.

---

Ok je vois ce que tu veux dire, plus simple d'envoyer les infos directement plutot que de demander à mon classeur 2 de les récupérer.

En fait c'est simple ce que je veux faire. Dans mon premier classeur j'ai un bouton qui appelle le formulaire 1, je remplie les textbox, j'appelle mon deuxième formulaire en cliquant sur un bouton suivant, je rempli les autres textbox (en fait j'en ai plein et pour des informations différentes d'où le fait que j'ai deux formulaires.

Ensuite en cliquant sur un bouton "enregistrer" sur le deuxième formulaire, je déclenche mon programme creation_personnel.

Ce qui me manque donc c'est le chemin d'accès pour récupérer mes infos alors.

Un truc du genre:

Citation:

---

a = "formulaire1".textbox1
a.Offset(0, 1) = "formulaire1".textbox2
a.Offset(0, 2) = "formulaire1".textbox3
a.Offset(0, 4) = "formulaire1".textbox4
a.Offset(0, 5) = "formulaire1".textbox5

---

Bon finalement j'ai copier mon code dans mon formulaire donc ça marche :)

Merci quand même Fring et désolé pour la prise de tête.

Mais si juste comme ça tu as la solution à mon erreur je suis preneur.

à vue de nez, voici comment je procéderais, code de ton bouton "Valider" de ton UserForm2

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

Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim Wbk As Workbook, Sh As Worksheet, Cel As Range   Set Wbk = Workbooks.Open("D:\Documents and Settings\Mes documents\outil\personnels\bd_personnel.xls") Set Sh = Wbk.Sheets("NomFeuille") '<-- adapter le nom de la feuille du classeur bd_personnel Set Cel = Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)   With UserForm1 '<-- adapter le nom du userform1 Cel = .textbox1 Cel.Offset(0, 1) = .textbox2 Cel.Offset(0, 2) = .textbox3 Cel.Offset(0, 4) = .textbox4 Cel.Offset(0, 5) = .textbox5 If .checkbox1 = True Then Cel.Offset(0, 3) = "Anglais" End With   Wbk.Save Wbk.Close   Application.ScreenUpdating = True Unload UserForm1 '<-- adapter le nom du userform 1 Unload UserForm2 '<-- adapter le nom du userform 2 End Sub

---