Remplacer les * par ★ dans une colonne VBA

Bonjour,

Petite aide d'après

https://forum.excel-pratique.com/viewtopic.php?t=62187

Public Sub Demo()
    If ActiveSheet.Shapes(1).TextFrame.Characters.Text = "Masquer" Then
        [C7] = ""
        ActiveSheet.Shapes(1).TextFrame.Characters.Text = "Afficher"
    Else
        [C7] = "«"
        '[C7] = Chr(76)
        ActiveSheet.Shapes(1).TextFrame.Characters.Text = "Masquer"
    End If
    With [C7].Font
        .Name = "Wingdings"
        .Size = 11
        .Color = vbRed
    End With
End Sub

Bonjour,

Essaie avec:

Columns("F:F").Select
    Selection.Replace What:="~*", Replacement:=ChrW(9733), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Bonjour,

Où prends-tu ton symbole ?

Moi je le trouve dans la police WingDings2 où il représente le caractère 233, lequel est un é dans la table ordinaire.

On l'obtient en tapant par exemple : hampeéé, puis en modifiant la police des 2 derniers caractères.

Mais je doute que tu puisses obtenir le même résultat avec une procédure de remplacement. Il faut à mon avis, changer la frappe du * par le caractère compatible et modifier la police de ce ou ces caractères, mot par mot.

Cordialement.

Bonjour Valc et Pedro22,

Merci pour vos réponses!

Pedro22, la solution est parfaite et fonctionnelle!

Merci pour votre temps et votre aide!

Cordialement

Bonjour MFerrand,

Merci pour votre réponse mais Pedro22 a réussi à trouver une solution qui me convient!

Bonne journée

Cordialement

mynameisjeff a écrit :

Bonjour MFerrand,

Merci pour votre réponse mais Pedro22 a réussi à trouver une solution qui me convient!

Bonne journée

Cordialement

Héhé, ce jour est enfin arrivé ! Oh gloire !

Au temps pour moi ! Excellente idée de chercher dans la table unicode !

Petit truc, grandes possibilités qui s'ouvrent...

Du coup, pour faire simple en évitant en Select inutile :

Columns("F:F").Replace "~*", ChrW(9733)

Bien le bonjour MFerrand

@Pedro :

Salut Curulis ! Ça faisait un temps qu'on ne s'était croisé, mais tu as été un peu absent après mon retour il me semble...

@+

Bonjour MFerrand,

sans rentrer dans les détails, j'ai eu un petit coup de mou...

A+

Ça arrive ! Moi, je me suis fait tripatouiller sous divers angles, c'est pas tout à fait fini mais ça tire sur la fin (momentanée pour 3 mois).

Bon courage, MFerrand!

Vivent nous!