détecter les espaces et caractères spéciaux dans une variable stringRésolu

Question

Bonjour à tous,

Pour la question, tout est dans le titre. J'étais en train de partir sur quelque chose de trop compliqué à mon avis, vu que je veux juste lancer une msgbox et faire "exit sub" si il y a un espace (et tant qu'à faire un caractère spécial genre  ÀÁÂÃÄÅàáâãäåÒÓÔÕ
ÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç) dans ma variable string "monfichier".

Merci

jrivet · Accepted Answer

Salut,
Je ne sais pas si cela peu t'aider mais regarde ceci:

Option Explicit

Private Sub Form_Load()
'devrait renvoyer FALSE
Call MsgBox(CheckNom("Ccei est un test avec espace"))
'devrait renvoyer FALSE
Call MsgBox(CheckNom("ESsayonsAVECunCaØazctere"))
'devrait renvoyer TRUE => Nom Correct
Call MsgBox(CheckNom("CETestNeDoitPasRenvoyerFalse"))

End Sub

Private Function CheckNom(NomFichier As String) As Boolean
Dim Spec As String
Dim i As Integer
    Spec = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç "
    'par défaut on dit que le om est bon
    CheckNom = True
    For i = 1 To Len(Spec)
        If InStr(1, NomFichier, Mid(Spec, i, 1)) <> 0 Then
            CheckNom = False
            Exit For
        End If
    Next
End Function, ----
(Coloration syntaxique automatique par Kenji)

@+: Ju£i?n
Pensez: Réponse acceptée

Billybobbonnet · Answer

Merci, ça fonctionne à merveille et c'est exactement ce qu'il me fallait. Au passage, j'aurais aussi appris qu'on peut intégrer une fonction dans un texte de msgbox.

Mes compliments, réponse acceptée

Merci

Détecter les espaces et caractères spéciaux dans une variable string

2 réponses

Votre réponse