Liste déroulante et commentaires

[Arlindorn]

Bonjour,

Je vous présente mon problème. J'ai créé un document où j'ai mis des listes déroulantes. Les éléments de cette liste ont chacun un commentaire qui est une image. Je voulais savoir si il était possible que ces commentaires soient visibles quand on a choisis l'élément dans la liste déroulante?

J'espère que ma demande est claire 🙂 et vous remercie d'avances pour votre aide

 

[Hippolite]

Re : Liste déroulante et commentaires

Bonjour,
Un petit fichier joint en exemple serait bien venu pour être sûr de ne pas répondre à coté

Je voulais savoir si il était possible que ces commentaires soient visibles quand on a choisis l'élément dans la liste déroulante?

explicite, il y a plusieurs façons de comprendre ta demande.
A+

 

[Arlindorn]

Re : Liste déroulante et commentaires

En fait j'ai un plan d'actions et chacune de ces actions a un pilote (le responsable de réalisation de cette action) dans le deuxième onglet j'ai créé mes différents pilotes. Comme cela je n'ai qu'à choisir le pilote et ne pas me tromper. Mais dans la liste de l'onglet 2 ils ont un commentaires qui ont une image et cela ne se reporte pas dans l'onglet si on met un pilote. Y a t'il possibilité que le commentaire soit inclus quand on passe sur le pilote dans le plan d'actions?

 

[Hippolite]

Re : Liste déroulante et commentaires

Re,
A placer dans Feuil1 (Plan d'action)

Dim Drapeau1 As String, Drapeau2 As String

Private Sub Worksheet_Change(ByVal Target As Range)
'Le coller final est interprété comme un changement d'où les deux drapeaux
'qui permettent de ne pas reboucler si Target et sa valeur sont inchangées
  If Drapeau1 = Target.Address And Drapeau2 = Target.Value Then Exit Sub
  If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Drapeau1 = Target.Address
    Drapeau2 = Target.Value
    ThisWorkbook.Names("pilotes").RefersToRange.Find(Target, LookIn:=xlValues).Copy
    Target.PasteSpecial Paste:=xlComments
  End If
End Sub

Je n'ai pas limité à B1:B19 pour être plus souple si ajout de lignes
A+

 

[Arlindorn]

Re : Liste déroulante et commentaires

Je te remercie du grand travail!!!

 

[Hippolite]

Re : Liste déroulante et commentaires

Re,
Tout compte fait, il y a plus simple :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B:B")) Is Nothing Then
    ThisWorkbook.Names("pilotes").RefersToRange.Find(Target, LookIn:=xlValues).Copy
    Application.EnableEvents = False
    Target.PasteSpecial Paste:=xlComments
    Application.EnableEvents = True
  End If
End Sub

A+