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 recuper des nom de feuilles sur un combobox

recuper des nom de feuilles sur un combobox

9 réponses
Avatar
testou
bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci
Signaler un problème avec ce contenu

9 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
michdenis
Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci
Avatar
testou
j'ai le message d 'erreur : utilisation incorrecte du mot clef Me
c'es du a quoi.

merci


Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci





Avatar
testou
j'ai mit ce code dans private sub et ca passe mieux

Private Sub Combo2_Change()
Me.Combo2.Clear
For Each S In Worksheets
With Me.Combo2
.AddItem S.Name
End With
Next

mais ma combobox est vide et je voudrai avoir le nom de mes feuilles

merci

End Sub



Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci





Avatar
michdenis
Bonjour Testou,

la procédure que je t'ai donné doit être mise dans le formulaire. Si tu l'utilise ailleurs, tu dois utiliser le nom du
formulaire à la place du mot Me.

Le mot "Me" représente le module de classe dans lequel le code est écrit. En VBA, tous les modules en vba sont des
modules de classes (module code d'une feuille, module code du formulaire ...) sauf les modules standard ...les modules
où tu écris habituellement les macros. Quand tu places le mot Me devant un objet dans un module de classe, cela signifie
que cet objet appartient au module. Dans la très grande majorité des cas, tu n'es pas obligé de l'écrire ... mais si tu
l'utilise, cela te permet d'avoir accès à la liste déroulante qui est très utile lors de la saise du code. (si tu ne
comprends pas tout, dis toi que beaucoup de monde ne comprenne pas très bien tout le truc du mot Me et module de
classe...en autant que tu sais l'utiliser.)

Si ton code est écrit dans un formulaire :

Me.Combobox1 ou Juste combobox1 Ou userform1.Combobox c'est exactement la même chose


Si ton code est écrit dans un module Standard, il te faut obligatoirement faire précéder le nom du userform devant le
nom de l'objet qui est dans le formulaire.

Userform1.Combobox Les 2 autres façons ne s'appliquent pas .


Salutations!



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

j'ai le message d 'erreur : utilisation incorrecte du mot clef Me
c'es du a quoi.

merci


Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci





Avatar
michdenis
Bonjour Testou,

Utilise seulement l'un des événements suivants :

'---------------------------
Private Sub UserForm_Activate()
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
End Sub
'---------------------------


'OU


'---------------------------
Private Sub UserForm_Initialize()

Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
'.AddItem S.Name
End With
Next

End Sub
'---------------------------


Salutations!


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

j'ai mit ce code dans private sub et ca passe mieux

Private Sub Combo2_Change()
Me.Combo2.Clear
For Each S In Worksheets
With Me.Combo2
.AddItem S.Name
End With
Next

mais ma combobox est vide et je voudrai avoir le nom de mes feuilles

merci

End Sub



Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci





Avatar
testou
je suis obligé de rentré une lettre ou un chiffre pour avoir ma liste de
feuillet dans mon combobox.
je peux pas avoir directement ma liste sans appuyer sur une touche ou
rentrer un caractère

et comment masquer des feuilles dans le combobox directement.

merci


Bonjour Testou,

Utilise seulement l'un des événements suivants :

'---------------------------
Private Sub UserForm_Activate()
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
End Sub
'---------------------------


'OU


'---------------------------
Private Sub UserForm_Initialize()

Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
'.AddItem S.Name
End With
Next

End Sub
'---------------------------


Salutations!


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

j'ai mit ce code dans private sub et ca passe mieux

Private Sub Combo2_Change()
Me.Combo2.Clear
For Each S In Worksheets
With Me.Combo2
.AddItem S.Name
End With
Next

mais ma combobox est vide et je voudrai avoir le nom de mes feuilles

merci

End Sub



Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci










Avatar
michdenis
Bonjour Testou,

Cette procédure va afficher seulement les feuilles visibles.

Si tu veux afficher seulement les feuilles cachés, tu remplaces
cette ligne : If S.Visible = True Then

Par :
Méthode 1
If S.Visible = False Then

Ou
Méthode 2
If S.Visible = xlVeryHidden Then

cela dépend de la façon que tu as masqué tes feuilles ... expliquées sur l'autre Fil cet PM. Méthode 1 ou Méthode 2

'-----------------------------
Private Sub UserForm_Activate()
Dim S As Worksheet
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
If S.Visible = True Then
.AddItem S.Name
End If
End With
Next
Set S = Nothing
End Sub
'-----------------------------


Salutations!


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

je suis obligé de rentré une lettre ou un chiffre pour avoir ma liste de
feuillet dans mon combobox.
je peux pas avoir directement ma liste sans appuyer sur une touche ou
rentrer un caractère

et comment masquer des feuilles dans le combobox directement.

merci


Bonjour Testou,

Utilise seulement l'un des événements suivants :

'---------------------------
Private Sub UserForm_Activate()
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
End Sub
'---------------------------


'OU


'---------------------------
Private Sub UserForm_Initialize()

Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
'.AddItem S.Name
End With
Next

End Sub
'---------------------------


Salutations!


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

j'ai mit ce code dans private sub et ca passe mieux

Private Sub Combo2_Change()
Me.Combo2.Clear
For Each S In Worksheets
With Me.Combo2
.AddItem S.Name
End With
Next

mais ma combobox est vide et je voudrai avoir le nom de mes feuilles

merci

End Sub



Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci










Avatar
testou
oui j'ai tout mes feuillets qui s'affcihe sur ma combo box

mais je veux cacher certains feuillet comment faire et pas tous juste certain.

et pourquoi je suis obligé de mettre une valeur dans le cadre du combobox
pour avoir la liste
car si je met rien elle est vide

merci



Bonjour Testou,

Cette procédure va afficher seulement les feuilles visibles.

Si tu veux afficher seulement les feuilles cachés, tu remplaces
cette ligne : If S.Visible = True Then

Par :
Méthode 1
If S.Visible = False Then

Ou
Méthode 2
If S.Visible = xlVeryHidden Then

cela dépend de la façon que tu as masqué tes feuilles ... expliquées sur l'autre Fil cet PM. Méthode 1 ou Méthode 2

'-----------------------------
Private Sub UserForm_Activate()
Dim S As Worksheet
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
If S.Visible = True Then
.AddItem S.Name
End If
End With
Next
Set S = Nothing
End Sub
'-----------------------------


Salutations!


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

je suis obligé de rentré une lettre ou un chiffre pour avoir ma liste de
feuillet dans mon combobox.
je peux pas avoir directement ma liste sans appuyer sur une touche ou
rentrer un caractère

et comment masquer des feuilles dans le combobox directement.

merci


Bonjour Testou,

Utilise seulement l'un des événements suivants :

'---------------------------
Private Sub UserForm_Activate()
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
End Sub
'---------------------------


'OU


'---------------------------
Private Sub UserForm_Initialize()

Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
'.AddItem S.Name
End With
Next

End Sub
'---------------------------


Salutations!


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

j'ai mit ce code dans private sub et ca passe mieux

Private Sub Combo2_Change()
Me.Combo2.Clear
For Each S In Worksheets
With Me.Combo2
.AddItem S.Name
End With
Next

mais ma combobox est vide et je voudrai avoir le nom de mes feuilles

merci

End Sub



Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci















Avatar
testou
moi au fait je veux masquer seulement certains feuillet.

et en plus pourquoi je n'ai pas directement dans mon combobox la liste , je
suis obligé de mettre un caractère.

merci.

"michdenis" wrote:

Bonjour Testou,

Cette procédure va afficher seulement les feuilles visibles.

Si tu veux afficher seulement les feuilles cachés, tu remplaces
cette ligne : If S.Visible = True Then

Par :
Méthode 1
If S.Visible = False Then

Ou
Méthode 2
If S.Visible = xlVeryHidden Then

cela dépend de la façon que tu as masqué tes feuilles ... expliquées sur l'autre Fil cet PM. Méthode 1 ou Méthode 2

'-----------------------------
Private Sub UserForm_Activate()
Dim S As Worksheet
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
If S.Visible = True Then
.AddItem S.Name
End If
End With
Next
Set S = Nothing
End Sub
'-----------------------------


Salutations!


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

je suis obligé de rentré une lettre ou un chiffre pour avoir ma liste de
feuillet dans mon combobox.
je peux pas avoir directement ma liste sans appuyer sur une touche ou
rentrer un caractère

et comment masquer des feuilles dans le combobox directement.

merci


Bonjour Testou,

Utilise seulement l'un des événements suivants :

'---------------------------
Private Sub UserForm_Activate()
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
End Sub
'---------------------------


'OU


'---------------------------
Private Sub UserForm_Initialize()

Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
'.AddItem S.Name
End With
Next

End Sub
'---------------------------


Salutations!


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

j'ai mit ce code dans private sub et ca passe mieux

Private Sub Combo2_Change()
Me.Combo2.Clear
For Each S In Worksheets
With Me.Combo2
.AddItem S.Name
End With
Next

mais ma combobox est vide et je voudrai avoir le nom de mes feuilles

merci

End Sub



Bonjour Testou,

Si ton combobox est dans un userform, tu pourrais utiliser ceci :

Tu insères ce code dans la procédure de ton choix.
Attention au nom du combobox !

'----------------------------
Me.ComboBox1.Clear
For Each S In Worksheets
With Me.ComboBox1
.AddItem S.Name
End With
Next
'----------------------------


Salutations!



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

bsr
quelqu'un sait comment récuperer tout mes nom de feuilles sur un combobox
dans un userform.
a savoir que je voudrai cacher certaines feuilles dans ce combobox

merci