Re : Commentaire changeant en fonction du contenu de la cellule
Tout d'abord, merci pour votre aide rapide, car même si cela avait déjà été fait 100 fois par le passé, comme je le précisais dans mon post initial, je n'avais pas trouvé l'info qui fonctionne pour 97 via le moteur de recherche du site (et étant en intranet sur mon poste de travail, non seulement Google n'est pas non plus vraiment mon ami, mais les temps d'affichage sont aussi démentiellement longs ^^).
Bref... grâce à votre code (merci aussi pour le.xls, le seul à fonctionner sur ma machine ^^
qui fonctionnait aux petits oignons, j'ai commencé à farfouiller Vba pour ajuster le bouzin.
Dans un premier temps, je voulais qu'il ne s'applique qu'à une zone donnée, et j'ai donc modifié le "For Each Cell In". J'ai ensuite fait en sorte que le commentaire se retrouve via une base de données située en feuille 2. Tout cela m'a donné...
Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Cel As Range, Msg$, Tmp$
For Each Cel In [a1:b5]
Msg = ""
With Cel
Tmp = LCase(CStr(.Value))
Select Case Tmp
Case "saucisse": Msg = Sheets("Feuil2").Range("A1")
End If
End Select
On Error Resume Next
.AddComment
On Error GoTo 0
If Msg = "" Then .Comment.Delete Else .Comment.Text Msg
End With
Next
End Sub
Ce qui fonctionne.
Je voudrais maintenant savoir s'il est possible de reprendre la même mise en forme (police, alignement, couleur) dans ma case commentaire que dans le format de cellule de la base de données dont le texte provient, avec en bonus, un réglage automatique de la taille de la fenêtre de commentaire ? Ceci n'est pas indispensable... mais au cas où... ^^
Merci encore tout de même, ne serait-ce que pour les ajouts de ligne de code non demandés ("Case Else If Tmp Like..." par exemple) : ça permet d'apprendre par petites touches et c'est agréable.