Discussion :

[canary]

Bonjour,

question très bête je suppose mais bon...

Je souhaite faire un OU comme ceci :
Si B7= "6 OU 8 OU 10" alors
mon instruction
FinSi

Comment puis-je coder ça svp?
Merci par avance!
Aud-

[drakkar_agfa]

Bonjour,

Si tu connais un peu l'anglais ce n'est pas trop compliqué!

Code :

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

1
2
3
    If a = 1 Or a = 2 Then
        MsgBox "A = 1 ou 2"
    End If

^^

[Gorfael]

Salut canary et le forum

Code :

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

1
2
3
If [B7]= 6 or [B7]=8 or [B7]=10 then
     'mon instruction
End if

A+

[canary]

moui je me doutais bien que ça se tramait comme ça mais bon, j'ai une phrase à rallonge comme celle-ci :

Code :

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

If ThisWorkbook.Worksheets("OutilCommerciaux").Range("E7").Value ="F3" ou ThisWorkbook.Worksheets("OutilCommerciaux").Range("E7").Value ="N3" ou ThisWorkbook.Worksheets("OutilCommerciaux").Range("E7").Value ="AKG"

.... j'en ai 15 à mettre derriere

y a pas une autre solution pour faire plus court?

[drakkar_agfa]

Une façon plus courte d'écriture... en fait, deux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim sValeur 'as strin si c'est toujours une chaine.
sValeur = ThisWorkbook.Worksheets("OutilCommerciaux").Range("E7").Value
If sValeur = "F3" Or sValeur = "N3" Or sValeur = "AKG" Then 'et on continue
    MsgBox "Egal"
End If
'******************************************************
' ou
With ThisWorkbook.Worksheets("OutilCommerciaux").Range("E7")
    If .Value = "F3" Or .Value = "N3" Or .Value = "AKG" Then 'et on continue
        MsgBox "Egal"
    End If
End With

[canary]

La deuxième forme serait fin bien meme si elle ne semble pas trop rigoureuse à mon gout...
Je teste et je reviens
merki deja

[canary]

super la 2ème technique marche nikel
MERCI!!

[drakkar_agfa]

Cette technique fonctionne aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
Dim Tableau(1 To 15) 'As String si toujours une chaine
Dim bTag As Boolean
Dim i As Integer
bTag = False
Tableau(1) = "F3"
Tableau(2) = "N3"
Tableau(3) = "AKG"
Tableau(4) = "xxx"
'on continue
 
For i = 1 To 15
    If ThisWorkbook.Worksheets("OutilCommerciaux").Range("E7").Value = Tableau(i) Then
        bTag = True
        Exit For
    End If
Next i
If bTag = True Then
    MsgBox "Egal"
End If
End Sub

C'est un peu plus compliqué vite comme cela mais l'avantage est qu'il est plus facile de nommer les conditions.