VBA Application.Sendkeys

[Amilo]

Bonsoir le forum,

Dans mon code de test ci-dessous, bien que le texte "c'est la fête" soit entre guillemets
le résultat obtenu dans les cellules cliquées est : c'est la fte

Pourquoi le ê est supprimé du résultat ?

Autre problème, malgré le Cancel = True, la dernière cellule cliquée reste active (le pointeur reste actif à l'intérieur de la cellule.

Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.SendKeys ("c'est la fête")
Cancel = True
End Sub

Merci d'avance pour votre aide

Cordialement

 

[job75]

Re : VBA Application.Sendkeys

Bonsoir Amilo,

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

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

A+

 

[Amilo]

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

 

[mapomme]

Re : VBA Application.Sendkeys

Bonjour Amilo, job75,

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

 

[mapomme]

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.

 

[job75]

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 :

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

A+

 

[job75]

Re : VBA Application.Sendkeys

Re,

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

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

A+

 

[Amilo]

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