Stocker données d'un Userform

Version imprimable

20/10/2009, 14h20
Jay29

Stocker données d'un Userform

Bonjour à tous !

J'ai crée un formulaire sous excel à l'aide d'un Userform seulement il faut que je stock les données entrées dans une ligne, ce que je ne sais pas faire. C'est pourquoi je vous demande votre aide! J'espère avoir été assez clair dans ma demande.

Merci.

Salut,
Ou j'ai un gros problème de PC ou ton fichier joint est comlètement "vide"
Quoi qu'il en soit, pour ton cas, on imagine un bouton 'valider' (CommandButton) sur ton Userform, c'est sur ce bouton qu'on associe l'évènement (l'exemple sans avoir renommé les éléments):
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CommandButton1_Click() Dim DerLig As Long 'récupère la dernière ligne remplie sur base de la colonne A DerLig = Sheets("sheet1").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row 'Place la valeur de la combobox dans la première cellule vide de la colonne A Sheets("Sheet1").Cells(DerLig + 1, 1) = UserForm1.ComboBox1.Value End Sub
Reste à adapter pour ton cas...

A+

20/10/2009, 15h24
Jay29

Voici le fichier il ne devrait pas être vide cette fois-ci :ccool:
20/10/2009, 15h29
Fvandermeulen

Re,
Désolé mais peux tu me le mettre en xls, je ne suis pas encore sur 2007 :aie:
20/10/2009, 15h33
Jay29

1 pièce(s) jointe(s)

Re,

Justement je ne peux pas le mettre en .xls sinon il ne me sauvegarde pas le useform. C'est pour ça que mon précédent fichier était vide. Je pense qu'il faut que je le mette en .xla pour que tu puisse l'ouvrir.

Edit : Voilà j'ai joint le fichier en .xla tu devrais pouvoir l'ouvrir

J'ai essayer d'adapter la formule que tu m'as donné plus haut (qui marche a merveille d'ailleurs :ccool:) cependant ca ne fonctionne pas il me sauvegarde une donnée seulement. Voici le code :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Private Sub CommandButton1_Click()
Dim DerLig As Long
 
'récupère la dernière ligne remplie sur base de la colonne A
DerLig = Sheets("Feuil1").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
DerLig1 = Sheets("Feuil1").Cells(Columns(2).Cells.Count, 1).End(xlUp).Row
DerLig2 = Sheets("Feuil1").Cells(Columns(3).Cells.Count, 1).End(xlUp).Row
DerLig3 = Sheets("Feuil1").Cells(Columns(4).Cells.Count, 1).End(xlUp).Row
DerLig4 = Sheets("Feuil1").Cells(Columns(5).Cells.Count, 1).End(xlUp).Row
DerLig5 = Sheets("Feuil1").Cells(Columns(6).Cells.Count, 1).End(xlUp).Row
DerLig6 = Sheets("Feuil1").Cells(Columns(7).Cells.Count, 1).End(xlUp).Row
DerLig7 = Sheets("Feuil1").Cells(Columns(8).Cells.Count, 1).End(xlUp).Row
DerLig8 = Sheets("Feuil1").Cells(Columns(9).Cells.Count, 1).End(xlUp).Row
DerLig9 = Sheets("Feuil1").Cells(Columns(10).Cells.Count, 1).End(xlUp).Row
DerLig10 = Sheets("Feuil1").Cells(Columns(11).Cells.Count, 1).End(xlUp).Row
DerLig11 = Sheets("Feuil1").Cells(Columns(12).Cells.Count, 1).End(xlUp).Row
DerLig12 = Sheets("Feuil1").Cells(Columns(13).Cells.Count, 1).End(xlUp).Row
DerLig13 = Sheets("Feuil1").Cells(Columns(14).Cells.Count, 1).End(xlUp).Row
DerLig14 = Sheets("Feuil1").Cells(Columns(15).Cells.Count, 1).End(xlUp).Row
DerLig15 = Sheets("Feuil1").Cells(Columns(16).Cells.Count, 1).End(xlUp).Row
DerLig16 = Sheets("Feuil1").Cells(Columns(17).Cells.Count, 1).End(xlUp).Row
DerLig17 = Sheets("Feuil1").Cells(Columns(18).Cells.Count, 1).End(xlUp).Row
DerLig18 = Sheets("Feuil1").Cells(Columns(19).Cells.Count, 1).End(xlUp).Row
DerLig19 = Sheets("Feuil1").Cells(Columns(20).Cells.Count, 1).End(xlUp).Row
DerLig20 = Sheets("Feuil1").Cells(Columns(21).Cells.Count, 1).End(xlUp).Row
DerLig21 = Sheets("Feuil1").Cells(Columns(22).Cells.Count, 1).End(xlUp).Row
 
