Autres [ XL 2007] couper/coller ligne à une cellule de la ligne précédente si cellule contient

[kama]

Bonjour à tous,
Voici un code (ci-après) que j'ai trouvé sur ce forum et je vous sollicite pour une modification de ce code

Sub Test()
    Dim Lig&, DerL&
    DerL = Feuil2.Range("B" & Rows.Count).End(3).Row
    For Lig = 1 To 10000
        If Feuil1.Cells(Lig, 2) = "Loué" Then
            Feuil1.Rows(Lig).Copy Feuil2.Range("A" & DerL)
            DerL = DerL + 1
        End If
    Next
End Sub

Voilà ce code permet de coller dans la feuill2 la ligne où apparait le valeur "Loué" dans la colonne B, ce que je souhaiterai c'est de pouvoir couper/coller cette meme ligne dans la cellule BS de la ligne précédente de la meme feuille.

Merci d'avance du temps consacré.
K

 

[job75]

Bonjour kama,

dans la cellule BS de la ligne précédente de la meme feuille.

Y a un os, en général y a pas de cellule B5 sur la ligne précédente...

A+

 

[job75]

Pardon ce n'est pas B5 mais BS avec un S comme Suzanne.

 

[job75]

Pour couper-coller vers la colonne BS :

Sub Test()
    Dim DerL, Lig&
    DerL = Feuil2.Cells(Rows.Count, "BS").End(3).Row
    With Feuil1.Range("A1", Feuil1.UsedRange)
        For Lig = 1 To 10000
            If .Cells(Lig, 2) = "Loué" Then
                .Rows(Lig).Cut Feuil2.Cells(DerLig, "BS")
                DerL = DerL + 1
            End If
        Next
    End With
End Sub

 

[kama]

merci pour ta réponse rapide job75,

ta formule permet effectivement de coller la ligne dans la colonne BS dans une autre feuille, mon but est de coupé/collé la ligne où ce trouve la cellule avec la valeur "loué" dans la colonne BS de la ligne juste avant .

 

[job75]

"Loué" étant en colonne B de Feuil1 il faut donc coller la ligne non pas en BS mais en BR de Feuil2.

Vous devez être capable de modifier mon code en conséquence.

 

[kama]

j'ai du mal me faire comprendre désolé 🙄 , je ne veux pas coller la ligne dans une deuxième feuille.
si j'ai en cellule B2 (donc colonne B ligne 2) la valeur "Loué" je voudrais copié cette ligne 2 dans la ligne 1 en cellule BS.
Merci de votre patience.

 

[job75]

Bonjour kama,

C'est plus clair en effet :

Sub Test()
    Dim col%, lig&
    With Feuil1
        col = .Columns("BR").Column
        .Columns(col).Resize(, .Columns.Count - col + 1).Clear 'RAZ
        With .Range("A1", .UsedRange)
            For lig = 2 To 10000
                If .Cells(lig, 2) = "Loué" Then
                    .Rows(lig).Cut .Cells(lig - 1, col)
                End If
            Next
        End With
    End With
End Sub

A+

 

[kama]

Merci beaucoup job75

A+