Control «Insérer un commentaire» fonctionne mal

[pacoako]

Bonjour à tous!

Je me suis créé un petit menu qui «PopUp» lorsque je right-click sur une feuille Excel.. mon petit problème arrive lorsque je click sur le bouton «Insérer un commentaire».

En temps normal, lorsqu'on click sur le vrai bouton, le commentaire apparait avec notre « nom d'utilisateur :» et nous pouvons inscrire directement une note à l'intérieur...

Cependant, avec mon menu, lorsqu'on click sur le bouton «Insérer un Commentaire» (qui est en fait, le même control, ID # 2031) le commentaire s'ajoute dans la cellule, mais je dois recliquer-droit sur le commentaire et faire «Modifier le Commentaire» si je veux y inscrire quelque chose.. c'est pas grand chose.. mais juste assez gossant 😛

Quelqu'un a une idée pourquoi ça fait ça?!?!?

Merci d'avance!

p.s Le fichier est en pièce jointe!

 

[Pierrot93]

Re : Control «Insérer un commentaire» fonctionne mal

Bonsoir Pakoako

regarde le code ci-dessous si il peut t'aider :

Dim c As Comment
ActiveCell.AddComment
Set c = ActiveCell.Comment
c.Visible = True
c.Shape.Select
Application.OnKey "{F2}"

bonne soirée
@+

 

[pacoako]

Re : Control «Insérer un commentaire» fonctionne mal

Ouais ta technique fonctionne bien si je me créé un sub et je l'exécute avec la fonction OnAction du button...

C'est quand même étrange que le même control ne fasse pas la même action...

Merci beaucoup Pierrot!!

 

[Pierrot93]

Re : Control «Insérer un commentaire» fonctionne mal

Re,

ton contrôle garde sans doute le focus, peut être cela qui empêche, mais je ne vois pas trop ton code de création de commentaire dans ton fichier...

 

[pacoako]

Re : Control «Insérer un commentaire» fonctionne mal

Ouais en fait ta technique fonctionne.. mais on doit masquer le commentaire par la suite... il faudrait trouver la façon de faire exactement comme le bouton Insérer un commentaire.. ça éviterais beaucoup de problème de programmation par la suite...

 

[pacoako]

Re : Control «Insérer un commentaire» fonctionne mal

Re,

ton contrôle garde sans doute le focus, peut être cela qui empêche, mais je ne vois pas trop ton code de création de commentaire dans ton fichier...

Ça c'est le code avec ta technique... sinon tu enlève la partie

                   With myButton
                    .OnAction = "Module.Commentaire"
                    End With

Private Sub PopUpToolbar()

Dim MyPopUp As CommandBar, myButton As CommandBarControl

Set MyPopUp = Application.CommandBars.Add("Calendrier_Popup", msoBarPopup, , True)
With MyPopUp
          .Protection = msoBarNoCustomize
          
                    Set myButton = .Controls.Add(msoControlButton, , , , False)
                    With myButton
                              .Caption = "Couleur de remplissage"
                              .OnAction = "Module.PatternsDialog"
                              .Style = msoButtonIconAndCaption
                              .FaceId = 1691
                    End With
                    Set myButton = .Controls.Add(, 2031, , , False)
                    With myButton
                    .OnAction = "Module.Commentaire"
                    End With
                    Set myButton = .Controls.Add(, 1592, , , False)
                    Set myButton = .Controls.Add(, 1593, , , False)
                    Set myButton = .Controls.Add(, 1594, , , False)
End With

End Sub
Private Sub Commentaire()

Dim c As Comment

If Not ActiveCell.Comment Is Nothing Then Exit Sub
ActiveCell.AddComment
Set c = ActiveCell.Comment
c.Visible = True
c.Shape.Select
c.Visible = False

End Sub

C'est donc carrément le même bouton que Excel nous donne par défaut lorsqu'on clique droit. Le control ID # 2031

 

[pacoako]

Re : Control «Insérer un commentaire» fonctionne mal

Sérieusement je suis bloqué pour l'instant.. alors si quelqu'un a une idée.. ne vous genez surtout PAS!!! =)

 

[Pierrot93]

Re : Control «Insérer un commentaire» fonctionne mal

Re

ta barre d'outils crée invisible, et protégée, bonjour pour tester...

 

[pacoako]

Re : Control «Insérer un commentaire» fonctionne mal

Re

ta barre d'outils crée invisible, et protégée, bonjour pour tester...

Qu'est-ce que tu veux dire? Je ne suis pas certain de te suivre...

Merci en passant de te pencher sur mon problème c'est apprécié!

 

[pacoako]

Re : Control «Insérer un commentaire» fonctionne mal

Ayayaye, j'ai tenté le coup en créant une barre d'outil standard avec les même boutons et je n'ai plus ce problème... C'est probablement une question de focus comme tu dis avec la fonction .showpopup de mon menu..

Bon, je continue d'investiguer...

 

[pacoako]

Re : Control «Insérer un commentaire» fonctionne mal

Bon je crois avoir trouver!!

J'ai modifié le barre d'outils "CELL" étant donné qu'elle ne semble pas apparaître en même temps qu'un menu contextuel que l'on cré et fait apparaître avec un .showpopup avec l'évènement _BeforeRightClick d'une feuille...

Private Sub ModifyPopUpBars()

Dim myButton As CommandBarControl

For Each myButton In Application.CommandBars("CELL").Controls
myButton.Delete
Next myButton

With Application.CommandBars("CELL")
Set myButton = .Controls.Add(msoControlButton, , , , False)
          With myButton
                    .Caption = "Couleur de remplissage"
                    .OnAction = "Module.PatternsDialog"
                    .Style = msoButtonIconAndCaption
                    .FaceId = 1691
          End With
          Set myButton = .Controls.Add(, 2031, , , False)
          If Not ActiveCell.Comment Is Nothing Then
                    Set myButton = .Controls.Add(, 1592, , , False)
                    Set myButton = .Controls.Add(, 1593, , , False)
          End If
                    Set myButton = .Controls.Add(, 1594, , , False)
End With

End Sub

NAS PAS OUBLIÉ D'INSCRIRE CECI DANS LE CODE DE LA FEUILLE

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Application.Run "Module.ModifyPopUpBars"

End Sub