Problèmes sur Sendkeys et Wait

Bonjour,

J'ai appris le VBA sur le tas, et je galère un brin sur l'utilisation de la fonction SendKeys... Le problème est simple : Quoi que je fasse, les fonctions SendKeys n'entre en application dans mon fichier Excel que lorsque la Macro est finie. Pour faciliter mes essais avec quelque chose de visuel j'ai pris un exemple basique trouvé sur un forum :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   For I = 1 To 3 Cells(I, 4).Select SendKeys "{F2}", True SendKeys "A", True SendKeys "{ENTER}", True Next I   End Sub

---

J'ai changé la valeur du Wait, mis des tempos, remplacé par des Application.SendKeys... Rien à faire. Systématiquement, ce code arrive en case D3, puis remplit les cases D3 à D5 de "A".

Mon soucis final vient du fait que je veut entrer puis sortir de chacune des cases du plage, et j'ai trouvé l'info sur le net que cette action n'est réalisable en VBA que via SendKeys{"F2"}. Recalculer ma feuille ne fonctionnera pas dans mon cas, puisque j'aimerais permettre sur une grande plage d'activer le Renvoi automatique à la ligne uniquement quand un alt+enter a été tapé, pas quand la chaine de caractère est trop longue pour être affichée.

Mon programme initial fonctionne pour ça d'ailleurs, il est même ultra basique, mais vu que les SendKeys s'effectue après la fin du programme, le ScreenUpdating est réactivé, et les grandes plages prennent une éternité à tourner... Rendant la fonction inutilisable. Pour info :

Code:

---

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

Dim Cible As Range Sub In_N_Out()   Application.ScreenUpdating = False   For Each Cible In Selection   SendKeys "{F2}" SendKeys "{Enter}"   Next Cible   Application.ScreenUpdating = True   End Sub

---

Je n'ai trouvé de solutions ni sur les forums ni sur les site dédiés au VBA. Est-ce que quelqu'un aurait une idée?

Merci par avance!

Bonjour,

Citation:

---

permettre sur une grande plage d'activer le Renvoi automatique à la ligne uniquement quand un alt+enter a été tapé

---

Ce code devrait effectuer cela:

Code:

---

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

Sub Alt_Enter() '--- Alt-Entrée = Chr(10) --- WrapText = Renvoi à la ligne automatique Dim cible As Range Application.ScreenUpdating = False For Each cible In Selection If InStr(cible, Chr(10)) > 0 Then cible.WrapText = True Else cible.WrapText = False End If Next cible Application.ScreenUpdating = True End Sub

---

Cordialement.

Bonjour EricDgn,

Simple, efficace et élégant... J'adore! Super idée plus pertinente que la mienne, Merci beaucoup! :D

En revanche, si quelqu'un a une réponse à la question sur les SendKeys, je suis preneur! Ça me turlupine vachement, et si j'ai besoin de m'en servir un jour j'aimerais bien comprendre ce que je fais faux dans ces macros! :mrgreen:

Hello,

Citation:

---

Envoyé par Daxyj

Bonjour EricDgn,

Simple, efficace et élégant... J'adore! Super idée plus pertinente que la mienne, Merci beaucoup! :D

En revanche, si quelqu'un a une réponse à la question sur les SendKeys, je suis preneur! Ça me turlupine vachement, et si j'ai besoin de m'en servir un jour j'aimerais bien comprendre ce que je fais faux dans ces macros! :mrgreen:

---

avec ce code cela a l'air de fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Test() Dim i As Integer For i = 1 To 3 Cells(i, 4).Select SendKeys "{F2}", True DoEvents SendKeys "A", True DoEvents SendKeys "{ENTER}", True DoEvents Next i End Sub

---

Citation:

---

DoEvents cède le contrôle au système d’exploitation. Lorsque ce dernier à fini de traiter les événements de la file d’attente et que toutes les clés de la file d’attente SendKeys ont été envoyées, le processeur reprend le contrôle.

---

Ami calmant, J.P

Bonjour J.P.

Magnifique, je garde l'astuce en stock ça marche au poil! Pour le coup, on peut même ne laisser qu'un seul DoEvents avant le Next dans cet exemple.

Pièce jointe 613650

Mais bon, à l'avenir, je vais essayer de m'abstenir de sendkeyer mes codes... Toutes les aides en lignes parlent d’instabilité, je ne peux qu’acquiescer...!

Merci beau cou!

Pièce jointe 613651