Liste de définitions cliquable

[Chataigne]

Bonjour,

Je cherche à faire une liste cliquable avec à coté, dans une autre cellule la définition (du mot sur lequel on a cliqué) qui s'affiche

Est-ce possible?
Merci

 

[david84]

Re : Liste de définitions cliquable

Bonjour,
si tu as dans ton fichier un tableau de correspondance avec dans une cellule le mot et dans la cellule d'à côté sa définition, l'utilisation de RECHERCHEV ou de INDEX+EQUIV devrait faire l'affaire.
A+

 

[job75]

Re : Liste de définitions cliquable

Bonsoir Chataigne, salut David 🙂

Regardez ce fil de tout à l'heure :

https://www.excel-downloads.com/threads/macro-pour-rechercher-et-afficher-un-commentaire.179728/

Il vous suffit de remplacer les N° par les textes de votre liste et les "commentaires" par leurs définitions.

A+

 

[Chataigne]

Re : Liste de définitions cliquable

Merci à tous les deux pour votre aide 🙂
Je sais que c'est du chipotage mais est ce que c'est possible plus d'afficher la definition dans une cellule, et non en commentaire du texte cliqué?

 

[job75]

Re : Liste de définitions cliquable

Bonjour Chataigne, le fil,

Je sais que c'est du chipotage mais est ce que c'est possible plus d'afficher la definition dans une cellule, et non en commentaire du texte cliqué?

A partir du fil mentionné, vous pouviez obtenir facilement cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B2:B65536].ClearContents 'facultatif...
If Intersect(ActiveCell, [A2:A65536]) Is Nothing Or ActiveCell = "" Then Exit Sub
Dim m As String
On Error Resume Next
m = Application.VLookup(ActiveCell, Sheets("Définitions").[A:B], 2, 0)
If m = "" Then m = "Pas de définition"
ActiveCell.Offset(, 1) = m
End Sub

Fichier joint.

A+

 

[job75]

Re : Liste de définitions cliquable

Re,

Autre solution avec une liste de validation en A2, c'est plus classique :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Dim m As String
On Error Resume Next
m = Application.VLookup(ActiveCell, [Liste].Resize(, 2), 2, 0)
If m = "" Then m = "Pas de définition"
[B2] = m
End Sub

Fichier (4).

A+

 

[Chataigne]

Re : Liste de définitions cliquable

ok, Merci beaucoup 🙂