Bonjour,

J'ai un problème avec SendKeys...
J'ai un USF avec un bouton, en cliquant sur le bouton, des champs se remplisent dans ma feuille excel. À la fin du code du bouton, j'apelle une function dans un module qui utilise sendKeys pour valider les données (F2 et enter) pour que le format s'actualise.

Voici mon code et j'explique ce qui se passe par la suite.

Dans mon bouton à la fin
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
    'Appelle la procédure qui met en édition et fait Enter sur la valeur sur la feuille
    F2Enter (gligne)
Dans un module
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
Public Sub F2Enter(gligne As Double)
    On Error GoTo errF2Enter
    Dim iCol As Integer
    Dim sh As Worksheet
    Set sh = Worksheets("DFSreport")
    For iCol = 1 To iColInitialAmount
        sh.Cells(gligne, iCol).Select
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next iCol
exit_errF2Enter:
    Exit Sub
errF2Enter:
    MsgBox Err.Description
    Resume exit_errF2Enter
End Sub
Alors, tout se passe bien, chaque cellule voule se sélectionne bien mais le SendKeys ne se fait pas...

J'ai testé avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub aTest()
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
End Sub
Dans un nouveau module et la cellule sélectionnée reçoit bien le F2 et enter.

Est-ce que vous pouvez me dire pourquoi dans mon sub le SendKeys ne se produit pas?

Un gros merci!

P.S. J'ai essayé avec des DoEvents avant et après les SendKeys et ça ne change rien. Merci