'Place la valeur de la combobox dans la première cellule vide de la colonne A
Sheets("Feuil1").Cells(DerLig + 1, 1) = Formulaire.TextBox1.Value
Sheets("Feuil1").Cells(DerLig1 + 1, 1) = Formulaire.TextBox8.Value
Sheets("Feuil1").Cells(DerLig2 + 1, 1) = Formulaire.TextBox7.Value
Sheets("Feuil1").Cells(DerLig3 + 1, 1) = Formulaire.TextBox6.Value
Sheets("Feuil1").Cells(DerLig4 + 1, 1) = Formulaire.TextBox5.Value
Sheets("Feuil1").Cells(DerLig5 + 1, 1) = Formulaire.TextBox4.Value
Sheets("Feuil1").Cells(DerLig6 + 1, 1) = Formulaire.TextBox3.Value
Sheets("Feuil1").Cells(DerLig7 + 1, 1) = Formulaire.TextBox2.Value
Sheets("Feuil1").Cells(DerLig8 + 1, 1) = Formulaire.ComboBox1.Value
Sheets("Feuil1").Cells(DerLig9 + 1, 1) = Formulaire.TextBox10.Value
Sheets("Feuil1").Cells(DerLig10 + 1, 1) = Formulaire.TextBox9.Value
Sheets("Feuil1").Cells(DerLig11 + 1, 1) = Formulaire.ComboBox2.Value
Sheets("Feuil1").Cells(DerLig12 + 1, 1) = Formulaire.TextBox11.Value
 
If Formulaire.OptionButton1 = True Then
Sheets("Feuil1").Cells(DerLig13 + 1, 1) = Formulaire.OptionButton1.Value
ElseIf Formulaire.OptionButton2 = True Then
Sheets("Feuil1").Cells(DerLig13 + 1, 1) = Formulaire.OptionButton1.Value
End If
 
Sheets("Feuil1").Cells(DerLig14 + 1, 1) = Formulaire.TextBox12.Value
 
If Formulaire.CheckBox1 = True Then
Sheets("Feuil1").Cells(DerLig15 + 1, 1) = Formulaire.CheckBox1.Value
ElseIf Formulaire.CheckBox2 = True Then
Sheets("Feuil1").Cells(DerLig15 + 1, 1) = Formulaire.CheckBox2.Value
End If
 
If Formulaire.CheckBox3 = True Then
Sheets("Feuil1").Cells(DerLig16 + 1, 1) = Formulaire.CheckBox3.Value
ElseIf Formulaire.CheckBox2 = True Then
Sheets("Feuil1").Cells(DerLig16 + 1, 1) = Formulaire.CheckBox5.Value
End If
 
If Formulaire.CheckBox7 = True Then
Sheets("Feuil1").Cells(DerLig17 + 1, 1) = Formulaire.CheckBox7.Value
ElseIf Formulaire.CheckBox9 = True Then
Sheets("Feuil1").Cells(DerLig17 + 1, 1) = Formulaire.CheckBox9.Value
End If
 
If Formulaire.CheckBox4 = True Then
Sheets("Feuil1").Cells(DerLig18 + 1, 1) = Formulaire.CheckBox4.Value
ElseIf Formulaire.CheckBox6 = True Then
Sheets("Feuil1").Cells(DerLig18 + 1, 1) = Formulaire.CheckBox6.Value
End If
 
Sheets("Feuil1").Cells(DerLig19 + 1, 1) = Formulaire.TextBox14.Value
 
If Formulaire.CheckBox8 = True Then
Sheets("Feuil1").Cells(DerLig20 + 1, 1) = Formulaire.CheckBox8.Value
ElseIf Formulaire.CheckBox10 = True Then
Sheets("Feuil1").Cells(DerLig20 + 1, 1) = Formulaire.CheckBox10.Value
End If
 
Sheets("Feuil1").Cells(DerLig21 + 1, 1) = Formulaire.TextBox13.Value
 
End Sub

Je ne sais pas s'il est possible de procéder comme cela, j'espére que vous pourrez m'éclairer.
Ce code est censé s'exécute lorsque l'on clique sur le bouton save qui se trouve en bas du formulaire.
Merci.

Re,
Bon boulot mais il y a du nettoyage à faire...
Pour commencer ton problème d'une seule valeur:
Cela vient du fait de Cells; Cells fonctionne avec le numéro de ligne, ensuite le numéro de colonne donc cells(2,3) = cellule C2
Tu dois donc incrémenter tes colonnes en fontion de tes données, exemple:
Code:

1 2 3 Sheets("Feuil1").Cells(DerLig + 1, 1) = Formulaire.TextBox1.Value Sheets("Feuil1").Cells(DerLig1 + 1, 2) = Formulaire.TextBox8.Value ...
Ensuite pour récupérer la dernière ligne, je pense que la récupérer que grace à la colonne 'A' suffira, pas besoin de recalculer pour chaque colonne.

Et pour terminer, si tu arrives à faire coincider l'ordre de tes textbox avec les numéros de colonne on peut même faire une boucle. exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub AffecteUserForm() ' Dim r As Byte, derLig As Long Dim Ctl As Control derLig = Sheets("Feuil1").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row For Each Ctl In Formulaire.Controls 'Boucle sur chaque élément dans le Formulaire If r > 12 Then Exit Sub 'Si plus grand que 12 (nombre de colonne) alors quitte procédure r = r + 1 'Incrémente r pour déterminer la colonne réceptrice Sheets("Feuil1").Cells(derLig, r) = j.Value 'Affecte la valeur de l'élément End If Next j 'Passe à l'élément du Formulaire suivant End Sub
A+

21/10/2009, 14h46
Jay29

Merci beaucoup pour ton aide j'ai réussi à faire ce que je voulais avec mon userform! :ccool:

A+