Repérer caractères spéciaux dans cellule

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

Bonjour flint6593

A tester:

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!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

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!!!!!!!!!!!!!!!!!