VBA Application.Sendkeys

job75

XLDnaute Barbatruc

• 16 Avril 2014

• #2

Re : VBA Application.Sendkeys

Bonsoir Amilo,

Hors sujet mais pour ne pas avoir de problème :

Code:

Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = "c'est la fête"
End Sub

A+

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 16 Avril 2014

• #3

Re : VBA Application.Sendkeys

Bonsoir job75,

Merci pour cette solution, cela permet effectivement de contourner très simplement le problème pour un même résultat,

Mais pour mon code, c'était plutôt par curiosité et sans grande importance

Merci à vous

Bonne nuit

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Avril 2014

• #4

Re : VBA Application.Sendkeys

Bonjour Amilo, job75,

Donc pour le fun, voir le fichier. Pour l'accent, j'ai fait choux blanc.

 

Pièces jointes

• Amilo - Test Senkeys v1.xlsm

  23.8 KB · Affichages: 71

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Avril 2014

• #5

Re : VBA Application.Sendkeys

Bonjour Amilo, job75,


rem: pour le cancel, on remarquera que ce n'est pas un paramètre de la procédure Worksheet_SelectionChange (ByVal Target As Range). D’ailleurs en utilisant l'option "Option Explicit" en tête de module (option que j'ai définie par défaut), le compilateur le signale.

 

Dernière édition: 17 Avril 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2014

• #6

Re : VBA Application.Sendkeys

Bonjour Amilo, mapomme,

Il faut savoir que certains caractères (comme ^ ou les parenthèses) ne sont pas transmis par SendKeys.

Par ailleurs pour sortir du mode édition utiliser ^~ c'est à dire Ctrl+Entrée :

Code:

Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.SendKeys ("(c'est la f^ete)^~")
End Sub

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2014

• #7

Re : VBA Application.Sendkeys

Re,

Ah mais si on peut transmettre ^ en le mettant entre crochets :

Code:

Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.SendKeys ("(c'est la f{^}ete)^~")
End Sub

A+

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 17 Avril 2014

• #8

Re : VBA Application.Sendkeys

Bonsoir le forum, mapomme, job75,

Désolé pour le retard mais je tenais à vous remercier pour vos réponses,

Mapomme, merci pour les autres possibilités de la méthode Sendkeys, c'est toujours bon à savoir,

job75, en effet votre code fonctionne et ça répond très bien à ma question, en tout cas drôle de façon de faire,

Merci encore à vous pour vos réponses

Bonne soirée

 

Vote positif 0 Vote négatif