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
Merci pour votre petit coup de pouce
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
Loupion
Partager