remplacement caractere par un caractere spécial

[bertgrav]

bonjour,

je voudrais dans un feuille avec une macro, pour toutes les cellules de la colonne A remplacer le caractére * par le caractere spécial (stylo) et ce quelque soit sa place dans la chaine de caractéres
cet * n'est pas forcément présent dans chaque céllule

merci de votre aide

chantal

 

[SergiO]

Re : remplacement caractere par un caractere spécial

Bonjour bertgrav,

Essaie avec ceci

Sub Remplace()
Derlig = Range("A65536").End(xlUp).Row
For i = 2 To Derlig
Cells(i, 1).Select
ActiveCell = Replace(ActiveCell, "*", "!")
Pos = InStr(1, ActiveCell, "!")
If Pos <> 0 Then
    With ActiveCell.Characters(Start:=Pos, Length:=1).Font
        .Name = "Wingdings 2"
    End With
End If
Next i
End Sub

@+

 

[bertgrav]

Re : remplacement caractere par un caractere spécial

merci beaucoup Sergio, c'est exactement ce que je cherchais

bonne journée

chantal