Fonction send key

Bonsoir,

J'essai d'utiliser la fonction sendkey. J'ai trouvé des réponses sur le forum qui fonctionnent pour les utilisateurs mais pas chez moi.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Validation_num_PDV()   Dim cell As Range   Range(Range("L13"), Range("L13").End(xlDown)).Select   For Each cell In Selection   SendKeys "{F2}" Application.SendKeys "{ENTER}", True DoEvents   Next   End Sub

---

Ce que cela fait chez moi, c'est activer F2 dans la fenêtre VBA. J'ai essayé avec et sans "Application." devant, et avec true / false / omis derrière.
Mais c'est toujours dans VBA et non dans Excel que le F2 est exécuté.

Que faire ? :? (accessoirement j'ai écrit Doevents car je l'ai lu dans un post, mais je ne sais pas si c'est vraiment utile.)

Merci !

Sendkey ne fonctionne que sur la fenêtre active, hors comme tu exécute ton code depuis l'IDE, la fenêtre du classeur n'est pas active.
Pour parvenir à tes fins, tu dois déclencher l'exécution du code par un autre moyen (ruban / bouton / évènement ect ...).

Mais pourquoi aurais-tu besoin de SendKey ?
Excel est parfaitement pilotable sans cet artifice à la fiabilité douteuse.

Pourquoi je fais cela ?

J'ai une donnée en numérique qui correspond à un numéro de magasin sur 4 ou 5 caractères. Mais toutes les autres infos avec qui je dois croiser les données sont en format texte sur 5 caractères avec un 0 devant si nécessaire.
J'ai donc converti en texte mon # de magasin en le forçant sur 5 car. Mais cela fait planter ma recherchex().
Mais j'ai vu que si je faisais F2+entrée ca gardait mon format texte et recherchex() acceptait de fonctionner à nouveau.
Donc je cherche à automatiser cette combine pas très sérieuse je l'admet.
J'avais bien pensé à utiliser les collages spéciaux - opérations, mais là, je perd mon format texte avec le 0 devant.

******Illumination ************

Je teste ma macro en mode pas à pas (F8) alors que normalement je l'utiliserais rattachée à un bouton. Donc au vu de ta réponse, ca doit être pour ça que ca fonctionnait sur les autres forums et pas chez moi.
Je vais tester ca demain matin.

Merci :)
François

P.S si tu avais soit une explication de pourquoi je dois obliger de faire cette manip, soit une manière plus propre de le faire, je suis toujours ouvert à de nouveaux trucs :)

Bon ....

Met toute cette merde de Sendkey dans une boite et jette la clef au fin fond de la fosse des Mariannes !!

Pour forcer une cellule en texte, il suffit de concaténer une apostrophe avec ta donnée.

Hello,
le souci est que SendKeys envoie les touches à la fenêtre active et dans ton cas c'est la fenêtre de l'éditeur VBA. Tu peux redonner le focus à ta feuille de classeur avec AppActivate comme ceci par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Validation_num_PDV() Dim cell As Range Range(Range("L13"), Range("L13").End(xlDown)).Select For Each cell In Selection AppActivate Title:=ActiveWorkbook.Name DoEvents SendKeys "{F2}", True SendKeys "{ENTER}", True DoEvents Next End Sub

---

Mais attention si tu fais du pas à pas dans la boucle à chaque instruction le focus est redonné à l'éditeur VBA. En mettant un point d'arrêt sur le Next , et en appuyant sur le Run à chaque fois cela fonctionne car le focus reste sur la feuille du classeur jusqu'au Next

Ami calmant, J.P

Merci pour vos réponses, ca a parfaitement fonctionné.

Et j'espère à ne plus avoir à nettoyer d'autres fichiers de cette manière :D