Discussion :

[CyrilAtOffice]

Bonjour ,
je cherche comment trouver et sélectionner une chaine de caractères AAA dans la cellule d'une feuille par macro en lui passant AAA en paramètre.

Merci de votre aide

[sabzzz]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
With Range("A1")
x = Application.Find("AAA", .Value)
    With .Characters(Start:=x, Length:=3).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
End With

isabelle