XL 2019 masquer des feuilles d'un USERFORM ( problème presque résolu )

[pougnarette]

bonjour à tous
vous m'avez déjà aidé et je vous en remercie
j'utilise un USERFORM dans lequel apparaît les feuilles de mon classeur
je voudrai masquer de l'affichage certaines feuille du classeur car toutes ne me servent pas

afin de finaliser , j'ai besoin de mixer 2 codes
regardez la pièce jointe , ce sera plus parlant
en vous remerciant
pougnarette

 

[laurent950]

Bonjour pognarette,
Voici la solution en gras
If Sheets(i).Name <> FFF(0) And Left(Sheets(i).Name, 1) <> "_" Then

 Private Sub UserForm_Initialize()
Dim FFF(), i&  ' & = Long

   ReDim FFF(0 To 0): FFF(0) = ActiveSheet.Name
   For i = 1 To Sheets.Count
      If Sheets(i).Name <> FFF(0) And Left(Sheets(i).Name, 1) <> "_" Then
         ReDim Preserve FFF(0 To UBound(FFF) + 1)
         FFF(UBound(FFF)) = Sheets(i).Name
      End If
   Next i
   ListBox1.List = FFF                       ' Transfert du tableau dans la ListBox1
   ListBox1.Selected(0) = True         ' Sélectionne le premier de la ListBox1
   End Sub

Laurent

 

[pougnarette]

bonsoir laurent
ce que vous venez de faire fonctionne parfaitement
vous être un génie
encore merci et portez vous bien
pougnarette

 

[jmfmarques]

Bonjour Laurent
Crois-tu vraiment que, pour quelques feuiiles, cela vaut la peine de faire les frais :
- d'une boucle for to next
- d'une matrice/tremplin (et de son redim preserve)
- de l'alimentation ensuite par la matrice

alors qu'il suffirait d'abonder à moindre frai directement via une boucle for each next.

 

[Staple1600]

alors qu'il suffirait d'abonder à moindre frai directement via une boucle for each next.

[p.joke]
Pour ce faire, toujours choisir le moindre frais.
C'est sertain!
[/p. joke]
Ok, je sors

 

[jmfmarques]

à moindre frai

probablement une conjugaison du pêcheur et de la saison précoce en cours

 

[laurent950]

Bonjour jmfmarques, le forum.
Je n'ai simplement pas voulu compliquer son code, peut-être que cette personne est habituée à ce code et j'ai donc rajouté le stric nécessaire.
J'ai fait simple selon la demande initial
Ps : Merci pougnarette
Laurent