Liste de définitions cliquable

D

david84

XLDnaute Barbatruc

• 17 Mars 2012

• #2

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Mars 2012

• #3

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+

 

Vote positif 0 Vote négatif

C

Chataigne

Guest

• 17 Mars 2012

• #4

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é?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2012

• #5

Re : Liste de définitions cliquable

Bonjour Chataigne, le fil,

Chataigne à dit:

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é?

Cliquez pour agrandir...

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

Code:

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+

 

Pièces jointes

• essai(3).xls

  44.5 KB · Affichages: 41
• essai(3).xls

  44.5 KB · Affichages: 49
• essai(3).xls

  44.5 KB · Affichages: 41

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2012

• #6

Re : Liste de définitions cliquable

Re,

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

Code:

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+

 

Pièces jointes

• essai(4).xls

  45 KB · Affichages: 49

Vote positif 0 Vote négatif

C

Chataigne

Guest

• 19 Mars 2012

• #7

Re : Liste de définitions cliquable

ok, Merci beaucoup 🙂

 

Vote positif 0 Vote négatif