Utilisation condition OR

Bonjour à tous,

Je bloque sur la condition.

La partie de la macro ci-dessous permet d'identifier dans la colonne A les cellules dont le premier caractère est "R" et je souhaiterais que l'identification se fasse sur les 2 premiers caractères identifiables par "R1", "R2", "R3" ou "R4" :

Do Until i > i1

If Left(tablo(i, 1), 1) = "R" Then

tablo(i, 1) = False

i = i + 1

Exit Do

Else

tablo(i, 1) = True

i = i + 1

End If

Loop

If i > i1 Then

MsgBox "onglet : " & .Name & vbLf & vbLf & _

"Soit il n'y a pas de premier élément commençant par 'R'," & _

"soit il y en qu'un seul" & vbLf & vbLf & _

" Opération abandonnée"

GoTo OngletSuivant

End If

Mais en transformant de la sorte, cela ne donne rien :

Do Until i > i1

If Left(tablo(i, 1), 1) ="R1" or “R2” or “R3” or “R4 Then

tablo(i, 1) = False

i = i + 1

Exit Do

Else

tablo(i, 1) = True

i = i + 1

End If

Loop

If i > i1 Then

MsgBox "onglet : " & .Name & vbLf & vbLf & _

"Soit il n'y a pas de premier élément commençant par 'R'," & _

"soit il y en qu'un seul" & vbLf & vbLf & _

" Opération abandonnée"

GoTo OngletSuivant

End If

De la même manière, la commande ci-dessous permet d'identifier les cellules A45 dont le contenu ne contiendrait pas de date et souhaiterais faire la même chose avec la cellule A46 :

'Si les 10 derniers caractères de la cellule A45 de la feuille ne correspondent pas à une date

If Not (IsDate(Right(s.Range("A45"), 10))) Then

D'où ma modif; qui ne marche pas non plus :

'Si les 10 derniers caractères de la cellule A45 ou de la cellule A46 de la feuille ne correspondent pas à une date

If Not (IsDate(Right(s.Range("A45"), 10))) or (IsDate(Right(s.Range("A46"), 10))) Then

Merci de votre éclairage sur l'utilisation de OR que je n'ai manifestement pas captée.

If Left(tablo(i, 1), 2) ="R1" or Left(tablo(i, 1), 2) =“R2” or Left(tablo(i, 1), 2) =“R3” or Left(tablo(i, 1), 2) =“R4 Then

si cela est un peu lourd

    Select Case Left(tablo(i, 1), 2)
        Case "R1","R2","R3","R4"
            'code
        Case Else
            'code
    End Select

Cool, les 2 marchent au top. Ca va commencer à rentrer à force d'à force, lol.

Merki à toi pour la rapidité de ta réponse