Pb de Type

[Francis]

Bonjour le forum,

j'ai un petit soucis; je déclare une plage, à priori tout va bien, mais sur la ligne qui suit, je ne sais pas comment définir mon 'objet'.

Plage = Worksheets(ActiveSheet).Range('IA1:IA' & ligne).Address

'Annee.RowSource = 'ma_feuil!' & Plage fonctionne, pas satisfaisant
Annee.RowSource = ActiveSheet! & Plage fonctionne pas

Auriez vous une piste ?
Francis

 

[Bernard_XLD]

Bonjour Francis, le forum

ma foi un

Set Plage = ActiveSheet.Range('IA1:IA' & ligne)
Msgbox Plage.Address

devrait parfaitement convenir.

Cordialement, A+

Ps: pour alimenter Annee.RowSource, pas assez de renseignements.
On ne sait pas quel type de données tu attends, adresse, tableau de valeurs, plage...

Message édité par: yeahou, à: 24/05/2005 07:33

 

[PascalXLD]

Bonjour

essaies ceci

Annee.RowSource = ActiveSheet & '!' & Plage

Bonne journée

 

[_Thierry]

Bonjour Pascal, Yeahou, Francis

Rapide visite sur mon Forum favori pour vous faire un coucou et vous donner signe de vie !

Pour l'ActiveSheet, je ne suis pas si certain que la ligne 'directe' proposée par Pascal, va bien retouner l'ActiveSheet.Name... Mais c'est tout à fait possible, mais c'est au choix, soit je construis maintenant un UserForm pour tester soit je me rase avant de partir au bureau !!! (et en plus meeting today, alors...)

Enfin en syntax décomposée avec variables déclarées, je procèderai ainsi :

Dim Plage As String
Dim Feuille As String


Plage = Worksheets(ActiveSheet).Range('IA1:IA' & ligne).Address
Feuille = ActiveSheet.Name & '!'

TonUserForm.TaListBox.RowSource = Feuille & Plage


Bonne Journée à vous tous et toute
@+Thierry

 

[PascalXLD]

Re

Plaisir de te relire Thierry ça faisait longtemps tu commences à manquer sur le forum

Bien oui maintenant que tu le lis je me suis tellement focalisé sur le ! mis dans la variable que j'ai pas fait attention au .name de la feuille

Bonne journée et bosse bien

 

[Francis]

Bonjour Yeahou, Pascal, Thierry, le forum

Je vous remercie tous pour votre aide, qui m'enleve une épine, de rosier, ça m'apprendra à marcher pieds nu dans le jardin.
bonne journée
Francis