déplacement des données suivant condition

thierry440

XLDnaute Junior
Bonjour
je n'arrive pas à deplacer une ligne de données (feuille BD) vers feuille (BDR) sans ecraser systematiquement la derniere ligne déplacée. (condition dépalcement : réalisée avec succès)
De plus lors du déplacement cette ligne ne doit plus figurer dans la feuille BD mais seulement dans BDR.

il s'agit du module 6 (macro) .

Merci d'avance
 

Fichiers joints

DoubleZero

XLDnaute Barbatruc
Re : déplacement des données suivant condition

Bonjour, thierry440, le Forum,

Peut-être ainsi ?

Code:
Option Explicit
Sub Déplacer()
    Dim i As Long
    Application.ScreenUpdating = False
    With Sheets("BD")
    For i = .Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
        If .Range("z" & i) = "Réalisé avec succès" Then
            With .Rows(i)
                .Copy Destination:=Sheets("BDR").Range("a" & Rows.Count).End(xlUp)(2)
                .Delete
            End With
        End If
    Next
    End With
    Application.ScreenUpdating = True
End Sub
A bientôt :)
 

Discussions similaires


Haut Bas