Discussion :

[LANGAZOU]

Bonsoir 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.

[SfJ5Rpw8]

Bonsoir,

est tu en est ou ? montre ton code ...? tu sais effectuer la copie ..? ... pour le contrôle de tes cellules utilise l'objet Cells .. c'est plus facile à manipuler avec des index lignes colonnes...

[Philippe Tulliez]

Bonjour,
Pour exporter des lignes suivant conditions, je te suggère l'utilisation de la méthode AdvancedFilter de l'objet Range.
A lire Les filtres avancés ou élaborés dans Excel

[LANGAZOU]

Bonsoir,

Merci pour votre aide.

J'ai essayé ce code VBA mais ça ne marche toujours pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
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

ci dessous mon exemple:

EXEMPLE.1.xlsx

[Philippe Tulliez]

Bonjour,
As-tu essayé avec la méthode AdvancedFilter ?
Une ligne de code après avoir défini les zones des données, des critères et d'exportation et tu exportes 50.000 lignes en une seconde

[SfJ5Rpw8]

Si tu reste dans ta solution de boucle ... pense que devant les objets Rows, Range, Cells ... il faut toujours préciser le parent ( la classeur + feuille de calcul) surtout comme dans ton cas ou tu travaille sur plusieurs feuilles..