Discussion :

[Bubale]

Coucou!
Mon soucis est le suivant!
Lorsque je crée une zone de liste modifiable dans un userform, je voudrais mettre dans RowSource un nombre de cellules variables. En gros, pour l'instant, dans RowSource, j'ai "Options!A4:A50 , mais je voudrais ne pas mettre 50 en fin de sélection mais le numéro de la ligne contenant la derniere information de la colonne! Sachant que si ca peut vous aider, le nombre exact de cellules remplies dans la colonne et stockée dans la cellule B6 de la page options.
Est-ce assez clair?
En bref, je ne voudrais pas mettre options!A4:A50 dans RowSource mais options!A4:A&i avec i connu
Quelqu'un aurait-il une idée?
Merci d'avance!

[ouskel'n'or]

Code :

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

Listbox1.rowsource = "A4:A" & range("A65536").end(xlup).row

Bonne journée

[epsylon_9]

Salut,
Ou bien alors si i est une variable connu

Code :

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

ComboBox1.RowSource = "Feuil1!A1:A" & Cstr(i)

@+
Julien

[Bubale]

Ok merci ca fonctionne!
Mais si maintenant la listbox (qui s'appelle "drop down 192" - je ne sais pas pk!)est dans une feuille de calcul, pourquoi cela ne marche pas ? :

Code :

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

1
2
3
Dim nbrMatiere As Integer
nbrMatiere = Sheets("options").Range("F24").Value - 1
Sheets("AffichA").Shapes("Drop Down 192").RowSource = "Options!G18:G" & CStr(nbrMatiere)

[ouskel'n'or]

Salut,
Ou bien alors si i est une variable connu

Code :

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

ComboBox1.RowSource = "Feuil1!A1:A" & Cstr(i)

@+
Julien

Le cstr(i) est inutile

Code :

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

ComboBox1.RowSource = "Feuil1!A1:A" & i

L'opérateur "&" convertit un nombre en string dans une concaténation.
Juste pour info

[fring]

Bonjour tlm,

Je me permet un petit commentaire. Les contrôles directement insérés sur une feuille n'acceptent pas la propriété RowSource, encore moins si ceux-ci proviennent du menu "Formulaires" qui n'acceptent quasi aucune propriété.

Je te propose ceci, insère une ListBox depuis le menu "Boîte à Outils Contrôles" et le code devrait ressembler à :

Code :

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

Sheets("AffichA").ListBox1.ListFillRange= "Options!G18:G" & nbrMatiere

(b'jour Ousk, merci pour la pub concernant la zone de texte )

[Bubale]

Ok merci Fring, mais avec une boite à outils contrôle, comment fait-on pour récupérer la valeur selectionnée? On ne peut pas utiliser de cellules liées? si?