Bjr à tous,
Je vous adresse tous mes voeux pour cette nouvelle année.
Santé prospérité et limonade menthée(pour ceux qui aiment)
Si je puis me permettre ein bedite kestion .
Je voudrais qu's l'initialisation d'un userForm, une listBox me propose une
liste des noms de feuille comprises dans le fichiers afin que je puisse
déterminer la feuille sur laquelle ma procédure doit aller chercher des
informations.
J'espère avoir été suffisamment clair
Merci d'avance
Pastout
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Francois L
Bonjour,
En supposant que la ListBox soit "Listbox1"
Private Sub UserForm_Initialize() Dim nomf As String For Each sh In ActiveWorkbook.Sheets nomf = sh.Name With Me.ListBox1 .AddItem (nomf) End With Next End Sub
Remplacer Sheets par WorkSheets pour ne traiter que les feuilles de calcul.
-- François L
Bjr à tous, Je vous adresse tous mes voeux pour cette nouvelle année. Santé prospérité et limonade menthée(pour ceux qui aiment)
Si je puis me permettre ein bedite kestion . Je voudrais qu's l'initialisation d'un userForm, une listBox me propose une liste des noms de feuille comprises dans le fichiers afin que je puisse déterminer la feuille sur laquelle ma procédure doit aller chercher des informations. J'espère avoir été suffisamment clair Merci d'avance Pastout
Bonjour,
En supposant que la ListBox soit "Listbox1"
Private Sub UserForm_Initialize()
Dim nomf As String
For Each sh In ActiveWorkbook.Sheets
nomf = sh.Name
With Me.ListBox1
.AddItem (nomf)
End With
Next
End Sub
Remplacer Sheets par WorkSheets pour ne traiter que les feuilles de calcul.
--
François L
Bjr à tous,
Je vous adresse tous mes voeux pour cette nouvelle année.
Santé prospérité et limonade menthée(pour ceux qui aiment)
Si je puis me permettre ein bedite kestion .
Je voudrais qu's l'initialisation d'un userForm, une listBox me propose une
liste des noms de feuille comprises dans le fichiers afin que je puisse
déterminer la feuille sur laquelle ma procédure doit aller chercher des
informations.
J'espère avoir été suffisamment clair
Merci d'avance
Pastout
Private Sub UserForm_Initialize() Dim nomf As String For Each sh In ActiveWorkbook.Sheets nomf = sh.Name With Me.ListBox1 .AddItem (nomf) End With Next End Sub
Remplacer Sheets par WorkSheets pour ne traiter que les feuilles de calcul.
-- François L
Bjr à tous, Je vous adresse tous mes voeux pour cette nouvelle année. Santé prospérité et limonade menthée(pour ceux qui aiment)
Si je puis me permettre ein bedite kestion . Je voudrais qu's l'initialisation d'un userForm, une listBox me propose une liste des noms de feuille comprises dans le fichiers afin que je puisse déterminer la feuille sur laquelle ma procédure doit aller chercher des informations. J'espère avoir été suffisamment clair Merci d'avance Pastout
Patou
Le 1/01/08 16:30, dans , « Francois L » a écrit :
Bonjour,
En supposant que la ListBox soit "Listbox1"
Private Sub UserForm_Initialize() Dim nomf As String For Each sh In ActiveWorkbook.Sheets nomf = sh.Name With Me.ListBox1 .AddItem (nomf) End With Next End Sub
Remplacer Sheets par WorkSheets pour ne traiter que les feuilles de calcul.
ça marche, merci infiniment cher François L
Le 1/01/08 16:30, dans uoyGBvITIHA.4740@TK2MSFTNGP02.phx.gbl, « Francois L »
<gardiendephare@etbalises.fr.invalid> a écrit :
Bonjour,
En supposant que la ListBox soit "Listbox1"
Private Sub UserForm_Initialize()
Dim nomf As String
For Each sh In ActiveWorkbook.Sheets
nomf = sh.Name
With Me.ListBox1
.AddItem (nomf)
End With
Next
End Sub
Remplacer Sheets par WorkSheets pour ne traiter que les feuilles de calcul.
Private Sub UserForm_Initialize() Dim nomf As String For Each sh In ActiveWorkbook.Sheets nomf = sh.Name With Me.ListBox1 .AddItem (nomf) End With Next End Sub
Remplacer Sheets par WorkSheets pour ne traiter que les feuilles de calcul.