Discussion :

[ESVBA]

Bonjour,

tout est dans la question.

L'utilisation de

Code :

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

1
2
3
4
 
Private Sub ComboBox1_Change()
    Sheets("Feuil1").ComboBox1.ListFillRange = Sheets("Feuil2").Range("A:A").SpecialCells(xlCellTypeVisible).Address
End Sub

ne fonctionne pas !

[ucfoutu]

Bonjour,

Je vais essayer de te répondre de mémoire (pas Excel sous la main présentement)

ListFillRange est (on voudra bien m'excuser si je me trompe) une propriété et non un objet de type plage (Range)
Ton expression devrait donc (sauf erreur) être du type :

Code :

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

Sheets("Feuil1").ComboBox1.ListFillRange = Selection.Address(External: = True)

(après une sélection)
ou encore :

Code :

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

Sheets("Feuil1").ComboBox1.ListFillRange = Range([XY],[XY].End(xlDown)).Address(External:=True)

ou X et Y représentent ta cellule

Mais je peux me tromper (pas Excel sous la main). Teste donc.
Et encore une fois mille excuses si ma mémoire "est à côté de la plaque" (toujours possible).

[ESVBA]

merci de ton aide.

Hélas, cela ne change rien.

Je fais actuellement des essais sur une unique feuille.

Mes suppositions sont les suivantes :
- ListFillRange n'accepte que des champs continus. c'est indiqué nul part
- je ne sais pas me servir de la ComboBox !

Voici mon fichier d'essais:


Rien ne se met dans la combobox !

[ucfoutu]

Re...
As-tu bien compris ce que j'essayais de t'exposer (si ma mémoire est bonne).
La propriété (et non objet) en cause est censée contenir une chaîne de caractères. exemple :

Code :

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

1
2
 
...... .ListFillRange = "Sheet1!A2:A8"

- je vois dès lors mal (personnellement) comment une telle chaîne pourrait définir des cellules non contigues.
- ce que j'essayais de te dire dans mon premier message se résumait à ceci : il te faut générer la chaîne de caractères de la forme attendue et non te référer à un Range directement.

EDIT :
un truc tout bête pour vérifier ce qu'elle contient, cette propriété, après ton code :

Code :

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

Msgbox ComboBox1.ListFillRange

te permettra de le savoir.

[ESVBA]

encore merci.

j'ai essayé comme pour une sélection multiple de plages :

Code :

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

Sheets("Feuil2").ComboBox1.ListFillRange = "A1:A4,A6:A1

Et la chaine après cette affectation est VIDE !

Conclusion : "ListFillRange" n'accepte pas de plage non continue !

Merci à toi.

ESVBA