Discussion :

[FabaCoeur]

Bonjour,

Dans une feuille de mon classeur Excel j'ai mis une liste déroulante avec la barre d'outils formulaire.
Je lui ai donné un nom, en faisant un clic droit dessus (pour avoir le focus, un espèce de mode "edition") et en entrant le nom "RemoveList" dans le champs à gauche de la barre de formule.

Je voudrais modifier dynamiquement, via une macro VB, la plage d'entrée de ma liste.
J'ai fait le code 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
Public Sub UpdateRemoveList()
 
    Dim i As Integer
    Dim value As Variant
    Dim listRange As range
 
    'We find the end of the list in i
    i = 10
    Do
        i = i + 1
        value = Sheets(2).range("C" & i).value
    Loop While Not IsEmpty(value)
 
    'We define the range
    Set listRange = Sheets(2).range("E10:E" & i)
 
    'We update the list
    ActiveSheet.Shapes("RemoveList").Select
    With Selection
         .ListFillRange = listRange
         .DropDownLines = 8
         .Display3DShading = False
    End With
 
End Sub

Cependant à l'éxécution j'otbiens le message d'erreur suivant :
unable to set the ListFillRange property of the Drop Drown class

Merci pour le coup de main.

[FabaCoeur]

J'ai trouvé, en fait la propriété range prends un string et non pas un range :

Code :

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

1
2
3
4
5
6
    'We update the list range
    Sheets(1).Shapes("RemoveList").Select
    With Selection
        .ListFillRange = "'Core Sheet'!E10:E" & i
        .DropDownLines = 10
    End With