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

Esox

XLDnaute Occasionnel
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

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

Bonjour Esox

A tester:

Code:
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

XLDnaute Occasionnel
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

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

Bonjour le forum,

Personne n'aurait d'autres propositions ?
 

Esox

XLDnaute Occasionnel
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,
 

Discussions similaires


Haut Bas