Recherche définition mot

[guy72]

Bonjour,
Actuellement, je suis obligé (car je ne sias pas faire autre chose) de faire un copier-coller de chaque mot dans la cellelule F30,
et de cliquer sur "Start" pour avoir la définition du mot.

Y a-t-il une solution plus rapide ?

Exemple :
1) - 1 clic sur le mot qui le mettrait directement en F30 et ferait démarrer le dico ?
2) - Ou un clic sur le mot qui lancerait directement le dico ?

Merci de votre aide

Guy

 

[Pierrot93]

Re : Recherche définition mot

Bonjour Guy

regarde peut être le code ci-dessous, à placer dans le module de la feuille concernée, se déclenge lorsque tu modifies le contenu d'une cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Target.CheckSpelling SpellLang:=1036
End Sub

bonne journée
@+

 

[guy72]

Re : Recherche définition mot

Bonjour,
Désolé, il ne se passe rien.

 

[Pierrot93]

Re : Recherche définition mot

Re,

c'est qu'il n'a pas détecté d'erreur ???

 

[Pierrot93]

Re : Recherche définition mot

Re,

Aarf, autant pour moi, modifie ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then Target.CheckSpelling SpellLang:=1036
End Sub

@+

 

[guy72]

Re : Recherche définition mot

Ç'est pas ça que je souhaite.
Je souhaite avoir la même chose comme si je cliquais sur "Sart", mais en plus simple.
Fais un essai:
Copier un mot de la colonne "C" et coller en F30 et clic sur "Sart"

 

[Pierrot93]

Re : Recherche définition mot

Re,

regarde le fichier joint, mais non testé problème d'accès chez moi...

 

[guy72]

Re : Recherche définition mot

Ça ne fonctionne pas

 

[Pierrot93]

Re : Recherche définition mot

Re,

Perso, pas d'autre idée....

 

[JCGL]

Re : Recherche définition mot

Bonjour à tous,
Salut Pierrot,

Peux-tu essayer en rajoutant dans le module de lafeuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Copy Range("F30")
End Sub

A+ à tous

 

[guy72]

Re : Recherche définition mot

La Solution avec 1seul clic :

Dans la feuille "Listes" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Z$ = Target.Value
If Z <> "" Then Definition_Guy Z
End If
End Sub

Dans le module :

Sub Definition_Guy(mot$)
ShellExecute 0, vbNullString, _
"http://www.mediadico.com/dictionnaire/lecture.asp/definition/" _
& mot & "/parle", vbNullString, "C:\", 6
End Sub