Bonjour,


Je dois développer une macro qui effectuera les manipulations suivantes:


1) Repérer un mot-clé ("toto") dans une cellule du classeur A

2) Couper/coller cette cellule dans un nouveau classeur B

3) Revenir au classeur A

4) Repérer la cellule suivante qui contient "toto"

5) Couper/coller la cellule dans le classeur B, en dessous de la cellule qui a été coupée/collée en 2)

6) Ainsi de suite jusqu'à ce qu'il n'y ai plus de cellule qui contienne le mot-clé dans le classeur A.


Que devrais-je utiliser, un Do While, un Do Loop ?


Quel serait la structure de la macro afin d'éviter une "boucle infinie" ?

le code de l'action à répéter en boucle jusqu'à ce qu'il n'y ait plus de cellule avec "toto" dedans est le suivant:

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
 
 
       Workbooks.Add
 
        ChDir "C:\Documents and Settings\ARummens\Desktop\VBA"
        ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\ARummens\Desktop\VBA\Résumé.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
 
        Windows("Fichier Test.xls").Activate
 
 
        Cells.Find(What:="toto", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
 
        Range(ActiveCell, ActiveCell.Offset(15, 0)).Select
        Selection.Cut
        Windows("Résumé.xls").Activate
        ActiveSheet.Paste

merci d'avance !