Discussion :

[malabarbe]

Bonjour,

Je souhaiterai balayer une chaine de caractères et a la rencontre d'un caractère qui est en police Wingdings, supprimer ce caractère et tout ceux
qui se trouvent a sa droite.

Après maintes essais, mais je n'arrive pas a déterminer quelle police pour chaque caractères.

nb : le code ASCII entre la police Arial et la police Wingdings ne correspondent pas au mème caractère.

Mon but, c'est de supprimer les caractères en police Wingdings et ceux qui sont après.

Un petit coup de main serai le bienvenu !

[fring]

Bonjour,

Une solution, en supposant la chaîne de caractères dans la cellule A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Integer, Chaine As String
 
Chaine = Range("A1")
 
For i = 1 To Len(Chaine)
If Range("A1").Characters(i, 1).Font.Name = "Wingdings" Then
    Range("A1") = Left(Chaine, i - 1)
    Exit For
End If
Next
 
End Sub

[malabarbe]

Salut fring,

C'est exactement ce que je cherchai a faire
Celatourne Impec

Un grand MERCI

@ +