Transférer des lignes
Bonjour,
J'ai deux feuil:
feuil1: contient une base de donnéés
feuil2: vide
à chaque fois je souhaite copier des ligne de la feuill1 (juger si la 2ème colonne est 0) vers la feuils 2
Ps: la feuil2 doi être initialiser à chaque début du mmacro afin d'écraser la résultat en avale
merci
J'ai deux feuil:
feuil1: contient une base de donnéés
feuil2: vide
à chaque fois je souhaite copier des ligne de la feuill1 (juger si la 2ème colonne est 0) vers la feuils 2
Ps: la feuil2 doi être initialiser à chaque début du mmacro afin d'écraser la résultat en avale
merci
2 réponses
-
Salut,
essaye avec ça:
Sub copyLigne()
Dim cpt As Integer
cpt = 1
Sheets("Feuil2").Activate 'activer la feuil2
Cells.ClearContents
Sheets("Feuil1").Activate 'activer la feuil1
nbliF1 = Cells(Sheets("Feuil1").Rows.Count, "A").End(xlUp).Row 'nombre de ligne de la feuil1
For i = 1 To nbliF1
If Cells(i, 2) = 0 Then 'cas pour cellules B1, B2, B3.....
Rows(i).Copy 'copy la ligne
Sheets("Feuil2").Activate 'activer la feuil2
Rows(cpt).Select
ActiveSheet.Paste
cpt = cpt + 1
End If
Next
Application.CutCopyMode = False
End Sub -
Merci beaucoup pour vos effort mail malheureusement il y a qualque chose qui cloche. En effet, voila ce que ça donne 
