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
Partager