Recherche d'un mot

[ZoliveR]

Bonjour à tous! Je ne sais pas comment m'y prendre et ca serait génial un ptit coup de pouce.

J'ai une liste de mots dans chaque celulle, séparé par une virgule. Serait-il possible de faire une recherche dans un tableau non pas sur une cellule mais sur un mot en particulier

Un exemple valant mieux qu'un long discours, voici un bête exemple
( Colonne A - Colonne B)

Fermare - arrêter,interrompre,terminer,faire cesser
Arrivare - arriver,avoir lieu,aboutir,atteindre,parvenir,remporter,intervenir

C'est pour mon apprentissage d'italien et j'aimerais bien pouvoir utiliser ma liste de verbes et de leurs synonymes pour d'autres applications

Et par exemple utiliser un mot en particulier (exemple, si je mets remporter, qu'il m'affiche Arrivare)

 

[ZoliveR]

Re : Recherche d'un mot

Merci à vous pour toutes ces pistes que je vais essayer d'explorer
Perso je vais d'abord explorer la solution de jean-marie (index avec l'astérisque)

Je vous tiendrai au courant mais ce sera pas avant une bonne semaine (avec de la chance mdr)

Pour info c'était simplement parce que je voulais mettre les synonymes (car un mot peut signifier un autre via la traduction mais il y a aussi des synonymes) sur une seule colonne au lieu d'avoir une floppée de colonnes pour les synonymes, et mon but ensuite c'était d'utiliser ces données pour faire un peu de recoupement dans une autre feuille

Je suis pas trop à l'aise avec les macros, mais je vous promets d'explorer vos solutions

 

[Guiv]

Re : Recherche d'un mot

Re,

Suivant les conseils de Brigitte, une nouvelle version avec combobox préremplie.
Bon weekend ,
Guiv

 

[Brigitte]

Re : Recherche d'un mot

Bonjour,

Ouah, de mieux en mieux Guiv. Ca devient bon ! bon bien sûr j'avais oublié les virgules et PAN...

Merci à toi d'écouter mes conseils bizarres et complexes à mettre en oeuvre vu le contexte.

 

[skoobi]

Re : Recherche d'un mot

Bonjour tout le monde,

si je peux me permettre, une petite modification dans le code de Guiv, en utilisant la fonction "Find", plus rapide je pense si la liste final contient (et c'est fort possible) plus de 100 mots:

Private Sub CommandButton1_Click()
[COLOR=Blue][B]Dim Mot As Range[/B][/COLOR]
If ComboBox1 = "" Then
MsgBox "Vous devez saisir un mot à traduire"
Exit Sub
Else
[COLOR=Blue][B]Set Mot = Range([B2], [B2].End(xlDown)).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlPart)
If Not Mot Is Nothing Then
    TextBox2.Value = Mot.Offset(0, -1).Value
Else: MsgBox "Aucune correspondance disponible"
End If[/B][/COLOR]
'Dim i%, j%, k&
'i = Len(ComboBox1.Value)
'
'For j = 1 To 500
'For k = 2 To 100 'Range("A2").End(xlDown).Row
'
'If Mid(Range("B" & k), j, i) = ComboBox1.Value Then
'TextBox2 = Range("A" & k)
'End If
'
'Next k
'Next j
'
'If TextBox2 = "" Then
'MsgBox "Aucune correspondance disponible"
'End If

End If
End Sub

Bon we à vous

 

[Guiv]

Re : Recherche d'un mot

Re bonjour le fil,
Merci Skoobi, je n'ai pas testé, mais c'est sans doute plus efficace.
Par contre, je n'ai pas étudié comment on peut gérer les doublons, je ne suis pas au point sur ce sujet, mais il y a suffisamment de fils pour résoudre le problème je pense.
Cordialement,
Guiv

 

[jp14]

Re : Recherche d'un mot

Bonjour le fil

En reprenant la base de GUIV, ci joint le fichier avec une autre approche.

Le "combobox" affiche la liste des mots français sans liste intermédiaire.

Au niveau de la recherche si on trouve un mot affichage du résultat dans un "TextBox", si on trouve plusieurs mots affichage dans un "combobox" des mots trouvés.

A tester

JP

 

[Guiv]

Re : Recherche d'un mot

Re,
Bravo JP, c'est là que mes compétences de bricoleur trouvent leurs limites!
Pas eu le temps d'éplucher ton code (et pas sûr de tout comprendre), mais ça marche au poil.
J'espère que ZoliveR saura apprécier.
Bonne soirée
Guiv

 

[ZoliveR]

Re : Recherche d'un mot

Oulah tout ca pour moi, c'est vraiment trop aimable
Je n'ai encore rien ouvert mais dans une semaine je vous donnerai de mes nouvelles ici même pour vous mettre mon feedback

Encore merci pour tout le mal que vous vous êtes donné pour moi