modifier code ini pour changer nom des feuilles

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
 

eriiic

XLDnaute Barbatruc
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
 

Si...

XLDnaute Barbatruc
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
 

grisan29

XLDnaute Accro
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:

Fo_rum

XLDnaute Accro
Re : modifier code ini pour changer nom des feuilles

Bonjour,

avec des feuilles de même composition, les contrôles pour les corrections éventuelles sont définis une fois pour toutes.
Attention à la casse pour les noms d'onglet (et de façon générale) !
 

Pièces jointes

  • ListVew(UsF).xls
    267.5 KB · Affichages: 61

Statistiques des forums

Discussions
312 673
Messages
2 090 784
Membres
104 664
dernier inscrit
jth