VBA Excel Pb affichage ComboBox If
Résolu/Fermé
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
-
3 sept. 2010 à 11:23
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 3 sept. 2010 à 14:20
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 3 sept. 2010 à 14:20
A voir également:
- VBA Excel Pb affichage ComboBox If
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
3 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
Modifié par Mike-31 le 3/09/2010 à 11:43
Modifié par Mike-31 le 3/09/2010 à 11:43
Salut,
Dans ton deuxième code tu écris si le nom de la feuille est égale à = "Feuil1" ne pas afficher
alors que dans le premier code s'il est différent <> "Feuil1" ne pas afficher donc Feuil1 s'affiche ainsi que "Facture" "Devis" sauf les autres feuilles, ce qui n'est pas normal c'est qu'elles s'affichent
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Dans ton deuxième code tu écris si le nom de la feuille est égale à = "Feuil1" ne pas afficher
alors que dans le premier code s'il est différent <> "Feuil1" ne pas afficher donc Feuil1 s'affiche ainsi que "Facture" "Devis" sauf les autres feuilles, ce qui n'est pas normal c'est qu'elles s'affichent
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
cousinhub29
Messages postés
881
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
16 avril 2024
333
3 sept. 2010 à 12:24
3 sept. 2010 à 12:24
Bonjour,
A la place de "Or", essaie "And"....
Bonne journée
A la place de "Or", essaie "And"....
Bonne journée
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
Modifié par pijaku le 3/09/2010 à 12:50
Modifié par pijaku le 3/09/2010 à 12:50
Salut cousin...
Ca fonctionne bien avec "And".
Je répète alors ma question, puisque l'on a avancé, pourquoi ce code ne fonctionne pas avec "Or"?
Au niveau de la syntaxe tout semble correct : Si...Ou...Ou...Alors.
EDIT : pas bien réveillé... Désolé, je retire ma question... Il est vrai que comme le nom de ma feuille "Feuil1" est différent de "Facture" alors, comme le test se fait avec "ou", il est normal d'ajouter à la combo...
Ca fonctionne bien avec "And".
Je répète alors ma question, puisque l'on a avancé, pourquoi ce code ne fonctionne pas avec "Or"?
Au niveau de la syntaxe tout semble correct : Si...Ou...Ou...Alors.
EDIT : pas bien réveillé... Désolé, je retire ma question... Il est vrai que comme le nom de ma feuille "Feuil1" est différent de "Facture" alors, comme le test se fait avec "ou", il est normal d'ajouter à la combo...
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
3 sept. 2010 à 14:20
3 sept. 2010 à 14:20
Merci CousinHub
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
3 sept. 2010 à 13:34
3 sept. 2010 à 13:34
Re,
Pour ma part, je préfére ce code
Private Sub UserForm_Initialize()
sauf = "Feuil1,Facture,Devis,"
For i = 1 To Sheets.Count
If InStr(sauf, Sheets(i).Name & ",") = 0 Then ComboBox1.AddItem Sheets(i).Name
Next i
End Sub
Pour ma part, je préfére ce code
Private Sub UserForm_Initialize()
sauf = "Feuil1,Facture,Devis,"
For i = 1 To Sheets.Count
If InStr(sauf, Sheets(i).Name & ",") = 0 Then ComboBox1.AddItem Sheets(i).Name
Next i
End Sub
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
3 sept. 2010 à 14:20
3 sept. 2010 à 14:20
Re,
Merci Mike, en effet ça semble logique quand on le voit.
A+
Merci Mike, en effet ça semble logique quand on le voit.
A+
3 sept. 2010 à 11:41
Non dans le premier, j'indique bien : Si <> "Feuil1" alors afficher... C'est bien là le "souci".
1er code :