Faire apparaître des commentaires dans une liste déroulante

Fermé
JPF33580 Messages postés 4 Date d'inscription mercredi 2 janvier 2013 Statut Membre Dernière intervention 7 janvier 2013 - 2 janv. 2013 à 19:05
JPF33580 Messages postés 4 Date d'inscription mercredi 2 janvier 2013 Statut Membre Dernière intervention 7 janvier 2013 - 6 janv. 2013 à 14:04
Bonjour, BONNE ANNEE A TOUS

EXCEL 2007:

1) Dans un onglet j'ai crée une liste "appelé" TEST avec 10 cellules. J'ai ensuite ajouté à chacune de ces cellules un commentaire.

2) Dans un autre onglet j'ai utilisé la liste "TEST" (outil de données, validation de données, liste etc....)

Mon pb: je ne vois pas mes commentaires apparaître après avoir choisi une valeur dans cette liste

Est ce possible (de préférence simlpement ! ) ?

d'avance merci à tous


2 réponses

cousinhub29 Messages postés 985 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 9 janvier 2025 349
2 janv. 2013 à 19:28
Bonsoir,

Simplement, tout dépend ce que tu entends par là...
Il te faudra passer par un code VBA (ou macro)

Tu fais un clic droit sur le nom de l'onglet, "Visualiser le code", et tu colles ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CelRef As Range
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then  'Tu adaptes l'adresse de la cellule
    On Error Resume Next
    Target.Comment.Delete
    On Error GoTo 0
        If Target <> "" Then
            Set CelRef = Sheets("Feuil1").Range("Test").Find(Target)
                         'Tu adaptes le nom de l'onglet qui contient ta liste
            Target.AddComment
            With Target.Comment
                .Text Text:=CelRef.Comment.Text
                .Shape.Width = CelRef.Comment.Shape.Width
                .Shape.Height = CelRef.Comment.Shape.Height
            End With
        End If
End If
End Sub


Bon courage
0
JPF33580 Messages postés 4 Date d'inscription mercredi 2 janvier 2013 Statut Membre Dernière intervention 7 janvier 2013
6 janv. 2013 à 14:04
Bonjour

Cela n'a pas fonctionné ! ! ! peut être ai je fait une erreur dans l'adresse de la cellule
0