Discussion :

[idir.17]

Bonjour,
je suis dans une boucle en if vraiment longue et je voulais savoir s il etait possible de raccourcir.

Code :

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

1
2
 
If Left(Trim(CelHV.Offset(i, 1)), 7) = "CDB/S" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "OPL/S" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "BUR" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "C1" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "C2" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "CONVO" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "CRMCC" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "CSS" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "C LVO" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "MCPNC" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "MCPNT" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "SEC" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "CRM1" Or Left(Trim(CelHV.Offset(i, 1)), 7) = "CRM2"

Sachant que c'est toujours la même cellule est-ce qu'il y a moyen de mettre un point virgule ou quelque chose comme ca .

Merci d'avance

[AlainTech]

1. If n'est pas une boucle...
2. Dans ton cas, tu ferais mieux d'utiliser un Select Case

[idir.17]

Je me renseigne sur select Case. Mais juste pour ma culture personnelle, j'aimerais quand meme bien savoir si il n'y a pas moyen d'ecrire un truc comme ca.
If Left(Trim(CelHV.Offset(i, 1)), 7) = "STAGE";"SPG";"CFE" Then

[alsimbad]

non, je ne pense pas que l'on puisse, par contre tu peux essayer un:

Code :

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

1
2
set var = Left(Trim(CelHV.Offset(i, 1)), 7)
if var = "STAGE" or var = "SPG" or var = "CFE" Then ..

ou même sans le set

Code :

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

1
2
var = Left(Trim(CelHV.Offset(i, 1)), 7)
if var = "STAGE" or var = "SPG" or var = "CFE" Then

[idir.17]

Merci à vous deux..

J'ai regarde Select case. Ca ne collait pas a ce que je voulais faire mais la réponse d'alsimbad m' a été utile. Je n'y avais meme pas pense.


merci bcp..

[AlainTech]

Une possibilité:

Code :

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

1
2
strText = "CDB/S;OPL/S;BUR;C1;C2;CONVO;CRMCC;CSS;C LVO;MCPNC;MCPNT;SEC;CRM1;CRM2"
If strText Like ("*" & Left(Trim(CelHV.Offset(i, 1)), 7) & "*") Then