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