VBA EXCEL: copier/coller des lignes [Résolu/Fermé]

Signaler
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015
-
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015
-
Bonjour,

J'ai créer une macro qui faire copier/coller des lignes selon plusieurs critères. mon problème c'est que le collage n'est pas successif et il y'a plusieurs lignes vides au milieu.

Sub creation()
Dim Rw As Range
Dim Ligne As Long


Sheets("Sheet1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select

For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(1, 17).Value = "FIM" And Rw.Cells(1, 6).Value = "EUR" Then
Rw.Copy Destination:=Worksheets("Sheet2").Cells(Ligne, 1).EntireRow
End If
Next Rw


Merci de m'aider.

1 réponse

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 147
Bonjour,

Tu copies la ligne de la feuille 1 sur la même ligne de la feuille 2 ! Il faut donner à Ligne la valeur de la 1ère ligne de ta feuille 2 où tu veux insérer la copie et ensuite incrémenter Ligne pour copier la suivante en dessous.

For Each Rw In Selection.Rows
Ligne = 1
If Rw.Cells(1, 17).Value = "FIM" And Rw.Cells(1, 6).Value = "EUR" Then
Rw.Copy Destination:=Worksheets("Sheet2").Cells(Ligne, 1).EntireRow
ligne = ligne + 1
End If
Next Rw

Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015

Merci beaucoup Polux31 ;-)