VBA EXCEL: copier/coller des lignes avec conditions

Aragon10

XLDnaute Occasionnel
Bonjour le Forum,

J'ai une feuille Excel ("Feuil1")sur laquelle je veux copier les lignes entières si la cellule Ai = "FIM" et la Cellule Bi = "EUR" ( avec i =1 jusqu'à la dernière ligne) et coller par la suite toutes les lignes sur une deuxième feuille(Feuil2).

Merci pour votre aide.
 

DoubleZero

XLDnaute Barbatruc
Re : VBA EXCEL: copier/coller des lignes avec conditions

Bonjour, Aragon10, le Forum,

Comme ceci ?

Code:
Option Explicit
Sub Dupliquer_si()    ' onglets noms adapter
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & i) = "FIM" And Range("b" & i) = "EUR" Then Rows(i).Copy Destination:=Sheets("b").Range("a" & Rows.Count).End(xlUp)(2)
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt :)
 

Aragon10

XLDnaute Occasionnel
Re : VBA EXCEL: copier/coller des lignes avec conditions

Bonjour Double zero,

J'ai modifié mon code et ça marche très bien sauf que le collage n'est pas successif et il y'a plusieurs lignes vides au milieu. comment faire svp pour que le collage soit successif ?

Code:
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.
 

Pièces jointes

  • EXEMPLE.10xlsx.xlsx
    9.5 KB · Affichages: 39
Dernière édition:

Discussions similaires

Réponses
22
Affichages
689

Statistiques des forums

Discussions
311 713
Messages
2 081 808
Membres
101 819
dernier inscrit
lukumubarth