M
Mimi
Guest
Bonjour à tous, j'ai téléchargé ici même un tuto nommé 'LeCoffretdesListes2'.
Ca tombe pil poil sur ce que je recherche a faire, à savoir une liste dans une cellule.
Mais je n'y arrive pas.
Il y a une macro qui me semble être la bonne:
Mais ca ne fait absolument rien sur ma page.
Un de vous peut-il me donner la ligne de code a mettre et ou svp ?
Merci d'avance.
Ca tombe pil poil sur ce que je recherche a faire, à savoir une liste dans une cellule.
Mais je n'y arrive pas.
Il y a une macro qui me semble être la bonne:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Dim n As String, commentaire As String
Dim c As Range
Set isect = Application.Intersect(Target, Range('G8:G15'))
If isect Is Nothing Then
Exit Sub
Else
n = ActiveCell.Value
For Each c In Range('F20:F26')
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
Un de vous peut-il me donner la ligne de code a mettre et ou svp ?
Merci d'avance.