Discussion :

[panda78]

Bonjour

je cherche à alléger une condition comportant 28 items avec Or :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If cboChoixSrce.Text = "BRH" Or cboChoixSrce.Text = "Scie murale" Or cboChoixSrce.Text = "Scie circulaire" Or cboChoixSrce.Text = "Perceuse" Or etc...

Merci

[HopPopPop]

Bonjour à tous,

Réfléchissons un peu ... Il me semble qu'à la lecture de vos posts, vous avez au total 28 items pour ce Control ComboBox. Il suffirait donc d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If cboChoixSrce.Text <> "" Then ...

Cordialement.

[Philippe Tulliez]

Bonjour,
Un petit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim myList As String
myList = "BRH;Scie murale;Scie circulaire;Perceuse"
If InStr(myList, "Scie") Then MsgBox "Yes"

Donc par exemple avec ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim myList As String
myList = "BRH;Scie murale;Scie circulaire;Perceuse"
If InStr(myList, cboChoixSrce.Text) Then MsgBox "Yes"

[panda78]

Merci pour votre aide , vos deux propositions sont totalement différents mais foncionnent toutes les deux.

J epense que je vais faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim myList As String
myList = ThisWorkbook.Worksheets("Config!A2:A29")
If InStr(myList, cboChoixSrce.Text) Then MsgBox "Yes"

car ma liste est dans un tableau dans une feuille appellée Config

Encore Merci

petit soucis je m'y prends mal, comment mettre dans myList les outils classés dans ma feuille "Config" de A2 à A29 ?

petite précision, le code est dans le module de l'userform

[panda78]

Super j'ai réussi , j'ai fait comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim myList As String, str As String
 
 str = UserForm1.cboChoixSrce.Text
 
myList = ThisWorkbook.Worksheets("Config").Range("A2:A29").Find(str, LookIn:=xlValues, lookat:=xlWhole)
 
If InStr(myList, cboChoixSrce.Text) Then MsgBox "Yes"