Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sendkeys"m"...permission refusée...

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais votre aide pour avoir l'explication à ce problème.
J'ai un souci avec ; SendKeys "m" avec un message d'erreur ; permission refusée.

voir fichier...

Merci pour votre aide et pour le temps que vous voudrez bien m'accorder.

Bien amicalement,

Christian.
 

Pièces jointes

Re : Sendkeys"m"...permission refusée...

Bonjour Christian, Bond

Tu peux tester ce code:

Code:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
  If Target.Comment Is Nothing Then
    Target.AddComment
    Target.Comment.Text Text:="-Chambre/Lit :             -Chambre/Lit :              -Chambre/Lit :              -Chambre/Lit :              " & Chr(10)
    lg = Len(Target.Comment.Text)
    With Target.Comment.Shape.TextFrame
      .Characters(Start:=1, Length:=lg).Font.Name = "Verdana"
    End With
    SendKeys "+{F2}"
  Else
    SendKeys "+{F2}"
  End If
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
288
  • Question Question
Microsoft 365 Format de nombres
Réponses
21
Affichages
520
  • Question Question
Microsoft 365 Bloccage Excel
Réponses
1
Affichages
399
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…