Discussion :

[santacrus]

Bonjour à tous,

Je me résoud a demander votre aide puisque je patoge...

J'ai un tableau de données appelé Tableau1.
Une des colonne de ce tableau (sous-catégorie) est une liste déroulande créee par validation de données.
J'essaie en vain de changer la source de cette liste déroulante en fonction de la valeur d'une autre cellule, mais je n'arrive pas à faire référence à cette liste en vba.
Je n'arrive pas à selectionner autre chose que la colonne elle-même:

Range("Tableau1[[Sous catégorie]]")

Quelqu'un aurait-il une idée?

Merci d'avance

[issoram]

Bonjour,

As tu essayé d'utiliser des plages nommées pour tes listes déroulantes?

[Daniel.C]

Bonjour,

Est-ce que tu pourrais détailler, s'il te plait. Donne un exemple.

[santacrus]

Bonjour et merci de votre aide

Pour faire simple:
j'ai un tableau de données : tableau1
Une première colonne nommée catégorie
une deuxième colonne nommée sous-catégorie comportant une liste déroulante
Lors d'un clic dans une cellule de cette 2ème colonne, je récupère les données de la colonne 1, même ligne(strCat), et aimerais, en fonction de ca, alimenter les données de la liste déroulante.
Et c'est là que je bloque.
Je n'arrive pas a faire réference à la liste déroulante de la colonne sous catégorie.

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim Plage As Range
    Dim ListObj As ListObject
    Dim strCat As String
 
    Set Plage = Range("Tableau1[[#All],[Sous catégorie]]")
 
    If Application.Intersect(Target, Plage) Is Nothing Then
        MsgBox "Veuillez selectionner une catégorie"
    Else
        colonne = Target.Column
        ligne = Target.Row
        MsgBox Cells(ligne, colonne - 1).Value
        strCat = Cells(ligne, colonne - 1).Value
 
        Select Case strCat
            Case Is = "x"
                '.............................
            Case Is = "y"
                '................................
            Case Is = "z"
                '.............................
        End Select
    End If
End Sub

Merci encore

[Daniel.C]

Bonjour,

Pour faire référence à la seconde colonne :

Code :

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

ActiveSheet.ListObjects("Tableau1").ListColumns(2)

ou

Code :

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

ActiveSheet.ListObjects("Tableau1").ListColumns("Sous catégorie")

La plage de données correspondante sera :

Code :

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

ActiveSheet.ListObjects("Tableau1").ListColumns(2).DataBodyRange