VBA EXCEL: copier/coller des lignes avec conditions

Version imprimable

07/11/2015, 19h59
LANGAZOU

VBA EXCEL: copier/coller des lignes avec conditions

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.
07/11/2015, 20h21
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...
07/11/2015, 20h30
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

1 pièce(s) jointe(s)

Bonsoir,

Merci pour votre aide.

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

Code:

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:

Pièce jointe 192098

07/11/2015, 21h17
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
07/11/2015, 23h41
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..

Bonjour bbil,

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:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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 beaucoup d'avance

08/11/2015, 11h11
SfJ5Rpw8

Salut,

tu copie dans la même ligne que la source , c'est de la que provient ton problème, gère un compteur pour ta ligne destination , compteur que tu incrémente après chaque copie...
08/11/2015, 11h36
LANGAZOU

Re Bonjour bbil,

Je suis debutant en VBA :/ . j'ai pas su comment le faire.
08/11/2015, 11h49
SfJ5Rpw8

Citation:

Envoyé par LANGAZOU

Re Bonjour bbil,

Je suis debutant en VBA :/ . j'ai pas su comment le faire.

ben oui ... mais c'est pas une excuse ... il y as plein de débutant sur ce forum .. et du code qui renvoi le numéro de la dernière ligne utilisée dans une feuille il y as aussi plein d'exemples...

essai de modifier le calcul de ton numéro de ligne :

Code:

ligne = Worksheets("Sheet2").Cells(Worksheets("Sheet2").Rows.Count, 1).End(xlUp).Row + 1
08/11/2015, 12h32
LANGAZOU

Merci beaucoup bbil pour votre aide précieuse.

Have a nice day Ciao ;-)