Pavé numérique se désactive

[GIL]

Bonjour à tous et merci par avance pour votre aide.

J’ai créé un fichier Excel, qui comporte 2 feuilles :

Feuille 1 : avec un formulaire de saisie

Feuille 2 : une base de données

J’ai 3 macros

Dans la feuille 1 j’ai un bouton de macro :

• Macro1 basique qui m’envoie sur la feuille 2

Dans la feuille 2 j’ai deux boutons de macros :

Macro2 basique qui me permet de revenir sur la feuille 1 :

Sub Macro2()
’ Macro2 Macro
Sheets(« Formulaire »).Select
Range(« J7 »).Select
End Sub

Macro3 qui permet d’effectuer des recherches :

Sub Rechercher()
Application.SendKeys (« ^f »)
With CreateObject(« WScript.Shell »)
.SendKeys « {NUMLOCK} »
End With
End Sub

(J’ai trouvé cette formule ‘’Rechercher’’ sur Internet.)

Jusque-là tout fonctionne parfaitement.

Seulement, lorsque j’exécute la Macro3 et qu’ensuite je reviens sur la feuille 1 par l’intermédiaire de la macro2 le pavé numérique est désactivé.

Il me manque certainement un code à quelque part. J’ai fouillé partout sur internet, mais rien trouvé.
J’aimerai que le pavé numérique s’active après l’exécution d’une macro.

Merci infiniment de votre aide.

Bien cordialement

[Jacquinot_WILL-FREAD]

Bonjour,
Voilà la bête

@GIL

SendKeys « {NUMLOCK} »

NUMLOCK
Cordialement

[GIL]

@Jacquinot_WILL-FREAD

NUMLOCK

Bonjour,
Merci mais je ne comprends pas

[Jacquinot_WILL-FREAD]

Bonjour,
eh bien, il faut juste mettre :

Sub Rechercher()
Application.SendKeys ("^f")
End Sub

Pour faire une recherche.

Sub Rechercher()
Application.SendKeys ("^h")
End Sub

Pour remplacer.

Cordialement
Will-Fread

[GIL]

@Jacquinot_WILL-FREAD

Sub Rechercher()
Application.SendKeys ("^f")
End Sub

Merci, ca, je l’ai fait et je viens de le refaire. Effectivement, la recherche fonctionne mais elle déverrouille mon pavé numérique

[GIL]

J’ai trouvé, ce code fonctionne nickel

Application.Dialogs(xlDialogFormulaFind).Show

[Jacquinot_WILL-FREAD]

Oui c’est parfait, j’ai pas remarqué que l’autre désactivait le pavé numérique