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 :
Ca ne fonctionne malheureusement pas.
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
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
Partager