contenu d'une combobox

[rem$]

bonjour à tous

je cherche un p'tit coup de main pour le contenu de ma combobox...
il faudrait qu'elle contienne le nom de mes feuilles SAUF 2 (sinon ca serait trop simple ...lol) une qui s'appel SAISIE et une autre MODELE

@thierry a fait des demos super avec les combo mais mon DIEU il faut être d'une autre planete pour ré-utliser tous ce travail...

d'avance merci

Rem$

 

[Hervé]

Bonjour


dim ws as object
for each ws in worksheets
if ws.name <> "SAISIE" and ws.name <> "MODELE" then
combobox1.additem ws.name
end if
next ws

Sans avoir testé.

PS : j'ai bien recu ton mail concernant tes histoires de doublons, en ce moment je suis bien débordé, mais je vais essayer de te répondre rapidement.

Salut
Hervé

 

[OnErrorResumeNext]

bonjour rem$

dis-moi si ce code fait l'affaire :

--------------------------------------------------------------------
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "SAISIE" And sh.Name <> "MODELE" Then
ComboBox1.AddItem sh.Name
End If
Next
---------------------------------------------------------------------

amicalement

 

[OnErrorResumeNext]

salut Hervé,

désolé pour le soublon,

amicalement

 

[rem$]

bonjour à tous, hervé, OnErrorResumeNext

merci pour les reponses, je test de suite...

PS: hervé pas de pb pour mes doublons c kan tu as le temps et encore merci

Rem$

 

[rem$]

re

dslé mais le code ne renvoye pas dans le combo le nom des feuilles....

Rem$

 

[OnErrorResumeNext]

rem$,

il faut t'assurer que la macro dans laquelle se trouve le code est bien executée, soit par bouton, initialisation d'un userform, ...

amicalement

 

[rem$]

re

mon userform se lance avec un boutton.....
là je comprend pas tout...
je sais bien que mon niveau est bien bas en macro mais à ce point...lol

je n'arrive pas à donner des valeurs dans combo koi ke je fasse c'est toujours vide..............

Rem$

 

[Hervé]

re rem$

salut onerrorresumenext

rem$, je t'ai fait parvenir ce week end une macro contenant ce code, vérifie dans tes mails.

Salut
Hervé

 

[OnErrorResumeNext]

rem$,

avec ceci, (placé dans le module du userform), ça doit marcher :

---------------------------------------------------------------------------
Private Sub UserForm_Initialize()
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "SAISIE" And sh.Name <> "MODELE" Then
ComboBox1.AddItem sh.Name
End If
Next
End Sub
---------------------------------------------------------------------------

amicalement

 

[rem$]

re

hervé j'ai bien reçu mais malheureusement pas acces ici a mes mails privés
ca filtre dur... en info

sinon je sais pas si ca tien de la 4eme dimension mais j'ai rajouté un boutton dans mon userform et comme ça combo se rempli?????
j'y comprend rien
j'ai mis le code dans un modul ca na rien changé???

je zip et je joins

Rem$

 

[rem$]

re

je peux pas mettre le zip serveur sauvegarde doc reseau en maintenance
puffffffffffff......
mais sinon j'ai bien noté le code et je relancerai si je ne m'en sors vraiment pas car si ca marche avec le boutton en plus ca devrait aller...

merci du coup de pouce...

Bonne journée

Rem$