déplacement des données suivant condition

[thierry440]

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

 

[DoubleZero]

Re : déplacement des données suivant condition

Bonjour, thierry440, le Forum,

Peut-être ainsi ?

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

 

[thierry440]

Re : déplacement des données suivant condition

c'est parfait.

merci beaucoup