Rowsource et variable de feuille

Résolu
Herve29180 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
Herve29180 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous
Tout nouvellement inscrit, je me permet de vous demander un coup de main. A priori ce ne doit pas être si compliqué, mais je ne trouve pas la solution. Voici le bout de code :

Carb3.ListBox1.Clear
Fin = Feuille.Range("A" & Rows.Count).End(xlUp).Row
Set Feuille = Sheets(Carb3.C31.Value)

Carb3.ListBox1.ColumnHeads = True

' Carb3.ListBox1.RowSource = "2019!A2:E" & Fin
Carb3.ListBox1.RowSource = "Feuille!A2:E" & Fin
Le rowsource avec le nom de la feuille fonctionne très bien, mais par contre je voudrais passer une variable, en l’occurrence, Feuille, qui définit l'année et donc la feuille qui va bien.
Merci à tous pour vos réponses

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Si Feuille est une variable sans espace :
= Feuille & "!A2:E" & Fin
Avec [ou sans] espaces :
= "'" & Feuille & "'!A2:E" & Fin

0
Herve29180 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Merci j'essaie cela de suite
0
Herve29180 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Ni l'une ni l'autre ne fonctionne. Le message : Erreur 438 Propriété ou méthode non géré. Merci tout de même. Si tu as une solution je suis preneur
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
J'ai été un peu vite, Feuille étant une WorkSheet :
Carb3.ListBox1.RowSource = Feuille.Name & "!A2:E" & Fin
ou mieux
Carb3.ListBox1.RowSource = "'" & Feuille.Name & "'!A2:E" & Fin
0
Herve29180 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Super Patrice, cela fonctionne comme je le voulais. Merci et bonne journée
0
Herve29180 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Effectivement en mettant .name c'était évidant - Merci encore
0