Bonjour,

J'essaye en vain de faire une macro pour copier coller des lignes d'une feuille à une autre sous condition (au passage je suis novice dans les macros...).
Voici le code :
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
24
25
26
27
28
Sub CopierColler()
    Dim wsSource As Range
    Dim wsCible As Range
    Dim dl As Long
    Dim tmpLigne As Long
    Dim i As Long
 
    Set wsSource = Worksheets("Facturesencours").Range("a6:h6")
    tmpLigne = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
 
    'On récupère la dernière ligne remplie dans un objet range
    dl = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Set wsCible = Worksheets("Facturesok").Range("a" & dl, "h" & dl)
 
    i = 1
    'Pour chaque ligne du fichier source
    Do 'i = 1 To derniereLigne
        'Si la colonne H contient "ok" --> deplacer vers Facturesok
        If wsSource.Cells(i, "H").Value = "ok" Then
            wsCible.Rows(dl).Value = wsSource.Rows(i).Value
            wsSource.Rows(i).Delete
            dl = dl + 1
            tmpLigne = tmpLigne - 1  ' ajuster le nombre de lignes restant
            i = i - 1 'Redressement
        End If
        i = i + 1
    Loop Until i <= tmpLigne
End Sub
Ca ne fonctionne malheureusement pas.
Je vais essayer d'expliquer ce que j'attends de ma macro :

Lorsqu'une ligne de la feuille "facturesencours" comporte "ok" dans la colonne H, je souhaite qu'elle soit copié dans la feuille "facturesok"
+ qu'elle disparaisse de la feuille d'origine
+ que les lignes s'ajoutent les unes à la suite des autres dans la feuille "facturesok"

Si quelqu'un peut m'aider ...
Merci d'avance,

Cdt,

Macpiero

PS. Mon fichier en P-Jalpha2.xls