Remplacer un mot dans 1000 cellules différentes pour le passer en gras

[gallica]

Bonjour à tous,
Après avoir passé ma matinée à chercher avec G sur le sujet je me décide à poster car je ne peux pas croire que cela n'existe pas.
J'ai en colonne A sur 5 lignes sur les cellules suivantes. Je voudrais passer le mot short en gras uniquement dans chaque cellule.

Short mma Brazilian Flag - Blanc
Short mma Brazilian Flag - Noir
Short mma Light Ring Edition - Blanc
Ceinture Blanche de jujitsu Brésilien
Ceinture Bleue de jujitsu Brésilien

Avec un ctrlF et rechercher/remplacer sur le mot avec mise en forme, c'est toute la cellule qui passe en gras or ce ne n'est pas le but ou il ne trouve pas de correspondance. Bug ?

Si un pro en VBA ou autre peut éclairer mon ignorance.
Merci d'avance.

 

[sousou]

Re : Remplacer un mot dans 1000 cellules différentes pour le passer en gras

bonjour
tu peux essayer ce code en selectionant la zone concernée
Sub deb()
machaine = "Short"
For Each i In Selection
rangt = InStr(1, i, machaine)
With i.Characters(Start:=rangt, Length:=Len(machaine)).Font

.FontStyle = "Gras"

End With
Next
End Sub

 

[phlaurent55]

Re : Remplacer un mot dans 1000 cellules différentes pour le passer en gras

Bonjour gallica et bienvenue sur le forum

avec ce code:

Sub gras()
For i = 1 To Range("A65535").End(xlUp).Row
If Cells(i, 1) Like ("*Short*") = True Then
    With Cells(i, 1).Characters(Start:=WorksheetFunction.Search("Short", Cells(i, 1)), Length:=5).Font
        .FontStyle = "Gras"
    End With
End If
Next i
End Sub

à+
Philippe

Edit: Bonjour Sousou

 

[gallica]

Re : Remplacer un mot dans 1000 cellules différentes pour le passer en gras

Merci à tous les 2 pour vos solutions et réactivité.
Quelle puissance de traitement Excel quand on maitrise le VBA !