Macro couper-coller plusieurs lignes d'une feuille vers une autre feuille

[flo76]

Bonjour,

Je souhaiterai automatiser le traitement du fichier Excel ci-joint.

Sur l'onglet Cliniques, j'indique "ok" pour certaines lignes dans la colonne A.

Dès lors qu'il y a la valeur "ok" sur les lignes, je transfère ces lignes (couper+coller+transférer) vers la Feuil3.

Avec la première macro mise en place j'ai réussi à couper mais le problème est que je dois le faire autant de fois qu'il y a de lignes "ok". Avec cette même macro, le coller fonctionne mais seulement pour la denrière ligne qui vient d'être coupée alors que je souhaiterai que toutes les lignes "ok" viennent s'incrémenter les unes en-dessous des autres.

Enfin, j'ai été obligé de créer une deuxième macro pour supprimer les lignes devenues vides car je n'ai pas réussi à la fusionner avec la première.

Merci d'avance de votre aide.

 

[Guest]

Re : Macro couper-coller plusieurs lignes d'une feuille vers une autre feuille

Bonsoir flo76,

Sub Couper_coller_quand_OK()
    Dim J As Long
    Dim Plage As Range
    Set Plage = Range("A4", Range("A15000").End(xlUp))
    For J = Plage.Cells.Count To 1 Step -1
        If Plage.Cells(J).Value = "ok" Then
            With Plage.Cells(J).Resize(, 10)
                .Copy Sheets("Feuil3").Range("A65536").End(xlUp)(2)
                .Delete xlShiftUp
            End With
        End If
    Next
    Application.CutCopyMode = False
End Sub

A+

 

[Banzai64]

Re : Macro couper-coller plusieurs lignes d'une feuille vers une autre feuille

Bonsoir
Bonsoir Hasco

Un essai a essayer

 

[patsyl60]

Re : Macro couper-coller plusieurs lignes d'une feuille vers une autre feuille

Bonjour à tous,

Deux autres versions... ( Dans le module 3 des macros).

Bonne journée.

Patsyl60

 

[flo76]

Re : Macro couper-coller plusieurs lignes d'une feuille vers une autre feuille

Bonsoir,

Merci beaucoup pour vos réponses.

Je vais regarder et vous tiens au courant.

 

[flo76]

Re : Macro couper-coller plusieurs lignes d'une feuille vers une autre feuille

Merci à vous tous, cela fonctionne parfaitement.

J'ai gardé la solution de Banzai64 qui me va très bien.