Rechercher/ Remplacer et mettre en gras dans excel

Imperium · 8 Juillet 2011

Bonjour,

Dans une macro, je dispose de lignes de codes qui vont me faire une recherche d'un mot sur toutes les cellules et le remplacer par un mot contenu dans une cellule prédéfinie.

Le code est le suivant, avec le mot remplacé PRISSAL et le mot qui le remplace contenu en P18.

Cells.Replace What:="PRISSAL", Replacement:=[P18], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Ce que j'aimerai, c'est que PRISSAL soit remplacé par le mot en P18 (ce qui est le cas) mais en plus soit mis en gras après remplacement.

Attention, PRISSAL n'est pas seul dans sa cellule, et au milieu d'une autre phrase qui ne doit, bien sûr, pas être mise en gras (seul le mot qui remplace PRISSAL)

Voilà, voilà, merci beaucoup par avance pour votre aide

Pierrot93 · 8 Juillet 2011

Re : Rechercher/ Remplacer et mettre en gras dans excel

Bonjour,

regarde du coté de "Find" et "FindNext" en utilisant mettant l'argument "LookAt" à "xlpart"...

bonne journée
@+

Imperium · 8 Juillet 2011

Re : Rechercher/ Remplacer et mettre en gras dans excel

Vraiment désolé, mais je crois que mon niveau n'est pas assez élevé pour comprendre ta réponse (on m'a aidé pour cette macro)

Pierrot93 · 8 Juillet 2011

Re : Rechercher/ Remplacer et mettre en gras dans excel

Re,

regarde ceci, agit sur la colonne A de la feuille active :

Code:

Option Explicit
Sub test()
Dim t As String, x As Range
t = Range("P18").Value
With ActiveSheet.Columns(1)
    Set x = .Find("PRISSAL", , xlValues, xlPart, , , False)
    If Not x Is Nothing Then
        Do
            x.Replace "PRISSAL", t
            x.Characters(InStr(x, t), Len(t)).Font.Bold = True
            Set x = .FindNext
        Loop While Not x Is Nothing
    End If
End With
End Sub

bon après midi
@+

Rechercher/ Remplacer et mettre en gras dans excel

Imperium

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

Imperium

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

Discussions similaires