Tableau variable

[bernardrustrel]

Bonjour à tous.
Dans le fichier joint je voudrais alimenter la listbox du formulaire par le nom des feuilles ou figure le prénom "pierre".
J'ai bien une idée en mettant le nom des feuilles dans une colonne puis additem sur la listbox.
Mais voilà cette solution ne me semble pas trop élégante. Aussi je préférerais créer un tableau qui serait alimenter après chaque passage sur une différente feuille .
dans ma proposition je n'arrive pas à récupérer tous le éléments qui devraient alimenter le tableau.

Merci à vous de m'apporter votre aide.
Cordialement
Bernard

 

[BOISGONTIER]

Re : Tableau variable

Bonjour,


Les placer dans un dico et alimenter le ListBox avec le dico (Me.ListBox1.List=Dico.Keys)

JB

 

[bernardrustrel]

Re : Tableau variable

Bonjour BoisGonthier
Merci pour cette réponse, je n'avais pas pensé au dictionnaire qui parait parfaitement convenir à mon besoin.
Cependant je ne sais comment utilisé les dictionnaires. Ci joint mon fichier qui me permet de bien trouver les feuilles ou se trouve PIerre mais comment fait on pour extraire ces dernières vers un dictionnaire.
Par avance merci, cordialement
Bernard

 

[BOISGONTIER]

Re : Tableau variable

Bonjour,

Private Sub UserForm_Initialize()
  Nom = "Pierre"
  Set d = CreateObject("scripting.dictionary")
  For i = 1 To Sheets.Count
    Set f = Sheets(i)
    For Each k In f.Range("A2:A" & f.[A65000].End(xlUp).Row)
      If k = Nom Then d(f.Name) = ""
    Next k
  Next i
  Me.ListBox1.List = d.Keys
End Sub

Objet dictionary

JB

 

[bernardrustrel]

Re : Tableau variable

Bonjour,

Private Sub UserForm_Initialize()
  Nom = "Pierre"
  Set d = CreateObject("scripting.dictionary")
  For i = 1 To Sheets.Count
    Set f = Sheets(i)
    For Each k In f.Range("A2:A" & f.[A65000].End(xlUp).Row)
      If k = Nom Then d(f.Name) = ""
    Next k
  Next i
  Me.ListBox1.List = d.Keys
End Sub

Objet dictionary

JB

Merci beaucoup c'est exactement ce que je voulais.
Un très grand merci pour la promptitude.
Cordialement
Bernard