Discussion :

[modus57]

Bonjour,

ActiveX zone de liste déroulante des objets dans Excel ne fonctionne pas quand la propriété ListFillRange fait référence à une de Plage Nommée (Nom Défini).

Si cette propriété est du type ('Noms banques'!A2:A5) une liste en dur, aucun souci, très gênant si la liste grandie.

ComboBox1.ListFillRange = Range("Noms_banques[Noms banques]") ou =Range("Liste_noms_banque") ne fonctionne pas.

Dans la propriété du ComboBox1.ListFillRange ("Noms_banques[Noms banques]") ou ("Liste_noms_banque") n'est pas accepté .

Ma question est : "Comment puis-je contourner ce problème?".

Existe-il une solution pour faire référence à une plage nommée dynamique.

Merci d'avance pour vos réponses.

[Philippe Tulliez]

Bonjour,
Je ne vois aucun problème de référencer le nom d'une plage nommée avec un nom créé par le gestionnaire de nom
Le nom est-il bien de portée classeur ?

Attention, je viens de voir que vous faites référence à une référence structurée dans la propriété ListFillRange. C'est dans le gestionnaire des nom qu'il faut faire cette référence

Après avoir donné un nom (par exemple lstNom) dans le Gestionnaire des noms, vous faites référence à =t_Personnel[NOM] et ensuite vous faites référence à lstNom dans la propriété ListFillRange. Par VBA Range("Nom")

[EDIT]
Ce que j'ai écrit n'est pas correct, cela ne fonctionne pas.
Cela fait longtemps que je n'ai plus utiliser d'ActiveX sur une feuille. Je vérifie et si personne n'a apporté de réponse, je viendrai avec une solution...ou pas

[EDIT2]
C'était tout à fait normal que cela ne fonctionne pas, la propriété attend comme valeur, une adresse sous forme de chaine de caractères

Code :

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

 ThisWorkbook.Worksheets("Consultation").ComboBox1.ListFillRange = Range("lstName").Address(External:=True)

[Philippe Tulliez]

Bonjour,
Je refais un fil car évidemment du coup on peut référencer directement avec une adresse structurée

Exemple de la référence à la colonne "Nom" du tableau structuré nommé t_Personnel

Code :

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

1
2
3
4
5
Sub t()
 With ThisWorkbook.Worksheets("Consultation").ComboBox1
 .ListFillRange = Range("=t_Personnel[NOM]").Address(External:=True)
 End With
End Sub

[modus57]

Bonsoir M. Philippe Tulliez, le forum,

Le code proposé répond parfaitement à ma demande.

Merci pour votre réponse,

[modus57]

Question qui n'a rien à voir avec cette discussion :

J'ai posté 2 fois la même réponse, est-il possible de supprimer un doublon d'un post ??