modifier code ini pour changer nom des feuilles

  • Initiateur de la discussion Initiateur de la discussion grisan29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

grisan29

XLDnaute Accro
bonjour a vous tous

j'ai récupéré un fichier sur le net qui m'interresse mais c'est un fichier pour le sport et le nom des feuilles ne correspond pas a la destination finale. Chaque feuille se nomme 'EQUIPE_1" "EQUIPE_2" etc...le probleme n'est pas la, mais dans l'initialisation de l'usf par cet partie de code
Code:
With UserForm1

Dim FEUILLE As Worksheet
    For Each FEUILLE In ThisWorkbook.Worksheets '=============================POUR NE CHARGER QUE LES EQUIPES
    If IsNumeric(Right(FEUILLE.Name, 1)) Then .ComboBox1.AddItem FEUILLE.Name
    Next
.ComboBox1.Value = .ComboBox1.List(0)
Worksheets("EQUIPE_1").Activate ' JUSTE POUR S'EN SERVIR DE BASE POUR LA CREATION DES COLONNES DE LA LISTVIEW

si vous une idée merci par avance

Pascal
 
Re : modifier code ini pour changer nom des feuilles

Bonsoir,

ton fichier plante chez moi, on ne peut même pas visualiser le code.
Part de celui que je t'ai fourni.
Il suffit de noter les noms des feuilles que tu veux voir apparaitre dans ta liste sur la plage Datas!A1:A3 (si tu as 3 feuilles).
C'est pourtant simple et je ne vois pas comment l'expliquer autrement...

eric
 
Re : modifier code ini pour changer nom des feuilles

salut

à essayer
Code:
Dim S As Worksheet
Private Sub UserForm_Initialize()
  For Each S In Sheets
    if S.Name <> "... " and S.name <> "..." then  <---s'il y a des noms à éviter, sans oublier le End If plus loin
    ComboBox1.AddItem S.Name
  Next
 
Re : modifier code ini pour changer nom des feuilles

bonjour Si...
merci de ta réponse mais les points entre crochet sont ils a remplacer par le non de la feuille qui ne doit pas apparaitre dans la combobox
eriiic si le dernier fichier plante chez toi je te rassure chez moi aussi

Pascal

finalement il y a une amalioration notable dans le fichier ,maintenant l'usf s'ouvre bienavec la 1 ere feuille d'affichée dans la listview
mais le choix d'une autre feuille dans la combobox bug
ci joint l'amélioration

Pascal
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour