liste déroulante : SendKeys "%{down}" qui ne fonctionne pas

orson17

XLDnaute Nouveau
Bonjour, je viens vers vous pour essayer de résoudre une difficulté sur laquelle je butte: dans une feuille de calcul intitulée achat j'ai dans certaines cellules des listes de validation qui sous window xp s'ouvrent à l'activation de la cellule via un script en vba mais pas sous vista pour le même classeur avec excel 2000 small buisness dans les deux cas. Voici le script qui permet d'ouvrir la liste en un seul mouvement sur la cellule:

'déroule la liste à l'entrée sur la cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vFormule As Variant
On Error Resume Next
vFormule = Target.Validation.Formula1
If vFormule <> "" Then
SendKeys "%{down}"
End If
End Sub
Ceci me permet de saisir plus vite les factures avec seulement la touche entrée et les touches fléchées.
Je ne sais pas où ça coince?? Si certains d'entre vous peuvent m'aider merci
 

Statistiques des forums

Discussions
312 472
Messages
2 088 714
Membres
103 932
dernier inscrit
clotilde26