Discussion :

[Aeltith]

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 :

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

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.

[Aeltith]

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:

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.

[fring]

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 :

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

1
2
UserForm2.show
Me.Hide

[Aeltith]

Merci pour les infos.

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

Merci en tout cas.

[Aeltith]

Ca marche pas !

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

[fring]

Peut être une erreur de ma part quelque part.

Je dirais...probablement que oui

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

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

[Aeltith]

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 :

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

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 :

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

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 :

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

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 !

[fring]

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

Pour commencer, pourquoi ce bout de code ?

Code :

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

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 :

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

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.

[Aeltith]

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.

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:

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

[Aeltith]

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.

[fring]

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

Code :

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

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