Discussion :

[Boris_Gem]

Bonjour à tous,

Je cherche à faire un test If avec un nombre de conditions variables.

Considérons un tableau modifiable par l'utilisateur qui à une valeur "Onglet 1"associe plusieurs valeurs "Planner". L'utilisateur étant libre d'ajouter ou de retirer des planner associé à la valeur "Onglet 1"

J'aimerai faire un test IF du type

Code :

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

1
2
3
4
 
If Sheet1.Cells = Planner 1 Or Sheet1.Cells = Planner 2 Or Sheet1.Cells = Planner 3 Then 
....
End If

Le soucis c'est qu'une fois il y aura 2 planner, une autre fois 4 etc...

A chaque lancement de la macro, je stocke les valeurs "Planner" dans un tableau et j'aimerai pour faire un test :

If Sheet1.Cell appartient a une des valeurs du tableau Then
...
End If

[Jean-Philippe André]

salut,

peut-on avoir la suite de ton raisonnement stp ?
En l'etat actuel des informations donnees, je ne suis pas en mesure de te repondre car on ne sait pas si tu fais un test sur une valeur, sur une serie de valeurs, sur des no;bres, sur des chaines de caracteres...
De plus, vu que le code VBA que tu nous proposes ne pourra pas fonctionner en l'etat, on ne sait pas si tu veux tester des numeriques autre chose

Plus tu es precis dans ta demande, plus on pourra etre efficaces dans nos reponses

[PPz78]

Bonsoir,

Comme ton test est un OU il suffit qu'il y ait un Planner dans ta colonne.
- soit tu fais un majorant (pas très beau) et tu prévois 20 ou 50 lignes au maximum.
- soit tu fais une boucle et tu t'arrêtes dès que tu as trouvé un Planner

PPz

[Boris_Gem]

Bonjour,

Pour jpcheck : Je fais un test sur des string. Voici ma boucle if :

Code :

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

1
2
3
4
5
6
7
8
9
10
 While Trim(Sheets(1).Cells(i, 1).Value) <> ""
        If Trim(Sheets(1).Cells(i, 28)) = "STS_CT_CUST" Or Trim(Sheets(1).Cells(i, 28)) = "STS_CT_ENG" Or Trim(Sheets(1).Cells(i, 28)) = "STS_CTL_ENG" Or Trim(Sheets(1).Cells(i, 28)) = "MULTOS" Then
        Sheets("CUST_ENG").Cells(l, 1) = Sheets(1).Cells(i, 1)
        Sheets("CUST_ENG").Cells(l, 2) = Sheets(1).Cells(i, 2)
        Sheets("CUST_ENG").Cells(l, 3) = Sheets(1).Cells(i, 3)
        Sheets(1).Rows(i).Interior.ColorIndex = 15
        l = l + 1
        End If
        i = i + 1
        Wend

Je répète mon problème : Le nombre de test que j'effectue dans mon If (ici 4) est variable est dépend d'un tableau que l'utilisateur rempli avant de lancer la macro.

PPz78 : Pourrais-tu develoopper ? J'arrive à voir comment ca me débarasse de mon problème.