afficher le commentaire d'une cellule non selectionnée (VBA)

[michh]

Bonjour le forum,

Etant debutant avec vba, j'aurai une question à vous poser. Est-il possible grâce à vba, de faire comme si on avait selectionné une certaine cellule alors que l'on en a selectionné une autre avec la souris?

Je m'explique mieux. Dans mon fichier, j'aimerai que quand je selectionne une cellule (ex: E11), le commentaire d'une autre cellule s'affiche (E9), d'où l'action de faire comme si cette dernière était selectionnée.

Je n'ai aucune idée du code à utiliser, votre aide serait grandement appréciée!!!

Merci d'avance!

 

[BOISGONTIER]

Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$E$11" Then
      [E9].Copy
       Target.PasteSpecial Paste:=xlPasteComments
    End If
End Sub

JB

 

[DoubleZero]

Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Bonjour à toutes et à tous,

Bienvenue sur XLD, michh !

Une suggestion en pièce jointe.

A bientôt 🙂

P. S. : Bonjour, BOISGONTIER 🙂

 

[michh]

Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Merci pour l'information!! J'ai réussi à faire marcher le code sans soucis.
Parcontre ce n'est pas exactement ce que je recherchais, je n'ai pas précisé dans mon post original que je ne veux pas que le commentaire se copie dans la cellule selectionnée mais s'affiche uniquement.
Ce que j'aimerais c'est soit le commentaire s'affiche dans la cellule E9 quand je selectionne la cellule E11
soit il s'affiche a coté de E11 sans se copier dans E11. Je précise que le commentaire est celui de la cellule E9.
Et il se 'dessaffiche' lorsque je selectionne une autre cellule.
Une telle manip est elle envisageable?
Merci.

 

[michh]

Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Méchiiii 🙂

 

[michh]

Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Bonjour à toutes et à tous,

Bienvenue sur XLD, michh !

Une suggestion en pièce jointe.

A bientôt 🙂

P. S. : Bonjour, BOISGONTIER 🙂

méchiiii 🙂

 

[BOISGONTIER]

Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$E$11" Then
      [E9].Copy
       Target.PasteSpecial Paste:=xlPasteComments
       Application.CutCopyMode = False
    Else
      On Error Resume Next
      [E11].Comment.Delete
    End If
End Sub

jb