VBA Comment écrire?

Salut le forum,

j'aimerais simplement connaître une façon de simplifier une ligne de code.

IF (Cells(8,11).value = 1 OR cells(10,11).value = 1 OR ...) then

Le principe est simple. J'ai une série de cellules discontinues qui peuvent prendre la même valeur et je ne souhaite pas les énumérer toutes avec la condition.

Par exemple, pour un AND, plutôt que d'écrire :

IF (Cells(8,11).value = 1 AND cells(10,11).value = 1 AND ....

je n'ai qu'à écrire :

IF Range("K8, K10, K...) = 1 THEN

Existe-t-il un même raccourci pour le OR?

Est-ce que la boucle est la façon de faire la plus simple?

SET tablo = Range("K8, K10, K...")

For each cellule in tablo
     IF cellule.value = 1 then
            ...
            Exit for
     End IF
Next cellule

Merci pour vos suggestions.

Bonjour à tous,

Un code de Mytå adapté et à tester,

Sub tester()
Dim Cellule
    For Each Cellule In Array("d11", "d12", "d13", "d15", "d16", "d20")
        If Range(Cellule).Value = 1 Then
            Range(Cellule).Activate
            MsgBox ("la cellule égale 1")
            Exit For
        End If
    Next Cellule
    '***** suite traitement
End Sub

Bonne journée

Claude.

Salut Claude,

ça revient pas mal à ma méthode. Dans ces circonstances, je suis pas mal mieux de m'en tenir à mes habitudes. Je cherche juste à faire plus simple si c'est possible.