deplacer une plage de cellules

[elli6258]

Bonjour le forum,
je vous sollicite de nouveau pour un problème que voici.

je souhaite déplacer des cellules que si la première contient un mot clé "LP".
je vous joint un fichier.

côté macro, voilà j'en suis (avec l'aide du forum),

Dim m As Range
For Each m In Range("A1:A" & Range("A65536"). _
End(xlUp).Row)
If UCase(Left(m.Value, 2)) = "LP" Then
Range("A?:C?").Select
Selection.Cut


End If
Next m

Je vois qu'il me faudrait:
un compteur du n° de ligne quand la condition et bonne
et la formule pour aller placer la plage au bon endroit.
Merci d'avance
J'ai réussi à mettre mon fichier...
Je vais tester vos proposition, merci

 

[ftho]

Re : deplacer une plage de cellules

Bonjour,

Voici un exemple qui va déplacer les lignes de la feuille "Feuil1" et les coller les unes à la suite des autres dans la feuille "Feuil2"

Sub test()
Dim i As Integer

With Sheets("Feuil1")
    For i = .Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If UCase(Left(.Cells(i, 1), 2)) = "LP" Then
            .Range("A" & i & ":C" & i).Copy Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp)(2)
            .Rows(i).Delete
        End If
    Next
End With
End Sub

 

[kjin]

Re : deplacer une plage de cellules

Bonjour,
Une solution parmi d'autres

...
Dim m As Range
For Each m In Range("A1:A" & Range("A65536").End(xlUp).Row)
If UCase(Left(m.Value, 2)) = "LP" Then
Range(m, m.Offset(0, 2)).Cut
...

A+
kjin

 

[elli6258]

Re : deplacer une plage de cellules

Merci à vous deux .
Pour info si cela peut servir à d'autre...

For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
pla = Range("A" & I & ":C" & I)
If UCase(Left(Cells(I, 1), 2)) = "LP" Then
Range("A" & I & ":C" & I).Offset(0, 3) = pla
Range("A" & I & ":C" & I).ClearContents
End If
Next