veriti site des amis d'excel

Cette macro évènementielle active une cellule précise...pour l'exemple il s'agit de la cellule C3...ensuite le texte saisi s'insère dans le commentaire de la cellule...

partie à coller dans un module de feuille

 
Option Explicit
' Vériland Octobre 2003
' l'action de cette macro se déclenche grâce à cette macro évènementielle...
' ...au moment du clique de souris sur une cellule...

' attention...il faut que la cellule contienne déjà un commentaire
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Question As String
    'précisément dans la cellule C3...
    If ActiveCell.Address() = "$­C$­3" Then
        Question = InputBox("Inscrivez votre commentaire", "MESSAGE")
        ' si je clique sur "Annuler" ou s'il n'y a aucun commentaire on quitte cette procédure...
        If Question = "" Then Exit Sub
        ' par contre si la boite InputBox contient un message ou une valeur autre que ""
        ' après avoir cliqué sur , on continue la boucle dans la cellule active...
        With ActiveCell
            .Comment.Text Text:="Voici votre dernier message :" & Chr(10) & Chr(10) & Question
        End With
    End If
End Sub