VBA-E Recherche des différents noms dans mon tableau excel
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:
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 |
