Rowsource et variable de feuille

Résolu/Fermé
Herve29180 Messages postés 7 Date d'inscription samedi 22 juin 2019 Statut Membre Dernière intervention 28 juin 2019 - 22 juin 2019 à 10:31
Herve29180 Messages postés 7 Date d'inscription samedi 22 juin 2019 Statut Membre Dernière intervention 28 juin 2019 - 22 juin 2019 à 12:27
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
A voir également:

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
Modifié le 22 juin 2019 à 11:52
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 samedi 22 juin 2019 Statut Membre Dernière intervention 28 juin 2019
22 juin 2019 à 11:58
Merci j'essaie cela de suite
0
Herve29180 Messages postés 7 Date d'inscription samedi 22 juin 2019 Statut Membre Dernière intervention 28 juin 2019
22 juin 2019 à 12:04
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 dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
Modifié le 22 juin 2019 à 12:09
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 samedi 22 juin 2019 Statut Membre Dernière intervention 28 juin 2019
22 juin 2019 à 12:20
Super Patrice, cela fonctionne comme je le voulais. Merci et bonne journée
0
Herve29180 Messages postés 7 Date d'inscription samedi 22 juin 2019 Statut Membre Dernière intervention 28 juin 2019
22 juin 2019 à 12:27
Effectivement en mettant .name c'était évidant - Merci encore
0