Faire apparaître des commentaires dans une liste déroulante
JPF33580
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
JPF33580 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
JPF33580 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Faire apparaître des commentaires dans une liste déroulante
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Apparaitre hors ligne instagram - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
- Comment faire apparaître le clavier sur une tablette - Guide
2 réponses
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 :
Bon courage
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