Discussion :

[fherolvera]

Bonjour,
HELP PLEASE,
Voici mon problème très simple pour ceux qui maitrisent VBA, mais compliqué pour moi qui ne le maitrise pas.

Je souhaiterai pouvoir faire une sélection de cellule(s) et dans ces cellules pouvoir mettre en gras une chaine de caratère : exemple dans la cellulle 42513b56751 mettre en gras uniquement le 3b et obtenir 42513b56751
J’utilise actuellement la macro ci-dessous mais mon soucis c’est que cette macro modifie en gras toute la cellule et non pas uniquement le ‘’3b’’

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub gras()
 
'' gras Macro
    With Application.ReplaceFormat.Font
        .FontStyle = "Gras italique"
        .Size = 14
        .Subscript = False
        .TintAndShade = 0
    End With
    Cells.Replace What:="3b", Replacement:="3b", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
End Sub

Merci à vous tous.

[Daetheia]

Bonjour,

Peut être que ce tuto pourra t'aider.

http://silkyroad.developpez.com/VBA/...racteres/#LI-D

[gFZT82]

Bonjour,

Par exemple, avec la chaine "42513b56751" dans la cellule A1 de la feuille "Feuil1"

Code :

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

1
2
3
4
5
Sub Test()
    With Worksheets("Feuil1")
        .Range("A1").Characters(InStr(1, .Range("A1"), "3b"), 2).Font.Bold = True
    End With
End Sub

Cordialement.