RowSource / Additem avec zone non fixe

[Guigui]

Hello à tous,

Je souhaiterais alimenté un combobox.
J'ai une zone avec un début mais la fin peut etre ralongé.

je me suis lancé dans un code comme celui ci :

With Sheets('MAJ')
For P = 4 To 20
Cells(P, 0).Activate
OP.Page(0).POSTE.AddItem Cells(P,0).Value
Next P
End With

mais hélas... ca ne marche pas...

Ou alors il y a t il un moyen avec Rowsource du genre :

OP.Page(0).POSTE.RowSource 'MAJ!Range([A4], [A4].End(xlDown))'

Bon biensur ca ne marche pas.. j'arrive pas a écrire les ranges.

Merci d'avance pour votre aide .
A+
Guillaume

 

[jp14]

Bonjour

Voici un exemple
ComboBox1g.RowSource = 'table2!' & range(colonne1a & '2:' & colonne1a & dl1).Address

colonne1a : nom de la colonne alpha
dl1 denière ligne de la colonne.

Bon W.E.

JP

Message édité par: jp14, à: 15/04/2006 17:24

 

[AV]

Ave,

2 soluces (au moins)
Nommer ta plage dynamiquement
Exemple :
Insertion --Nom--Définir-- Nom dans le classeur : 'Liste' -- Fait réf à :
=DECALER(Feuil1!$A$4;;;NBVAL(Feuil1!$A$4:$A$65536))
Ensuite :
Sub zz()
Sheets('Feuil1').ComboBox1.ListFillRange = Liste
End Sub

ou bien :
Sub zz()
With Sheets('Feuil1')
.ComboBox1.Clear
For Each Elt In .Range('A4', .[A65536].End(3))
.ComboBox1.AddItem Elt
Next Elt
End With
End Sub

AV [aaa]

 

[PascalXLD]

Bonjour

Bien moi à la lecture j'ai cru comprendre qu'il parlait d'une Combo sur une UF

With Sheets('MAJ')
For P = 4 To .range('A65536').end(xlup).row
nomdetonuf.nomcombobox.AddItem .range('A' & P)
Next P
End With

Bon WE

Message édité par: Pascal76, à: 15/04/2006 17:36

 

[AV]

Sheets('Feuil1').ComboBox1.ListFillRange = Liste


Mieux vaut la ceinture et les bretelles !

Sheets('Feuil1').ComboBox1.ListFillRange = 'Feuil1' &[Liste].Address

AV [aaa]

 

[Guigui]

re tous le monde,

Oui, effectivement, mon combo est dans un USF...

Merci à tous, c'est parfait
A+
Guillaume

Message édité par: guigui, à: 15/04/2006 18:02

 

[PascalXLD]

Re

tu me rassures Guillaume. Il me semblait bien avoir vu une notion de page.

Comme quoi on peut bien lire les posts même sans être ....

 

[AV]

''...Comme quoi on peut bien lire les posts même sans être ....''
C'est surement la 1° ligne du code (With Sheets('MAJ') )qui a du te mettre sur la voie...

Ah... que ne suis-je modérateur...
;-)

AV [aaa]