Repérer caractères spéciaux dans cellule

[flint6593]

Bonjour,

Voilà, je voudrais savoir si il existe une macro capable de repérer les caractères spéciaux.
Et si il y en à, de mettre la cellule en rouge.
Voilà mon code:

Function RefValide(Ref As String) As Boolean
RefValide = True
If Asc(Ref) < 65 Then RefValide = False
If Asc(Ref) > 90 And Asc(Ref) < 97 Then RefValide = False
If Asc(Ref) > 122 Then RefValide = False

Le problème c'est que ça ne test que le premier caractère. J'aimerais qu'il me test tous les caractères de la cellule... Ensuite avec le False je me débrouille dans mon programme...

Merciiiiii!!!!!!!!

 

[pierrejean]

Re : Repérer caractères spéciaux dans cellule

Bonjour flint6593

A tester:

Function RefValide(Ref As String) As Boolean
RefValide = True
For n = 1 To Len(Ref)
If Asc(Mid(Ref, n, 1)) < 65 Then RefValide = False
If Asc(Mid(Ref, n, 1)) > 90 And Asc(Ref) < 97 Then RefValide = False
If Asc(Mid(Ref, n, 1)) > 122 Then RefValide = False
Next n
End Function

 

[flint6593]

Re : Repérer caractères spéciaux dans cellule

Juste merci et RESPECT!!!!!

Ca fais depuis le début de l'après-midi que je plante dessus...

VRAIMENT MERCI!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[Staple1600]

Re : Repérer caractères spéciaux dans cellule

Bonjour


C'est bien de respecter les membres du forum
C'est bien aussi de respecter la charte du forum

Pourquoi avoir créer un second fil ?
https://www.excel-downloads.com/threads/nbr-de-caractere-limite-pas-despaces-suite.168246/

PS: citer les auteurs des codes VBA, c'est sympa aussi

 

[flint6593]

Re : Repérer caractères spéciaux dans cellule

Rebonjour!

Je ressort ce vieux post pour demander un complément d'information.
En fait j'ai un problème.
Je dois interdire la suite "Lettre - chiffre" exemple "R-5", mais je dois autoriser le caractère -

Voici mon code, le souci étant qu'au début on interdit bien ce que je veux, mais après on l'autorise.... Voici mon code:


Function RefValide(Ref As String) As Boolean
RefValide = True

If UCase(Ref) Like "*[A-Z]-#*" Then RefValide = False

For n = 1 To Len(Ref)

If Asc(Mid(Ref, n, 1)) < 48 And Asc(Ref) > 57 Then RefValide = False
If Asc(Mid(Ref, n, 1)) = 45 Then RefValide = True 'voici mon caractère!!!!!!!
If Asc(Mid(Ref, n, 1)) > 57 And Asc(Ref) < 65 Then RefValide = False
If Asc(Mid(Ref, n, 1)) > 90 And Asc(Ref) < 97 Then RefValide = False
If Asc(Mid(Ref, n, 1)) > 122 Then RefValide = False
Next n

End Function

Merci!!!!!!!!!!!!!!!!!