Code pour décocher la case "Respecter la casse"

Bonjour Forum !

J'ai écrit une macro qui effectue une recherche de texte en respectant la casse :

Sub Affichage_DATA_SECU()
    Cells.Find(What:="SÉCU", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
End Sub

Mon problème, c'est que la case "Respecter la casse" de la recherche reste activée.

Je souhaite la décocher en fin d'exécution de macro.

Comment faire ?

Merci !

Bonjour

essaie comme ceci :

Cells.Find(UCase("sécu"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, SearchFormat:=False).Activate

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Merci pour ta réponse.

Bizarrement, la recherche est insensible à la casse (elle détecte aussi bien "sécu" que "SÉCU").

Bonjour,

Pour qu'on puisse t'aider dans les meilleurs conditions.

Cordialement,

Simon

Ci-joint le fichier demandé.

Il y a 3 boutons en haut de feuille.

Les 2 premiers (« NORMES » et « PRIX ») lancent une recherche de texte en respectant la casse (le mot normes ou le mot prix en majuscule).

La recherche fonctionne bien (seul le mot en majuscules est détecté), mais la case « Respecter la casse » reste cochée après la recherche.

Avec le code proposé par Dan, (bouton « SÉCU » seulement) la recherche détecte aussi bien « SECU » que « sécu », mais la case « Respecter la casse » reste bien décochée.

Ce que je cherche à faire est entre les 2 :

– recherche sensible à la casse

– case décochée après la recherche

J’espère que c’est plus clair maintenant.

Bonjour

Une idée

Pourquoi ne pas relancer la recherche d'un mot inexistant avec cette option à False

Sub Affichage_DATA_NORMES()
Dim Cel As Range

    Cells.Find(What:="NORMES", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
    Set Cel = Cells.Find(What:="Banzai64", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)

End Sub

Caramba, c'est futé !

Merci !!!

Il ne me reste plus qu'à éviter d'avoir le mot " banzai64" dans mes feuilles

Re,

Ca risque pas

Cordialement,

Simon