Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Exclure un nom d'un listbox

Exclure un nom d'un listbox

8 réponses
Avatar
Didier NOVARIN
Bonsoir,
grâce à Lsteph, j'ai cette procédure qui fonctionne très bien.
Mais je souhaite exclure de cette liste une feuille qui se nomme "Accueil"
Je vous remercie
Didier

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Daniel
Bonsoir.

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
if sh.name<>"Accueil" then
Me.ListBox1.AddItem sh.Name
end if
Next sh
End Sub

Cordialement.
Daniel
"Didier NOVARIN" a écrit dans le message de
news: %
Bonsoir,
grâce à Lsteph, j'ai cette procédure qui fonctionne très bien.
Mais je souhaite exclure de cette liste une feuille qui se nomme "Accueil"
Je vous remercie
Didier

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub




Avatar
Didier NOVARIN
Bonsoir Daniel
merci beaucoup, c'est parfait
Bonne soirée
Didier

"Daniel" a écrit dans le message de news:
%
Bonsoir.

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
if sh.name<>"Accueil" then
Me.ListBox1.AddItem sh.Name
end if
Next sh
End Sub

Cordialement.
Daniel
"Didier NOVARIN" a écrit dans le message de
news: %
Bonsoir,
grâce à Lsteph, j'ai cette procédure qui fonctionne très bien.
Mais je souhaite exclure de cette liste une feuille qui se nomme
"Accueil"
Je vous remercie
Didier

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub








Avatar
garnote
Bonsoir Daniel,

Au lieu d'écrire :
For Each sh In ActiveWorkbook.Sheets
peut-on se contenter d'écrire :
For Each sh In Sheets ?

Serge


Bonsoir.

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
if sh.name<>"Accueil" then
Me.ListBox1.AddItem sh.Name
end if
Next sh
End Sub

Cordialement.
Daniel
"Didier NOVARIN" a écrit dans le message de news: %
Bonsoir,
grâce à Lsteph, j'ai cette procédure qui fonctionne très bien.
Mais je souhaite exclure de cette liste une feuille qui se nomme "Accueil"
Je vous remercie
Didier

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub








Avatar
Daniel
Bonsoir.
Oui, puisque par défaut, c'est la classeur actif qui est pris en
considération.
Cordialement.
Daniel
"garnote" a écrit dans le message de news:
%
Bonsoir Daniel,

Au lieu d'écrire :
For Each sh In ActiveWorkbook.Sheets
peut-on se contenter d'écrire :
For Each sh In Sheets ?

Serge


Bonsoir.

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
if sh.name<>"Accueil" then
Me.ListBox1.AddItem sh.Name
end if
Next sh
End Sub

Cordialement.
Daniel
"Didier NOVARIN" a écrit dans le message de
news: %
Bonsoir,
grâce à Lsteph, j'ai cette procédure qui fonctionne très bien.
Mais je souhaite exclure de cette liste une feuille qui se nomme
"Accueil"
Je vous remercie
Didier

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub












Avatar
isabelle
mais si il y a des feuilles autre que calcul (par exemple: graphique, macro4) il vaut mieux écrire :

For Each sh In Worksheets

isabelle

Bonsoir.
Oui, puisque par défaut, c'est la classeur actif qui est pris en
considération.
Cordialement.
Daniel
"garnote" a écrit dans le message de news:
%

Bonsoir Daniel,

Au lieu d'écrire :
For Each sh In ActiveWorkbook.Sheets
peut-on se contenter d'écrire :
For Each sh In Sheets ?

Serge



Bonsoir.

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
if sh.name<>"Accueil" then
Me.ListBox1.AddItem sh.Name
end if
Next sh
End Sub

Cordialement.
Daniel
"Didier NOVARIN" a écrit dans le message de
news: %

Bonsoir,
grâce à Lsteph, j'ai cette procédure qui fonctionne très bien.
Mais je souhaite exclure de cette liste une feuille qui se nomme
"Accueil"
Je vous remercie
Didier

Private Sub userform_initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub















Avatar
Daniel
"isabelle" a écrit dans le message de news:

mais si il y a des feuilles autre que calcul (par exemple: graphique,
macro4) il vaut mieux écrire :

For Each sh In Worksheets

isabelle


Bonjour.
Je viens de faire un test avec graphique, macro XL4, feuille de dialogue, je
n'ai pas vu de problème avec Sheets ?
Daniel

Avatar
isabelle
bonjour Daniel,

celle ci ne passe pas lorsqu'il y a une feuille graphique, puisque la feuille graphique ne possede pas d'objet range,

Sub Macro1()
For Each sh In Sheets 'Worksheets
Sheets(sh.Name).Select
Range("A1").Select
Next
End Sub

isabelle

"isabelle" a écrit dans le message de news:


mais si il y a des feuilles autre que calcul (par exemple: graphique,
macro4) il vaut mieux écrire :

For Each sh In Worksheets

isabelle



Bonjour.
Je viens de faire un test avec graphique, macro XL4, feuille de dialogue, je
n'ai pas vu de problème avec Sheets ?
Daniel





Avatar
Daniel
OK. J'ai appris quelque chose aujourd'hui.
Daniel
"isabelle" a écrit dans le message de news:

bonjour Daniel,

celle ci ne passe pas lorsqu'il y a une feuille graphique, puisque la
feuille graphique ne possede pas d'objet range,

Sub Macro1()
For Each sh In Sheets 'Worksheets
Sheets(sh.Name).Select
Range("A1").Select
Next
End Sub

isabelle

"isabelle" a écrit dans le message de news:


mais si il y a des feuilles autre que calcul (par exemple: graphique,
macro4) il vaut mieux écrire :

For Each sh In Worksheets

isabelle



Bonjour.
Je viens de faire un test avec graphique, macro XL4, feuille de dialogue,
je n'ai pas vu de problème avec Sheets ?
Daniel