Liste de certaines feuilles dans un combobox

Salut,

Peut-être que ceci pourra te convenir :

Private Sub UserForm_Initialize()
Dim F As Worksheet
Dim n$
For Each F In ActiveWorkbook.Worksheets
n = F.Name
If InStr(1, LCase(n), "facture") <> 0 Then ComboBox1.AddItem n
Next F
End Sub

Serge


<crolegoogle@skynet.be> a écrit dans le message de news: c7605952-38da-4cd3-a898-6f35497dcc58@x41g2000hsb.googlegroups.com...
Bonjour le groupe,

Je cherche le code VBA pour que dans le combobox de mon UserForm il y
ai la liste de mes feuilles qui dans leur nom possède le mot "facture"
Mes feuilles ont plusieur nom différent mais plusieurs ont le nom de
"Facture de TOTO, Facture de TITI, etc..."

Merci de m'éclairer
Cordialement
Crole

Bonjour Serge,
Bonjour le Groupe,

Je te remercie c'est excactement ce que je souhaitais

Sans vouloir Abuser,

Lorsque j'ai choisis dans mon combobox la feuille recherchée,
Pourrais-tu m'indiquer le code pour le Bouton Valider et que celui-ci
me renvoie à la feuille du combo

Merci d'avance
Cordialement
Crole

Essaie cette macro :

Private Sub CommandButton1_Click()
Dim nom$
On Error Resume Next
nom = ComboBox1
Worksheets(nom).Select
End Sub

Serge

<crolegoogle@skynet.be> a écrit dans le message de news: 0c16cca8-f5f2-4de7-b837-9479c8fd4175@a1g2000hsb.googlegroups.com...
Bonjour Serge,
Bonjour le Groupe,

Je te remercie c'est excactement ce que je souhaitais

Sans vouloir Abuser,

Lorsque j'ai choisis dans mon combobox la feuille recherchée,
Pourrais-tu m'indiquer le code pour le Bouton Valider et que celui-ci
me renvoie à la feuille du combo

Merci d'avance
Cordialement
Crole

Re Bonjour Serge
Re le groupe

Merci Serge pour ta réponse
C'est tout simplement génial

Si je met 2 autres UserFormDevis et UserFormHoraires

Puis-je coller copier le même code pour les deux

Merci

Si tu as plusieurs UserForm contenant
un ComboBox nommé ComboBox1 et un
CommandButton nommé CommandButton1,
les deux mêmes macros peuvent être copiées
dans la feuille de code de chaque UserForm.

Serge

<crolegoogle@skynet.be> a écrit dans le message de news: e950b579-775a-4b84-9984-b619d881dd53@l64g2000hse.googlegroups.com...
Re Bonjour Serge
Re le groupe

Merci Serge pour ta réponse
C'est tout simplement génial

Si je met 2 autres UserFormDevis et UserFormHoraires

Puis-je coller copier le même code pour les deux

Merci

Merci Serge j'essaie
A+

Re Bonjour Serge,

Manifestement rien ne se produit.
Je te prie de trouver ci-après le code de mon UserFormDevis

Pour le bouton cmd "Valider"

Private Sub CommandButton1_Click()
UserFormDevis.Hide
Dim nom$
On Error Resume Next
nom = ComboBox1
Worksheets(nom).Select
End Sub

Pour le bouton cmd "Quitter"

Private Sub CommandButton2_Click()
UserFormDevis.Hide
End Sub

Pour le ComboBox "ComboBox1"

Private Sub UserForm_Initialize()

Dim F As Worksheet
Dim n$
For Each F In ActiveWorkbook.Worksheets
n = F.Name
If InStr(1, LCase(n), "Devis") <> 0 Then ComboBox1.AddItem n
Next F
End Sub

J'ai envoié sans dire

!!MERCI POUR TA PATIENCE"

Salutations,

Là je ne suis plus sûr de suivre ;-)
Les macros suivantes supposent que le nom de ton UserForm est Devis
et cherchent la chaîne "devis" dans les noms de feuilles.
Est-ce mieux ainsi ?

Private Sub CommandButton1_Click()
Devis.Hide
Dim nom$
On Error Resume Next
nom = ComboBox1
Worksheets(nom).Select
End Sub

Private Sub CommandButton2_Click()
Devis.Hide
End Sub

Private Sub UserForm_Initialize()
Dim F As Worksheet
Dim n$
For Each F In ActiveWorkbook.Worksheets
n = F.Name
If InStr(1, LCase(n), "devis") <> 0 Then ComboBox1.AddItem n
Next F
End Sub

Serge

<crolegoogle@skynet.be> a écrit dans le message de news: 5945be0a-5fe3-40fc-9d18-089cad26ba19@d1g2000hsg.googlegroups.com...
J'ai envoié sans dire

!!MERCI POUR TA PATIENCE"

Salut Crole,

Voici mon exemple à cette adresse :
http://cjoint.com/?etkzT4VgDG
Important :
Dans l'instruction :
If InStr(1, LCase(n), "devis") <> 0 Then ComboBox1.AddItem n
il faut absolument écrire devis en minuscules car LCase(n) transforme
le nom de la feuille en minuscules. Tu obtiens alors tous les noms de
feuilles contenant le mot Devis ou DEVIS ou dEvis ou ...

Tu pourrais aussi utiliser l'instruction :
If InStr(1, UCase(n), "DEVIS") <> 0 Then ComboBox1.AddItem n

Serge


"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: eWDR7QfoIHA.4492@TK2MSFTNGP02.phx.gbl...

Salutations,

Là je ne suis plus sûr de suivre ;-)
Les macros suivantes supposent que le nom de ton UserForm est Devis
et cherchent la chaîne "devis" dans les noms de feuilles.
Est-ce mieux ainsi ?

Private Sub CommandButton1_Click()
Devis.Hide
Dim nom$
On Error Resume Next
nom = ComboBox1
Worksheets(nom).Select
End Sub

Private Sub CommandButton2_Click()
Devis.Hide
End Sub

Private Sub UserForm_Initialize()
Dim F As Worksheet
Dim n$
For Each F In ActiveWorkbook.Worksheets
n = F.Name
If InStr(1, LCase(n), "devis") <> 0 Then ComboBox1.AddItem n
Next F
End Sub

Serge

<crolegoogle@skynet.be> a écrit dans le message de news: 5945be0a-5fe3-40fc-9d18-089cad26ba19@d1g2000hsg.googlegroups.com...
J'ai envoié sans dire

!!MERCI POUR TA PATIENCE"