Discussion :

[Yoyo06]

Bonjour à tous,

J'ai un nouveau besoin pour lequel je ne trouve rien sur le forum (Je ne suis peut-être aussi pas très doué pour les recherches )

Je voudrais, lorsque la fenêtre du texte est activée (Par exemple lorsqu'on fait défiler les différents champs du formulaire d'envoi d'un nouveau message à l'aide de la touche tabulation), positionner le curseur au début de la troisième ligne.

Quel est l'évènement qui est déclenché lorsque le fenêtre du texte est activée et comment positionner le curseur à l'endroit souhaité ?

Merci d'avance pour votre aide,

Yoyo06

[Oliv-]

Salut,
Peux tu mettre un visuel ?

[Yoyo06]

En fait, je veux qu'en cliquant sur la touche tabulation quand je suis dans la case "A...", au moment où j'arrive dans la zone de texte, je sois à la troisième ligne et non dans mon tableau d'entête (Pour info, le tableau a été rajouté via une macro à l'ouverture du nouveau message)

[Oliv-]

Bonjour,
C'est un peu compliqué car il n'y a pas d'événement renvoyant cela.

par exemple on pourrait se positionner au bon endroit en appelant une macro comme celle-ci

il faut bien lancer la macro à partir de la fenêtre du mail.

le résultat n'est pas toujours OK

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
16
17
18
19
20
21
22
23
24
25
26
        Sub TEST_curseur()
    Dim Item As Object
    Set Item = ActiveInspector.CurrentItem
    result = Item.GetInspector.CommandBars.GetPressedMso("ShowBcc")
    Call ActiveMailWord(Item)
 
 
 
    If result Then
        SendKeys "{TAB}", True
        SendKeys "{TAB}", True
        SendKeys "{TAB}", True
        SendKeys "{TAB}", True
        SendKeys "{DOWN}", True
        SendKeys "{DOWN}", True
    Else
        SendKeys "{TAB}", True
        SendKeys "{TAB}", True
        SendKeys "{TAB}", True
 
        SendKeys "{DOWN}", True
        SendKeys "{DOWN}", True
    End If
 
 
End Sub

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
'====================dans un module standard
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
                                     (ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
                            (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
 
' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10
 
Sub ActiveMailWord(Item As Object)
    Dim hwnd As Long
    Titre = Item.GetInspector.Caption
    hwnd = FindWindow(vbNullString, Titre)
 
    If hwnd = 0 Then Exit Sub
    SetForegroundWindow hwnd
    ShowWindow hwnd, SW_SHOWMAXIMIZED
 
End Sub