VBA Syntaxe avec "Text Like"

Bonsoir à tous,

Je suis dans un "With" à l'intérieur d'une boucle,

cette ligne fonctionne bien, mais je voulais éviter les "If"

If .Cells(i, "E").Text Like "*OAT*" Then MsgBox ("ok pour test")

ci-dessous => provoque erreur 438 (proprieté ou méthode non gérée par cet objet)

Select Case .Cells(i, "E")
    Case Is = .Text Like "*OAT*": MsgBox ("ok pour test")
End Select

qelle est mon erreur et comment écrire ?

sachant que j'ai une vingtaine de If

Je ne maitrise pas bien le "Text Like"

Amicalement

Claude

Salut le forum

La syntaxe à adapter à ton code

Sub SelectCase_Like()
     Dim Ville As String
     Ville = "Atlanta est une ville de Georgie"
     Select Case True
           Case Ville Like "Atlanta*"
                 MsgBox "Ok pour Atlanta"
           Case Ville Like "Boston*"
                 MsgBox "Ok pour Boston"
     End Select
End Sub

Mytå

Bonjour à tous,

Merci Mytå,

j'ai mis çà en place :

    '-------- pour tableau Notes (xC = colonne du tableau)----------
    Dim Action$, i%, xC%
    Action = Sheets("Synthèse").Cells(i, "E")
    Select Case True
        Case Action Like "*EIB*": xC = 19
        Case Action Like "*CFF*": xC = 19
        Case Action Like "*BEI*": xC = 19
        Case Else: xC = 15
    End Select

çà marche, mais est-il possible de regrouper sur une ligne ?

J'ai essayé :

        Case Action Like "*EIB*", "*CFF*", "*BEI*": xC = 19

mais là, çà coince !

encore besoin d'aide

Amicalement

Claude.

Re le forum

Claude il faut ajouter le test complet, toujours avec mon exemple de base

Sub SelectCase_Like()
     Dim Ville As String
     Ville = "Atlansa est une ville de Georgie"
     Select Case True
           Case Ville Like "Atlanta*", Ville Like "Atlansa*"
                 MsgBox "Ok pour Atlanta"
           Case Ville Like "Boston*"
                 MsgBox "Ok pour Boston"
     End Select
End Sub

Mytå

re,

Ok pigé, merci beaucoup Mytå

à +.... Claude