Sujet Précédent Sujet Suivant

VBA EXCEL: copier/coller des lignes

Résolu/Fermé
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.
A voir également:

1 réponse

Réponse 1 / 1
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
 1 190
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 ;-)
Posez votre question