Expression "OR" vba

[Moonshine]

Bonjour,

J'ai un bout de macro qui est :
If LCase(Trim(Ws2.Cells(i, Code_Etude_11 + 25))) = "moyenne" Then t = t + 1
Et je voudrais que cette macro fasse :
If LCase(Trim(Ws2.Cells(i, Code_Etude_11 + 25))) = "moyenne" ou "mauvaise" Then t = t + 1
Quelqu'un pourrait-il m'aider?
Merci!

Moonshine

 

[Pierrot93]

Re : Expression "OR" vba

Bonjour,

essaye ainsi :

If LCase(Trim(Ws2.Cells(i, Code_Etude_11 + 25))) = "moyenne" Or _
    LCase(Trim(Ws2.Cells(i, Code_Etude_11 + 25))) = "mauvaise" Then t = t + 1

bonne journée
@+

 

[mth]

Re : Expression "OR" vba

Bonjour,

pas testé mais quelque chose comme ceci?:

If LCase(Trim(Ws2.Cells(i, Code_Etude_11 + 25))) = "moyenne" Or LCase(Trim(Ws2.Cells(i, Code_Etude_11 + 25))) = "mauvaise" Then t = t + 1

bonne journée,

mth

Edit: oups.... et bing! Bonjour pierrot 🙂

 

[Moonshine]

Re : Expression "OR" vba

Merci mth et pierrot93! N'étant pas trop familiarisée avec le vba, je n'avais pas pensé à remettre la variable après le OR...
Bonne journée