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

cree commande vba

  • Initiateur de la discussion Initiateur de la discussion eric.belloc
  • Date de début Date de début

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 !

E

eric.belloc

Guest
bonjour a tous
je souhaiterais cree une commande dans VBA userforme qui declencherais le raccouci shilt F2 (insertion commentaire)


Private Sub CommandButton17_Click()
Const vbKeyShiftF2 = 16 😕
End Sub
 
Re : cree commande vba

Salut Eric
bonjour a tous
je souhaiterais cree une commande dans VBA userforme qui declencherais le raccouci shilt F2 (insertion commentaire)


Private Sub CommandButton17_Click()
Const vbKeyShiftF2 = 16 😕
End Sub

Supprime ce qui est en rouge et remplace par
Code:
    Range("A1").AddComment
    Range("A1").Comment.Visible = True
    Range("A1").Comment.Text Text:=" [COLOR="Blue"]ton commentaire[/COLOR] "


remq: tu peux faire passer ton commentaire par variable et remplacer "A1" par la cellule de destination
à+
 
Re : cree commande vba

quelle formule puije donc mettre pour que lorsque j'apuis sur le boutton userform que j'ai cree ,cela me permet inserer un commentair a la cellule sans avoir a passer par la barre insertion commentair ??

mercie
 
Re : cree commande vba

Bonjour à tous

Voici 4 lignes

En debut de macro
Dim cc as comment

quand tu veux inserrer un commentaire exemple en cellule A1

Message = inputbox("Commentaire : ")
cc = Activecell.AddComment
cc.Text message
 
Re : cree commande vba

Re,

Belle la photo, mais en excel on ne peut rien faire....

Pour rigoler, vois du côté de PhotoShop....

Non, et plus sérieusement, déposes nous un fichier XLS, (ZIPPE) moins de 48.8 Ko
 
Re : cree commande vba

voici la commande que je vient de taper mais apparament ca bug

Private Sub CommandButton17_Click()
Message = InputBox("Commentaire : ")
cc = ActiveCell.AddComment
cc.Text Message
End Sub
 
Re : cree commande vba

re:

Voici ta macro

Code:
Private Sub CommandButton17_Click()
Dim cc As Comment
Message = InputBox("Commentaire : ")
If Message = "" Then Exit Sub
ActiveCell.ClearComments ' il est possible qu'il y ait deja un commentaire
Set cc = ActiveCell.AddComment
cc.Text Message
End Sub

elle fonctionne, mais fait attention, tu as des cellules de verouillées et ta feuille est protégée,pas d'ajout de commentaire possible
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
838
Réponses
5
Affichages
573
  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
659
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…