Rowsource et variable de feuille [Résolu/Fermé]

Signaler
Messages postés
7
Date d'inscription
samedi 22 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019
-
Messages postés
7
Date d'inscription
samedi 22 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019
-
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

Messages postés
8217
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 octobre 2020
1 500
Bonjour,

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

Cordialement
Patrice
Messages postés
7
Date d'inscription
samedi 22 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019

Merci j'essaie cela de suite
Messages postés
7
Date d'inscription
samedi 22 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019

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
Messages postés
8217
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
30 octobre 2020
1 500
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
Messages postés
7
Date d'inscription
samedi 22 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019

Super Patrice, cela fonctionne comme je le voulais. Merci et bonne journée
Messages postés
7
Date d'inscription
samedi 22 juin 2019
Statut
Membre
Dernière intervention
28 juin 2019

Effectivement en mettant .name c'était évidant - Merci encore