Caractères spéciaux

Bonjour à tous

suite au post que j'ai ouvert il y a quelques jours, j'ai voulu modifier le module1 que m'avait proposé i20100, afin qu'il prenne en compte également les caractères spéciaux mais le résultat n'est pas concluant.

Je ne vois pas où est l'erreur.

Pouvez-vous m'aider, merci.

Le post d'origine est ici -> https://forum.excel-pratique.com/viewtopic.php?f=2&t=131995

Salut,

Si on considère que tous les caractères qui ne sont pas des minuscules, majuscules ou chiffres sont des caractères spéciaux à mon sens ça donne :

Function TestCell2(cellule As Range) As String
Dim nb As Integer, i As Integer, minus As Integer, majus As Integer, numé As Integer
Application.Volatile
nb = Len(cellule)
For i = 1 To nb
    Select Case Asc(Mid(cellule, i, 1))
    Case 123 To 255: spéc = 1
    Case 97 To 122: minus = 1
    Case 91 To 96: spéc = 1
    Case 65 To 90: majus = 1
    Case 58 To 64: spéc = 1
    Case 48 To 57: numé = 1
    Case 0 To 47: spéc = 1
    End Select
Next i
Debug.Print spéc
If nb >= 8 And minus = 1 And majus = 1 And numé = 1 And spéc = 1 Then TestCell2 = "OK" Else TestCell2 = "Err"
End Function

Bonjour Girodo et merci.

Le code que tu me proposes n'ai pas fonctionnel avec ce que je désire faire.

En fait je voudrais tester la cellule C2 pour transférer un résultat Ok ou Err en D2.

Pour que C2 soit Ok, il faut que le code soit de 8 caractères minimum, qu'il soit formé de:

• minuscule, de majuscules, de numériques et de spéciaux
• minuscules, de majuscules et de numériques
• minuscules, de majuscule et de spéciaux
• minuscules, de spéciaux et de numériques
• spéciaux, de majuscule et de numérique

J'espère avoir été claire dans ma description.

Merci

Bonjour à tous,

Avec un peut d'acharnement, j'ai résolu mon problème.

Merci.

Bonjour,

peux-tu partager ta solution ?