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 :)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas