Remplissage tableau structuré VBA via un Userform

**Jeremy.fuego** · 03/01/2020, 21h54

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

**Jeremy.fuego** · 03/01/2020, 22h02

Ci-joint vous retrouverez le fichier Excel.
Pour créer des lignes dans la feuille BDD. Utilisez le bouton3 de la feuille DATA => double cliquez sur une ligne de la listbox et appuyer sur "validation BC ".

Merci d'avance.

**Philippe Tulliez** · 03/01/2020, 22h26

Bonjour,
Un tableau structuré en VBA est un objet ListObject donc pourquoi ces lignes ci-dessous

Code :

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

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

Code :

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

1
2
Set O = Worksheets("BDD") 'd?finit l'onglet O
 TVA = O.Range("A1").CurrentRegion 'd?finit le tableau des valeurs TV

Je pense que la lecture de ce tutoriel vous apportera déjà un éclaircissement Excel: Les tables de données en VBA

**Jeremy.fuego** · 03/01/2020, 22h45

Bonsoir,
Merci pour votre réponse réactive. ces codes ont parfaitement fonctionnés pour mes autres programmes. C'est la première fois que j'ai un tel problème.