Commentaire liste déroulante

Fermé
mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 - 10 juil. 2017 à 15:12
mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 - 10 juil. 2017 à 20:49
Bonjour,

Voilà mon souci. J'ai une liste déroulante colonne A1 à a16, feuille1 qui fait référence à une colonne A1 à a16 d'une feuille nommé VAR. Toutes les cellules de la feuille VAR ont chacune un commentaire différent. Je souhaiterai que lorsque je survole la liste déroulante de la feuille 1, les commentaires apparaissent pour vérifier les divers intitulés de ma liste déroulante avant de les incorporer à mon tableau.
Suis-je clair
Merci à chacunes et chacun pour votre aide

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
10 juil. 2017 à 17:02
Bonjour,

Ne vois pas trop l'intérêt d'ajouter un commentaire dans chaque cellule, sachant qu'il suffit d'ouvrir la liste déroulante pour voir ce qu'elle contient et qu'on n'est pas obligé de choisir un item dans cette liste !

Mais enfin ...
voila un exemple (avec une macro qui met à jour les commentaires si la liste change) :
https://mon-partage.fr/f/8IjJkfui/
0
mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 38
10 juil. 2017 à 19:24
merci Patrice33740 pour avoir de ton temps pour me répondre. j'essai de mettre la macro en forme pour mon fichier, mais j'ai un peu de mal. pourrais-tu m'expliciter à quelle feuille corresponde les celules A1:A21. car pour mon fichier,
-ma liste déroulante est en feuille 1 et fait référence à des valeurs qui sont en feuilles2 a1:a21
-enfin les commentaires que je voudrais faire apparaitre quand je survol ma liste déroulante se trouve en feuille2 e1:e21
Compliqué n'est ce pas. ne te prend pas la tête comme moi je le fais depuis 3 heures cet après midi. merci
Cdlt
If Intersect(Target, [a1:a21]) Is Nothing Then Exit Sub
t = Join(Application.Transpose(Range("a1:a21").Value), vbCrLf)
Set r = Worksheets("Feuil1").Range("a1:a21")
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 10 juil. 2017 à 19:54
Re,

Dans le code de la feuille 2 :
If Intersect(Target, [a1:a21]) Is Nothing Then Exit Sub
t = Join(Application.Transpose(Range("a1:a21").Value), vbCrLf)
Set r = Worksheets("Feuil1").Range("a1:a21")
ligne 1, en absence de précision, la plage [a1:a21] est dans la feuille 2,
ligne 2, en absence de précision, la plage Range("a1:a21") est dans la feuille 2,
ligne 3, comme précisé, c'est la plage a1:a21 de la feuille 1,
0
mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 38 > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
10 juil. 2017 à 20:49
merci Patrice, c'est plus claire pour moi.
Cordialement
0