Discussion :

[ouskel'n'or]

Je fais ça (VBA97)

Code :

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

1
2
3
Dim Plage
Plage = "A1:" & Cells(1, Cells(1, 1).End(xlToRight).Column).Address(False, False)
TypeRecherche.RowSource = Plage

La plage est bien désignée : "A1:N1"
Or la combo n'affiche que la cellule A1.
Est-ce que RowSource, comme son nom l'indique, ne va chercher que dans les lignes ?
Existe-t-il une syntaxe que j'aurais oubliée ?

Merci de votre réponse

A+

[Megaxel]

Au risque de passer pour un blaireau (sans vexer les blaireaux qui trainent sur ce site, ouvert à tout type d'animaux, à poils, à écailles et à plumes)... C'est quoi, "TYpeRecherche" ?

[AlainTech]

Juste pour apporter de l'eau au moulin:

Code :

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

TypeRecherche.List = Plage

Ca marche pas???

Je pars me lisser la fourure.

[AlainTech]

Je pense avoir vu où est ton blème.

La combo va afficher "comme" sur la feuille.

Les colonnes en colonnes et les lignes...

Si tu lui dis "une ligne sur 14 colonnes" et qu'il n'y a qu'une colonne dans la combo...

Tu me sens venir?

[ouskel'n'or]

Ok, Alain, j'ai compris. Je vais voir avec trois colonnes et je réponds.

TypeRecherche.List = Plage

n'avait pas "l'air" de fonctionner mais je vais tout de même vérifier... P't'être bien que j'ai mis TypeRecherche.List = Range(Plage)... (Je ne suis pas au boulot, je vérifie dans un moment) mais je doute.

Merci de ta réponse.

A+

PS - Hello Mega, je te trouve bien silencieux, je t'ai froissé ?

[AlainTech]

Juste pour apporter de l'eau au moulin:

Code :

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

TypeRecherche.List = Plage

Ca marche pas???

Je pars me lisser la fourure.

Je viens de tester et je confirme:

Ca marche!

Et hop, je m'ébroue un coup.

[jmfmarques]

Attends !
Moi je n'ai pas de VBA moderne, mais ...
Quid d'une boucle sur tes cellules pour alimenter celles de la combo ? (c'est idiot ?) :

[AlainTech]

Hélas, TypeRecherche.List = Plage ne fonctionne pas (j't'ai dit.. VBA97...)

Mon essai était fait sur Excel 97 aussi!

Sauf que j'ai assigné le range à la liste sans passer par une variable et que je n'ai pas oublié de mentionner la feuille contenant le range.

[AlainTech]

Je me dis donc que pour récupérer un range dans une variable, vu qu'un range est un objet, il faut probalement faire un

Code :

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

Set Plage = TonRange

[ouskel'n'or]

Quid d'une boucle sur tes cellules pour alimenter celles de la combo ? (c'est idiot ?)

C'est ce que j'ai fait mais comme j'ai l'habitude d'utiliser list avec les listbox, je ne vois pas pourquoi je n'ai pas la même chose pour les combos
(NB - J'ai indiqué l'utilisation de AddItem en bas de mon deuxième message )

Alain, tu avais raison, j'ai mes 5 entêtes de colonnes si je fais ça

Code :

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

1
2
3
4
Plage = "A1:" & Cells(1, Cells(1, 1).End(xlToRight).Column).Address(False, False)
Set Combo = GrilleDeSaisie.Controls("DemandeRecherche")
    Combo.ColumnCount = 5
    Combo.RowSource = Plage

J'en suis là et je suis très faché

A+

[Megaxel]

Bon, je n'ai rien à ajouter à votre discussion, mais je voulais juste rassurer Ousk : pas de problème, je ne suis pas vexé...

[AlainTech]

Ben, j'avais qu'une ligne, moi...

Code :

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

  ComboBox1.List = Sheets("Sheet1").Range([A1], [D10])