Discussion :

[Loupion]

Bonjour,

J ai un petit soucis avec un userform que j ai creer pour alimenter une feuille avec les donnees qui sont selectionnes dans le userform.

Le code que j ai ecris transfere "0" dans chacune des colonnes que j ai defini alors que les combobox de mon userform sont toutes remplies.

Je ne comprend pas ce que j ai mal defini dans le code

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
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
im vcountry As Integer
Dim vcategory As Integer
Dim vscenario As Integer
Dim vsignature As Integer
Dim vproduct As Integer
Dim vcode As Integer
 
Dim vmonth As Integer
Dim vamount As Double
Dim vtype As Integer
Dim LR As Long
Dim WS As Worksheet
 
 
 
 
Option Explicit
Dim TabTemp As Variant
 
Private Sub CommandButton1_Click()
vcountry = ComboBox1
vcategory = ComboBox2
vscenario = ComboBox3
vsignature = ComboBox4
vproduct = ComboBox1
vcode = ComboBox9
 
vmonth = ComboBox6.Value
vamount = TextBox1.Value
vtype = ComboBox5.Value
 
Set WS = ActiveWorkbook.Sheets("COMPASS Extraction")
 
LR = WS.Range("A950000").End(xlUp).Row
 
 
 
WS.Cells(LR + 1, 1) = vcategory                                    'column A'
WS.Cells(LR + 1, 5) = vscenario                                'column E'
WS.Cells(LR + 1, 8) = vsignature
WS.Cells(LR + 1, 10) = vproduct                                 'column J'
WS.Cells(LR + 1, 7) = vcode                                 'column G'
WS.Cells(LR + 1, 2) = vmonth                                    'column B'
WS.Cells(LR + 1, 4) = vcountry                               'column D'
WS.Cells(LR + 1, 11) = vamount                                  'column K'
WS.Cells(LR + 1, 9) = vtype                                     'column I'
 
UserForm1.Hide
 
End Sub

Merci pour votre petit coup de pouce

Loupion

[Thautheme]

Bonjour Loupion, bonjour le forum,

Pourquoi tourtes ces variables ? Je te propose d'utiliser la propriété [Tag] des contrôles qui contiennent des données (textboxes et comboboxes).
Dans VBE (Visual Basic Editor),
• affiche ton UserFomr
• clique sur les contrôles de données
• dans la fenêtre de propriétés, attribue à la propriété [Tag] du contrôle, le numéro de la colonne dans lequel sa donnée doit être renvoyée.
Par rapport à ton code : ComboBox2.Tag = 1,. etc...
Ensuite, tu boucles simplement et sans toutes ces variables :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim LR As Long
Dim WS As Worksheet
Dim CTRL As Control
 
Set WS = ActiveWorkbook.Sheets("COMPASS Extraction")
LR = WS.Range("A950000").End(xlUp).Row + 1
For Each CTRL In Me.Controls
    If CTRL.Tag <> "" Then WS.Cells(LR, CByte(CTRL.Tag)).Value = CTRL.Value
Next CTRL
UserForm1.Hide
End Sub

[Loupion]

Bonjour Tautheme

Je ne connaissais pas cette possibilite.

Je viens de l essayer et elle fonctionne a merveille

Merci beaucoup

Loupion