Prob de Combolist dans USF

Hervé

XLDnaute Barbatruc

• 25 Février 2005

• #2

Bonsoir

en partant du principe que tu as rempli ta combobox à l'aide d'une boucle et d'un additem, comme ceci :

Code:

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
    ComboBox1.AddItem ws.Name
Next ws
End Sub

Il te suffit de tester le nom de la feuille et d'exclure ou pas celle-ci :

Code:

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name  'Feuil2' Then
        ComboBox1.AddItem ws.Name
    End If
Next ws
End Sub

Cette macro n'inclueras pas la feuille 2 dans la combobox.

Voila,

Salut
Hervé

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Février 2005

• #3

re

c'est vrai que le signe différent ne passe pas.

donc dans la 2ème macro entre ws.Name et 'Feuil2', il faut ajouter :

< et >

salut
Hervé

 

Vote positif 0 Vote négatif

A

Akeya06

XLDnaute Occasionnel

• 25 Février 2005

• #4

bonsoir Hervé,

Je n'utilise pas Additem mais voici le code que j'utilise :

Private Sub UserForm_Initialize()

Dim ws As Worksheet

With UserForm1
For Each ws In Worksheets
If ws.Name 'Total' Then
.ComboBox1.AddItem ws.Name
End If
Next
maliste.RowSource = ''

End With
End Sub

En fait ma combo pilote une listbox. Soit indulgent avec moi car je suis novice en VBA et le code vient de ChTi160 que je remercie encore. J'avoue que j'ai eu du mal à comprendre certaines choses et j'ai ENCORE du mal mais on persevère... :unsure:

Donc voilà si tu avais une solution...

D'avance merci...
Akeya06 😉

 

Vote positif 0 Vote négatif

E

Essem

XLDnaute Junior

• 25 Février 2005

• #5

Salut Akeya06 et Hervé ainsi que le forum... :woohoo:

Vous semblez avoir un code similaire, donc vous avez la même pensée;

Voici ton code comme je crois qu'il devrait apparaitre selon ce que je comprends du post d'Hervé que j'approuve: 😉

With UserForm1
For Each ws In Worksheets
If ws.Name {DIFFERENT} 'Total' Then
{PAS DE POINT AVANT}ComboBox1.AddItem ws.Name
End If
Next
maliste.RowSource = ''

End With

et tu devrait avoir dans ta liste toute les feuilles sauf la feuille 'Total'

Donnes des nouvelles s.v.p.! :side:

Salutations!

Essem

 

Vote positif 0 Vote négatif

A

Akeya06

XLDnaute Occasionnel

• 25 Février 2005

• #6

Bonjour Essem, Hervé et le Forum,

Effectivement, j'ai enlever le point et pof, plus 'total' dans la combo.
Si je veux maintenant que plusieurs feuilles n'apparaissent pas dans la combo, comment faut-il faire car j'ai essayer en répétant le code, mais là, dans la combo, les feuilles devant apparaitre y sont en double.

Un grand merci à vous de nous faire évoluer à pas de géant...
Akeya06 😉

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 25 Février 2005

• #7

bonjour

Dans cette ligne

If ws.Name {DIFFERENT} 'Total' Then

tu ajoutes les feuilles que tu ne veux pas

If ws.Name {DIFFERENT} 'Total' Or ws.Name {DIFFERENT} 'Nom1' Or ws.Name {DIFFERENT} 'Nom2' Then

Bon courage

 

Vote positif 0 Vote négatif

A

Akeya06

XLDnaute Occasionnel

• 25 Février 2005

• #8

Bonjour Pascal76

Merci pour ta réponse aussi rapide et je m'en vais de ce pas appliquer tout ca.

Merci beaucoup...
Akeya06 😉

 

Vote positif 0 Vote négatif

A

Akeya06

XLDnaute Occasionnel

• 25 Février 2005

• #9

Oups

En suivant tes conseils, voici donc le code. Et là, je ne comprends pas car dans la combo, la feuille 'infos' y est ainsi que'Réservation'.

Private Sub UserForm_Initialize()

Dim ws As Worksheet

With UserForm1
For Each ws In Worksheets
If ws.Name 'Infos' Or ws.Name 'Réservation' Then
ComboBox1.AddItem ws.Name
End If
Next
maliste.RowSource = ''

End With

End Sub

Si vous pouviez m'éclairer...
Akeya06 😉

 

Vote positif 0 Vote négatif

A

Akeya06

XLDnaute Occasionnel

• 25 Février 2005

• #10

Bonsoir à tous,

Quelqu'un aurait il une idée du pourquoi du comment ?

Merci à vous....
Akeya06 😉

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Février 2005

• #11

bonsoir

dans la macro de l'excellent pascal, remplace or par and.

Salut
Hervé

 

Vote positif 0 Vote négatif

A

Akeya06

XLDnaute Occasionnel

• 25 Février 2005

• #12

Salut Hervé et le forum,

Merci pour la réponse, je vais vite continuer mon petit projet.
Tiens, peut être pourrais tu me dire si lorsque celui sera fini, il serait possible de le diffuser sur le forum...

Il sagit d'un petit programme de facturation et de gestion pour le resto de mon beauf. Peut être qu'il pourrait intéresser...

A +
Akeya06 😉

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 25 Février 2005

• #13

Salut'Akeya06'
bonsoir le 'Forum'
Akeya06 je ne comprends pas pourquoi le fichier que je t'ai fourni ne fonctionnait pas
dans ce fichier la feuille Total n'apparaissait pas ??????
de plus le point qui est présent devant Combobox1
est du au fait que j'ai utilisé un With Userform1
le point permet de ne pas répéter ce morceau de code
et end with termine cette procèdure
With UserForm1
For Each ws In Worksheets
If ws.Name <> 'Total' Then
.ComboBox1.AddItem ws.Name
End If
Next
maliste.RowSource = ''
et comme le dit Hervé remplace le Or par And
A+++
Jean Marie

 

Vote positif 0 Vote négatif

A

Akeya06

XLDnaute Occasionnel

• 26 Février 2005

• #14

Bonsoir Chti160, le forum

Voici le code tel qu'il est écrit actuellement :

Private Sub UserForm_initialize()

Dim ws As Worksheet

TextBox2.Value = Format(Sheets('infos').Range('F11'), '# ##0.00' & '€')
ListBox1.Visible = False

SpinButton1.Min = 0
SpinButton1.Max = 100
SpinButton1.Value = 0

'permet de masquer la ou les feuilles dans la ComboBox1
With UserForm1
For Each ws In Worksheets
If ws.Name <> 'Infos' And ws.Name <> 'Réservation' Then
ComboBox1.AddItem ws.Name
End If
Next
maliste.RowSource = ''

End With

End Sub

Excusez moi si c'est un peu la pagaille, mais je n'ai pas encore la logique d'un Xlien, vu mon niveau, et ca marche bien. Je viens de vérifier, ca marche aussi avec le point. Ca ne change rien. Voilà, voilà...

En tout cas merci beaucoup pour votre soutien et votre suivi des petis nouveaux comme moi. Encore une chose, sera-t-il possible de mettre mon fichier sur le forum (assez gros), peut etre pourra-t-il servir...

Akeya06 😉

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 26 Février 2005

• #15

bonsoir

Pour proposer un fichier au téléchargement, suit ce lien :

https://www.excel-downloads.com/resources/

Seul david le webmaster autorisera ton fichier à paraitre.

Salut
Hervé

 

Vote positif 0 Vote négatif