problème : exécution différente de la macro selon le mode de lancement

[Esox]

Bonjour le forum,

voici ma macro :

Sub commentaire()
Set C = ActiveCell

If C.Comment Is Nothing Then
With C
.AddComment ' Création commentaire
.Comment.Shape.Width = 241.5
.Comment.Shape.Height = 99.75
End With
SendKeys "%im"
SendKeys "Auteur: " & Application.UserName & " le " & CStr(Date) & " à " & CStr(Time) & Chr(10) & Chr(10)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Cancel = True
End If
End Sub

elle fonctionne parfaitement si elle est affectée à un bouton, par contre si je l'affecte à une touche de raccourci, ca ne va pas comme je veux et cela m'ouvre une fenetre "atteindre", etc...
auriez vous une solution à me proposer pour qu'elle fonctionne sur une touche de raccourci ?
merci à vous

 

[pierrejean]

Re : problème : exécution différente de la macro selon le mode de lancement

Bonjour Esox

A tester:

Sub commentaire()
Set C = ActiveCell
If C.Comment Is Nothing Then
With C
.AddComment ' Création commentaire
.Comment.Shape.Width = 241.5
.Comment.Shape.Height = 99.75
.Comment.Text Text:="Auteur: " & Application.UserName & " le " & CStr(Date) & " à " & CStr(Time) & Chr(10) & Chr(10)
End With
SendKeys "%im"
'SendKeys "Auteur: " & Application.UserName & " le " & CStr(Date) & " à " & CStr(Time) & Chr(10) & Chr(10)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Cancel = True
End If
End Sub

 

[Esox]

Re : problème : exécution différente de la macro selon le mode de lancement

Bonjour PierreJean,

Le raccourci fonctionne je n'ai plus cette fenetre, mais la possibilité d'intervenir directement dans le commentaire m'est retirée alors qu'en l'affectant à un bouton cela fonctionne...
J'ai beau tourner ca dans tous les sens je ne trouve pas...
Merci encore...

 

[Esox]

Re : problème : exécution différente de la macro selon le mode de lancement

Bonjour le forum,

Personne n'aurait d'autres propositions ?

 

[Dull]

Re : problème : exécution différente de la macro selon le mode de lancement

Salut Esox, Pierre, le Forum

Bonjour le forum,
Personne n'aurait d'autres propositions ?

Si Ici

Bonne Journée

 

[Esox]

Re : problème : exécution différente de la macro selon le mode de lancement

Bonjour Dull,

Oui pour un clic gauche ou droit, mais pour un ctrl+n'importe quelle touche cela ne fonctionne pas. A la rigueur si je pouvais l'affecter au clicmilieu se serait le top, mais par défaut sur une touche raccourci, et là quand je le fais, le résultat soit est une nouvelle fenetre "atteindre" ou bien avec la proposition à Pierre, je n'ai plus cette fenetre mais cela me retire la possibilité d'intervenir directement en écriture dans le commentaire.

Merci,