cree commande vba

[eric.belloc]

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

 

[phlaurent55]

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

    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
à+

 

[ninbihan]

Re : cree commande vba

Bonjour Eric et PhLaurent55,

Un autre essai:

Private Sub CommandButton1_Click()
ActiveCell.Select
SendKeys "+{F2}"
End Sub

Bonne fin d'aprés midi,

Ninbihan

 

[eric.belloc]

Re : cree commande vba

apparament cela ne declenche pas la commande maj+f2 (insertion commentair)
dur dur le vbe excel !!!!!!!!!

 

[phlaurent55]

Re : cree commande vba

re,
mais ça ne déclencheras pas la commande maj+F2, ça la remplacera

 

[eric.belloc]

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

 

[phlaurent55]

Re : cree commande vba

re, eric

quelle formule puije donc mettre pour que lorsque

je pense que tu ne trouveras pas de formule mais plutôt une/des instruction(s)
mais là je sèche

 

[eric.belloc]

Re : cree commande vba

voici mon probleme su la piece jointe

 

[eric.belloc]

Re : cree commande vba

desoler voici la capture de mon probleme

 

[wilfried_42]

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

 

[jeanpierre]

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

 

[eric.belloc]

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

 

[wilfried_42]

Re : cree commande vba

re:

tu as oublié la ligne 1

rajouté en rouge

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

Private Sub CommandButton17_Click()
dim cc as comment
Message = InputBox("Commentaire : ")
cc = ActiveCell.AddComment
cc.Text Message
End Sub

 

[eric.belloc]

Re : cree commande vba

voici mon probleme si par miracle vous trouver ma solution je vous en remercie (en cliquant sur une cellule avec le boutton droit de la souri je souhaiterai pouvoir ajouter un commentair) a celle ci

 

[wilfried_42]

Re : cree commande vba

re:

Voici ta macro

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