Salut,

Je n'arrive pas à me sortir d'un problème algorithmique.
Mon programme ne se termine jamais

En fait le truc est tout simple mais pourtant si dur à résoudre.
J'ai liste dans laquelle j'inscrit des mots
Exemple : toto
tata

Puis un fichier Excel avec plusieurs cellules contenant ces valeurs.
Je veux resortir toutes les cellules qui contiennent ces valeurs
Pour cela j'utilise la méthode find mais celui-ci ne sort jamais de ma boucle.
Je ne vois pas comment faire.

Voici un bout de mon programme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim i as integer
i = 1
 
nom= Range("A" & i).Value
While (nom <> "")
 
    'Je recherche les cellules ou se trouve ce nom    
    Set Plage = Range("C" & i & ":C65525").Find(nom)
 
    While (Not Plage Is Nothing)
        'Je récupère le numéro de ligne du nom
        ligne = Plage.Row
        Range ("B" & i).value = ligne
        Set Plage = Range("C" & ligne & ":C65525").Find(nom)
 
    Wend
 
    'J'incrémente la variable i
    i = i + 1
 
    'Je passe au nom suivant
    nom = Range("A" & i).Value
Wend