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 : 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
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!!