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 '************************************ 'attention...il faut que la cellule contienne déjà un commentaire
OptionExplicit ' 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... PrivateSub Worksheet_SelectionChange(ByVal Target As Range) Dim Question AsString '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 = "" ThenExitSub ' 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 EndWith EndIf EndSub
Date de création : 24/05/2005 - 19:20
Dernière modification : 25/05/2005 - 21:13
Catégorie : Commentaires Page lue 3451 fois