Discussion :

[macpiero]

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

[Menhir]

Je ne comprends pas bien ce que tu mets dans la variable d1 à la ligne 12.

Mais je pense que le code suivant (à adapter en fonction de ton besoin) devrait faire à peu près ce que tu souhaites.

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
Sub CopierColler()
 
   Dim V_Fin_Source As Long
   Dim V_Fin_Cible As Long
   Dim V_I As Long
 
	V_Fin_Source = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
	V_Fin_Cible = Sheets("Facturesok").Range("A65536").End(xlUp).Row + 1
 
	For V_I = 1 To V_Fin_Cible
		If Sheets("Feuil1").Cells(i, "H").Value = "ok" Then
			Sheets("Feuil1").rows(i).cut
			Sheets("Feuil1").rows(V_FinCible).PasteSpecial
			V_Fin_Source = V_Fin_Source - 1   ' puisqu'on a enlevé une ligne
			V_Fin_Cible = V_Fin_Cible + 1     ' puisqu'on a ajoutré une ligne
		End If
	Next V_I	
 
End Sub