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

Staple1600

XLDnaute Barbatruc

• 21 Mai 2018

• #2

Bonjour le fil, le forum

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

 

Vote positif 0 Vote négatif

J

jacks39

XLDnaute Junior

• 21 Mai 2018

• #3

Bonjour Staple1600,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2018

• #4

Re

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

 

Vote positif 0 Vote négatif

J

jacks39

XLDnaute Junior

• 21 Mai 2018

• #5

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mai 2018

• #6

Re

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 21 Mai 2018

• #7

Bon_jour

Si… tu aimes Like

VB:

 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)

VB:

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

 

Dernière édition: 21 Mai 2018

Vote positif 0 Vote négatif