Remplissage tableau structuré VBA via un Userform
Bonsoir à tous,
Je reviens vers vous car j'ai un problème avec un tableau structuré. Je souhaite le afire remplir a partir d'un Userform cependant les valeurs se placent sur les lignes en dessous du tableau.
Auriez vous une idée du problème :
ci joint le code utilisé:
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
| Dim O As Worksheet 'd?clare la variable O (Onglet)
Dim TVA As Variant 'd?clare la variable TV (Tableau des Valeurs)
no_ligne = Worksheets("BDD").Range("A65536").End(xlUp).Row + 1 'no_ligne = N? de ligne de la derni?re cellule non vide de la colonne +1
Set O = Worksheets("BDD") 'd?finit l'onglet O
TVA = O.Range("A1").CurrentRegion 'd?finit le tableau des valeurs TV
If CheckBoxInterne.Value = True Then
Worksheets("BDD").Cells(no_ligne, 11) = 1
End If
If CheckBoxReclamation.Value = True Then
Worksheets("BDD").Cells(no_ligne, 12) = 1
End If
If CheckBoxRetourClient.Value = True Then
Worksheets("BDD").Cells(no_ligne, 13) = 1
End If
LI = Responsable_1.ListBox1
With Sheets("DATA")
Set Plage = .Range("G2:G" & [G65536].End(xlUp).Row)
For Each Cel In Plage
If Cel.Value = LI Then L = Cel.Row
Next Cel
Worksheets("BDD").Cells(no_ligne, 1) = .Cells(L, "A").Value
Worksheets("BDD").Cells(no_ligne, 3) = .Cells(L, "C").Value
Worksheets("BDD").Cells(no_ligne, 5) = .Cells(L, "E").Value
Unload Me
Unload Responsable_1
Responsable_1.Show
End With
End Sub |
Merci d'avance ,
n'hésitez pas a me demander le fichier si nécessaire
Bonne soirée et bonne année!!
