Discussion :

[RéviAT]

Bonne après-midi à chacun,
Pour un programme qui travaille sur des textes, j’ai besoin d’utiliser un dictionnaire de plus de 20000 mots ainsi constitué : en colonne A, il y a la liste classée des mots et en colonne B, se trouve leurs définitions.
Pour interroger le dictionnaire j’ai besoin d’une fonction qui, si on lui donne un mot, réponde le numéro de ligne.

Voici la fonction élémentaire que j’ai faite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function NuméroLigne(Mot) As Long
Dim i As Long, lD As Long, lF As Long
lD = 2
lF = Range("A65536").End(xlUp).Row
For i = lD To lF
    If Cells(i, 1).Formula = Mot Then GoTo Trouvé
Next
NuméroLigne = 0
Exit Function
Trouvé:
NuméroLigne = i
End Function

Cette fonction est fonctionne très bien, mais elle est très lente et elle ralentit beaucoup le programme. J’ai aussi essayé de faire une fonction avec Find, mais elle n’a pas fonctionné parce qu’elle s’arrête sur les portions de mots. Par exemple si je cherche le mot « ton », elle s’arrête sur « bâton ».

Voici donc ma question (qui doit être très classique, car je ne suis pas le premier à chercher un mot dans un dictionnaire) :
« Est-ce qu’il existe une fonction qui renvoie le numéro de la ligne d’un mot donné se trouvant dans une colonne classée de mots ? »

Merci par avance.
RéviAT

[neupont]

Oui, Find est certainement beaucoup plus rapide, tu peux utiliser l'option "Totalité du contenu de la cellule" pour éviter l'inconvénient dont tu parles, ce qui se traduit par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Cells.Find(What:="mot recherché", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

[fring]

Bonjour,

Réessaye avec la fonction Find mais tu ajoutes la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LookAt:=xlWhole

Ce qui donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Find(What:=mot, LookAt:=xlWhole)

[RéviAT]

Merci "neupont" pour cette réponse qui résoud mon problème avec Find.
Par contre je me demande s'il n'y a pas une fonction qui utiliserait le fait que la colonne des mots est classée pour optimiser la recherche (Find fonctionne aussi bien que la colonne soit classée ou non).
A a-t-il mieux que Find ?
RéviAT (déjà très content de cette première réponse)

[Gorfael]

Salut RéviAT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function NuméroLigne(Mot As String) As Long
Dim Cel As Range
Application.Volatile
Set Cel = Range([A1], [A65536].End(xlUp)).Find(Mot, LookIn:=xlValues, LookAt:=xlWhole)
If Cel Is Nothing Then
    NuméroLigne = 0
Else
    NuméroLigne = Cel.Row
End If
End Function

Volaile => réactualise la formule ) chaque calcul de la feuille
Pas forcément n'écessaire, puisque c'est à travers une macro, mais tu peux l'employer dans une cellule
C1 : =NuméroLigne(D1)
tu mets ton mot en D1 et C1 te donne la ligne
A+
Edit à vouloir faire vite... j'avais oublié que si la valeur est en A2 il ne la trouvait pas => donc, on démarre de A1

[RéviAT]

Merci pour les quatre réponses convergeantes. je vais donc utiliser la fonction Find.
J'ai vu dans vos réponses que votre âge apparaît. Comment faut-il faire pour qu'il en soit ainsi ?
J'ai 58 ans ... plus trop jeune pour faire du VBA.
A bientôt et merci encore.
RéviAT