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

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

  • Initiateur de la discussion Initiateur de la discussion michh
  • 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 !

michh

XLDnaute Nouveau
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!
 
Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Bonjour,

Code:
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
 

Pièces jointes

Dernière édition:
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.
 
Re : afficher le commentaire d'une cellule non selectionnée (VBA)

Code:
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
 

Pièces jointes

Dernière édition:
- 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
2
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…