XL 2010 Vérifier si cellule contient un caractère un caractère spécial

[jacks39]

Bonjour,

Y a t'il un moyen en vba de vérifier si une cellule contient le caractère suivant : ✔
Evidemment, Excel n’accepte pas ce signe du coup je ne sait quoi mettre dans Like, alors si vous pouviez m'aider, ce serait super.

if cellule like "* *" then

Encore merci pour votre aide ;-)

 

[Staple1600]

Bonjour le fil, le forum

@jacks39
Tu veux forcément vérifier par VBA?
Car une simple formule peut le faire...

 

[jacks39]

Bonjour Staple1600,

Plutôt en VBA que cela m'intéresse...

 

[Staple1600]

Re

En VBA donc
Sub Test_CheckMark()
MsgBox "Caractère " & IIf(InStr(ChrW(10004), ActiveCell) > 0, "présent", "absent"), vbInformation, "Test"
End Sub

 

[jacks39]

Staple1600,

Il faudrait que le signe ✔ soit vérifier dans une chaîne de caractères.

Ton code fonctionne bien lorsque la cellule contient uniquement ✔ mais lorsque le signe fait partie d'une chaine, il ne le détecte pas.

 

[Staple1600]

Re

Bah, il suffisait de
Sub Test_CheckMarkB()
MsgBox "Caractère " & IIf(InStr(ActiveCell, ChrW(10004)) > 0, "présent", "absent"), vbInformation, "Test"
End Sub

 

[Si...]

Bon_jour

Si… tu aimes Like

 Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If R Like "ü" Then MsgBox "c'est bien coché ", 64, "Hé..."
End Sub

Nota : If R="ü" … passe aussi et on peut ajouter, si nécessaire, le test de la police And R.Font.Name ="Wingdings"
Edit :
Si un ü se balade tout seul (oubli du changement de Police)

Private Sub Worksheet_SelectionChange(ByVal R As Range) 
MsgBox IIf(R = "ü" And R.Font.Name = "Wingdings", "c'est bien coché !", "ce n'est pas coché !"), 64, "Hé..."
End Sub