VBA TROUVER caractères spéciaux, pas REPLACE Résolu

Question

Bonjour à tous,

Après une longue recherche sur les forum, j'ai trouvé 30 discussions sur la fonction Replace, des fonctions pour remplacer les ' par des '' pour faire fonctionner la recherche qui ne fonctionnent pas, mais pas la réponse à ma question toute simple.

Je voudrais simplement un code du genre:

Dim RECHERCHE as string
If RECHERCHE contient un espace ou un caractère "  '  "   Then
    MsgBox("Ne pas saisir d'espace ou de caractère ' dans la zone de recherche!")
Else
    Exécute ma recherche
End If

Et mon soucis, c'est simplement que je n'arrive pas à chercher si ce que la personne a saisie contient une ' ou un espace. Malheureusement ce petit inconvénient crée la panique!

En espérant que quelqu'un pourra m'aider, 
Bonne journée

michel_m · Answer

Bonjour,

essaies cette macro événementielle à placer dans le module "feuil" concerné de VBE
(dans cet exemple A1:C10 représente la zone où l'action est valide

Private Sub Worksheet_Change(ByVal Target As Range)
Dim reg As Object
Dim flag As Boolean
If Not Intersect(Target, Range("A1:C10")) Is Nothing Then
   ' instancie
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "'"
    flag = reg.Test(target)
    If flag Then
        MsgBox "une ou plusieurs apostrophes ont été saisies dans la cellule"
    End If
End If
End Sub

mais pas sûr qu'apostrophe soit du genre féminin

michel_m · Answer

bin oui c'était sur Excel, mon truc
target représente la cellule active
Mais les expressions rationnelles fonctionne aussi avec Access
comme je travaillle pas souvent avec access, je te dirai peut-être des bétises

peut être en créant une fonction booléenne avec comme param^tre , ta zone de texte ,et reverrrait False ou true
function machin(tonparam)
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "'"
   machin = reg.Test(tonparam)
end functon

michel_m · Answer

bonjour,
comme je te l'ai dit, je travaille rarement sur Access..
pistes sans garantie:
peut-être nettoyer la zone si erreur
abandonner le système "fonction" et passer en procédure "after up date"

michel_m · Answer

Re

En mode création du formulaire-
-sélectionne ton contrôle où tu test l'apostrophe
-propriété- événement
coche "après MAJ"
sur le bouton "trois points" sélectionnes "générateur code"
voila le code :(remplace "s_mel" (nom de mon appli qui vérifiait la syntaxe d'un e-mail) par le nom de ton contrôle

Private Sub s_mel_AfterUpdate()
Dim reg As Object
     Dim flag As Boolean
 If [s_mel] > 0 Then
     Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "'"
    flag = reg.Test([s_mel])
    If flag Then
        MsgBox "une ou plusieurs apostrophes ont été saisies dans la cellule"
    End If
End If
     
     Set reg = Nothing
End Sub

bin tout ça, ça m'aura permis de me replonger dans Access, d'où le délai!

VBA TROUVER caractères spéciaux, pas REPLACE

4 réponses

Discussions similaires

Newsletters