Utiliser la fonction like avec une variable

Sub test()

Set F = Sheets("Liste")

For Each c In F.Range("A1:a" & F.[A10000].End(xlUp).Row)

If c.Formula Like "nom*" Then c.Font.ColorIndex = 3

Next

End Sub

Je voudrais remplacer nom par une variable.

Par exemple par activecell.formula

Alors comment écrire la macro suivante ? Merci

Sub test()

dim nom as string

nom = activecell.formula

Set F = Sheets("Liste")

For Each c In F.Range("A1:a" & F.[A10000].End(xlUp).Row)

If c.Formula Like "nom*" Then c.Font.ColorIndex = 3

Next

End Sub

Bonjour,

Si nom est une variable alors, la syntaxe est la suivante :

If c.Formula Like "*" & nom & "*" Then

Cdlt,

Merci

Rechercher des sujets similaires à "utiliser fonction like variable"