Besoin d'un test d'arrêt du While efficace!!!

Besoin d'un test d'arrêt du While efficace!!! - VB/VBA/VBS - Programmation

Marsh Posté le 09-08-2006 à 11:58:53    

Mon bug du find réglé, j'ai un nouveau problème...
Je veux remplacer des mots par des chiffres (jamais les mêmes) et pour cela je fais une boucle While..et j'ai rien trouvé de bien comme test d'arrêt!!
While i <> ActiveDocument.Words.Count n'est pas efficace car il y a trop de mots ds mon document.Il faudrait un truc du genre While (!EOF) ms ça n'existe pas en VB.
Vous avez une idée?

Reply

Marsh Posté le 09-08-2006 à 11:58:53   

Reply

Marsh Posté le 09-08-2006 à 13:29:05    

tu peux pas faire une boucle et t'arreter quand tu trouves une case vide ?

Reply

Marsh Posté le 09-08-2006 à 13:33:54    

Voir mon post tardif sur le FindReplace cela devrait t'inspirer

Reply

Marsh Posté le 09-08-2006 à 14:00:25    

ok merci kiki29!
Gilloz j'ai oublié de le préciser, ms je travaille sur un fichier Word...merci qd même!

Reply

Marsh Posté le 09-08-2006 à 14:33:51    

ah okay lol

Reply

Marsh Posté le 09-08-2006 à 15:03:31    

J'ai pas bien saisie mais pourquoi n'utilises-tu pas une boucle qui par de a=1 jusqu'à " z = Workbooks(fileName2).Sheets(sheetName).UsedRange.Rows.Count"? Je sais pas si dans word c'est pareil mais tu dois avoir une fonction pour trouver le nombre de ligne que tu as dans ton fichier.
 
Pour sortir de la boucle, tu n'as plus qu'à faire a = z après une garde et la boucle fini d'elle même.

Reply

Marsh Posté le 09-08-2006 à 16:41:30    

Voir ton code modifié dans "Probleme avec .Find"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed