Mise en gras d'un caractère d'une cellule pour une sélection

[hlander]

Bonjour, Je m'explique

Dans un colonne j'ai :
1=texte1
2=texte2
3=texte3
4=texte4
5=texte5
6=texte6
7=texte7
8=texte8
9=texte9
10=texte10
11=texte11
12=texte12

voir fichier joint, ces cellules provenant d'un copier/coller.

J'aimerais par une macro, mettre en gras tous les caractère avant = en gras.

merci pour votre aide

 

[Guest]

Re : Mise en gras d'un caractère d'une cellule pour une sélection

Bonjour,

voici une macro qui le fait. Sélectionne tes données et lance la macro

Sub Graisser_Selection()
    Dim c As Range
    For Each c In Selection.Cells
        If InStr(1, c.Text, "=") > 0 Then
           c.Characters(1, InStr(1, c.Text, "=") - 1).Font.Bold = True
        End If
    Next c
End Sub

A+

 

[hlander]

Re : Mise en gras d'un caractère d'une cellule pour une sélection

Merci beaucoup c'est parfait

 

[Guest]

Re : Mise en gras d'un caractère d'une cellule pour une sélection

Re,

J'ai racourci la macro de mon post précédent de deux lignes. J'étais parti sur autre chose et oublié de le faire avant de te l'envoyer.

A+