Couper coller une ligne d'un onglet à l'autre

SophieK -  
Gyrus Messages postés 3360 Statut Membre -
Bonjour,

J'ai un tableau avec en colonne "AK" des "ok" et des vides.
Je souhaiterais couper les lignes ou il y a des "ok" et les coller sur feuil2
Je ne sais pas si quelqu'un peut m'aider.

Merci par avance

1 réponse

  1.
    Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Tu places un filtre automatique sur la colonne K,
    tu filtres sur critère "ok",
    tu copies les lignes filtrées,
    tu les colles en feuille 2.

    Retour en feuille 1, tu supprimes les lignes filtrées.
    Enfin, tu filtres les lignes vides et tu les supprimes

    A+
    0
    1. Sophiek
       
      Il me faudrait une macro pour le faire automatiquement si possible
      0
      1. Gyrus Messages postés 3360 Statut Membre 526 > Sophiek
         
        Bon, alors ... 
        Sub Test()
        Dim WsS As Worksheet, WsC As Worksheet
        Dim LigneS As Long
            Set WsS = Worksheets("Feuil1")
            Set WsC = Worksheets("Feuil2")
            For LigneS = WsS.Range("AK" & Rows.Count).End(xlUp).Row To 2 Step -1
                If UCase(WsS.Range("AK" & LigneS).Value) = "OK" Then
                    WsS.Rows(LigneS).Copy
                    WsC.Rows(1).Insert Shift:=xlDown
                    WsS.Rows(LigneS).Delete
                End If
            Next LigneS
        End Sub

        A+
        0
      2. SophieK > Gyrus Messages postés 3360 Statut Membre
         
        Quand j'applique le code ça me marque une erreur à se niveau:
        For LigneS = WsS.Range("AK" & Rows.Count).End(x1Up).Row To 2 Step -1
        Je ne comprends pas pourquoi...
        Merci encore pour ton aide
        0
      3. Gyrus Messages postés 3360 Statut Membre 526 > SophieK
         
        Dans mon code : End(xlUp)
        Dans ton code : End(x1Up)

        A+
        0
      4. SophieK > Gyrus Messages postés 3360 Statut Membre
         
        Nan c'est bon
        C'est parfait
        MERCI BEAUCOUP !!!!
        0