Discussion :

[Daxyj]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[EricDgn]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Daxyj]

Bonjour EricDgn,

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

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!

[jurassic pork]

Hello,

Bonjour EricDgn,

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

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!

avec ce code cela a l'air de fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Daxyj]

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.



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!