Discussion :

[Patoche90]

Bonjour,

J'ai un petit souci en utilisant les tableaux structurés. Lorsque je vide le tableau, il me reste toujours une ligne vide.... (j'utilise :

Code :

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

if not Table.databodyrange is nothing then table.databodyrange.delete

Or cela est génant car je me sers de ces tableaux pour faire des chargement/ sauvegarde de ListBox ou comboBox....

Existe-t-il une autre solution pour vider mon tableau ? ou dois-je trouver un autre artifice ?

Merci.

[Pierre Fauconnier]

En fait, le tableau structuré est bien vidé par la commande que tu utilises. Mais côté Excel, tu auras toujours une ligne présente dans la référence structurée, et donc toujours une ligne dans la liste déroulante associée à une colonne de ton tableau.

Dans les faits, ce ne devrait pas être trop gênant car je suppose que le tableau sera rapidement alimenté.



Si tu veux vraiment éviter la liste déroulante avec une ligne vide, tu peux nommer une formule qui teste que ton tableau est vide et appuyer ta liste de validation sur cette formule nommée.

[Patoche90]

Bonjour,

En fait, une liste vide = "*" (soit un joker) c'est à dire je prends toutes les valeurs et plutôt que de faire une requête avec toutes les valeurs, ma requête ne porte pas sur ce champ...

Je vais trouver une solution avec cette contrainte.

Merci.

[Pierre Fauconnier]

Désolé, j'avais lu trop vite et compris "liste de validation" et pas "listbox". Tes listbox sont dans des userform ou sur ta feuille?

Si c'est dans une userform, tu peux facilement choisir, au chargement de la liste, comment la remplir en fonction du fait que ton tableau est vide ou pas. Si tu dois ajouter un astérisque pour dire "je prends tout", soit tu mets l'astérisque dans ton tableau en première position, soit tu recrées un array en vba avec d'abord l'astérisque puis le contenu du tableau.

Que veux-tu faire exactement? quel code utilises-tu pour charger ta listbox?


PS: J'ai scindé la présente discussion de celle sur l'emplacement des tableaux structurés pour plus de clarté

[Patoche90]

Bonjour,

C'est dans la feuille
Mon code est le suivant :

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
Sub Affectation_Liste(Table As ListObject, Sens As String, ByVal Liste As msforms.ListBox)
 
Dim EOF As Long
Dim Zone As Range
 
' ******************************
' ** Sens = "To" / "From"
' **  copie Table to Listbox
' **  copie Table From Listbox
' ******************************
 
Select Case Sens
    Case "To"
        With Table
            EOF_L = .ListRows.Count
            If EOF_L = 0 Then
                Liste.Clear
            Else
                If EOF_L = 1 Then
                    Liste.Clear
                    Liste.AddItem .ListColumns(1).DataBodyRange.Value
                Else
                    Liste.List() = .ListColumns(1).DataBodyRange.Value
                End If
            End If
        End With
    Case "From"
        Call Vide_Table(Table)
        Nb_Element = Liste.ListCount
        If Nb_Element > 0 Then
            Set Zone = Worksheets(Table.Parent.Name).Range(Table.HeaderRowRange.Address).Resize(Nb_Element + 1, 1)
            Table.Resize Zone
            Table.DataBodyRange = Liste.List
        End If
    End Select
 
End Sub

Je vais juste rajouter une condition, pour savoir si liste a un élement vide.

cordialement.