Discussion :

[modus57]

Bonjour,

J'ai aucun souci avec la propriété ListFillRange ComboBox quand menu_1 fait référence à " ='Listes actions'!$A$2:$A$8" :



Par contre si je créer un tableau nommé Tableau1, petit souci la propriété ListFillRange n'arrive pas à mémoriser :

Code :

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

1
2
3
Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = Tableau1
End Sub

Et si je créer un nom : liste_menu_1 = DECALER('Listes actions'!$A:$A;1;;NBVAL('Listes actions'!$A:$A)-1), même souci la propriété ListFillRange n'arrive pas à mémoriser :

Code :

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

1
2
3
Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = liste_menu_1
End Sub

Avez-vous une explication svp.
Merci d'avance @+

[mfoxy]

Bonsoir,

Essayer de coder comme ceci ;
A remplacer le nom du tableau et colonne par mes vôtres.

Code :

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

1
2
3
 
 
ComboBox1.List = Range("NomTable[Nom Colonne]").Listobject.DataBodyRange.Value

Bav,

[modus57]

Bonsoir mfoxy,
Merci pour votre réponse, je viens de tester ça renvoi :

Erreur d'exécution '1004' :
La méthode 'Range' de l'objet'_Worsheet' a échoué

[mfoxy]

Re,

Assez bizarre, j'ai coupé mon Pc donc je ne saurais pas test mais de mémoire, j'aurais écris l'instruction que je t'ai envoyé
Pourrais-tu déposer ta ligne de code ? Vérifier que pas d'erreur de casse dans nom de table et colonne ?

Bat,

[modus57]

Dans un premier temps j'avais copié le ComboBox dans mon classeur depuis un autre classeur, je viens de l'effacer et à nouveau copié dans mon classeur et lorsque je l'enregistre voici le message qui s'affiche :
Voulez-vous enregistrer 'Nom du classeur actif ……..' avec des références à des documents non enregistrés ?

[Philippe Tulliez]

Bonjour,
La propriété ListFilRange d'un contrôle ActiveX ListBox ou ComboBox attend une adresse(Chaîne de caractères) donc avec pour exemple un ListBox et comme référence un tableau nommé T_Test ListBox1.ListFillRange = Range("T_Test").Address ou si le ListBox n'est pas dans la feuille active ListBox1.ListFillRange = Range("T_Test").Address(External:=True)

[EDIT]
Pour rester complet
Si nous reprenons l'exemple de Michaël que je salue au passage (ici la feuille se nomme TimeSheet et la table T_TimeSheet)

Code :

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

1
2
3
4
5
Sub Test()
 With ThisWorkbook.Worksheets("TimeSheet")
 .ComboBox1.ListFillRange = .ListObjects("T_TimeSheet").DataBodyRange.Address(External:=True)
 End With
End Sub