Re: Commentaires sur une liste déroulante (sur mac)
Bonsoir tout le monde
Coucou Celeda, le code VBA Mac est très similaire au vba d'Excel 97, et je n'ai pas de problème.
Sauf que une particularité de l'environnement Mac, l'événement Change n'est pas provoquer par une modification de la valeur par une liste déroulante.
Pour le mac, il faut utiliser un événement de "calculate" de la feuille, pour le provoquer, perso je mets dans une cellule ou un nom nommé une formule
=cellule("adresse"), cette formule retourne la dernière cellule modifiée.
Il faut aussi modifié le code d'Hervé, suivant mes faibles connaissances en VBA,
l'événement Calculate ne retourne pas la cellule modifiée, mais la formule précédemment inscrite va nous être utile, (voir le texte en gras).
Private Sub Worksheet_Calculate()
Dim isect As Range
Dim n As String, commentaire As String
Dim c As Range
Set isect = Application.Intersect(Range(Range("D2")), Range("b4:b11"))
If isect Is Nothing Then
Exit Sub
Else
n = ActiveCell.Value
For Each c In Range("a16:a22")
If c.Value = n Then
commentaire = c.Offset(0, 1).Value
End If
Next c
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=commentaire
End If
End Sub
Je remercie Philibert, de m'avoir permis, de vous expliquer une particularité de la plate-forme Mac.
Si des maîtres VBistes peuvent me dire, si l'utilisation d'un recalcul peut-être limité uniquement à la cellule, je serais content.
@+Jean-Marie