Problème avec SendKeys

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:

---

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:

---

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:

---

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

Bonjour,

Au lieu de sendkey pourquoi pas :

Code:

---

1 2 3 4

Application.Calculate ' ou ActiveSheet.Calculate

---

Bonjour,

C'est les deux premières choses que j'ai testé mais ça ne fonctionne pas...
merci!

Citation:

---

C'est les deux premières choses que j'ai testé mais ça ne fonctionne pas

---

Il me semble que ça marchait pourtant.

Bon peut être une autre piste, la sauvegarde du fichier en cours de macro ?

Merci mais ça ne fonctionne toujours pas.

Ce que je comprends pas c'est que lorsque j'utilise ma macro

Code:

---

1 2 3 4 5 6 7

Sub ActualiserCellule()   SendKeys "{F2}", True SendKeys "{ENTER}", True   DoEvents End Sub

---

ça fonctionne, mais quand c'est une macro qui apelle cette macro ça ne fonctionne pas... :calim2:

si tu veux utiliser le sendkey ici, a mon avis tu dois mettre un timer, car le programme est alors dans une boucle et les send n'ont pas le temps de se faire

directement tiré de l'aide en ligne, j'ai du faire un wait de 5 secondes, il n'y a pas très longtemps :

Code:

---

1 2 3 4 5

newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 5 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime

---

Testé mais ne fonctionne toujours pas...

Pourtant, le DoEvents devrait faire l'affaire, non?

Re,

Je viens de faire le test suivant chez moi et il fonctionne :

Code:

---

1 2 3 4 5 6 7

Sub testx() For i = 1 To 11 Cells(i, 4).Select SendKeys "{F2}", True SendKeys "{ENTER}", True Next i End Sub

---

Tu es bien sur la feuille excel quand tu lances la macro et les cellules selectionnées sont bien celles que tu veux ?

Ok, ça fonctionne pour moi aussi,

Mais quand je l'apelle par ma sub ça ne fonctionne pas...

Salut à tous,
Pour une fois j'ai fait le Refresh à temps et Aalex m'enlève les mots de la bouche enfin des doigts...
Est-ce que le Sendkey ne se fait pas sur ton Userform?

Bonjour,

C'est bien possible, pour contrer le problème, j'ai fait le code directement dans le bouton qui apelle le USF une fois qu'il est fermé.

Merci de vos pistes!

bonjour à tous, alors Fvandermeulen a vu juste :ccool: