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

Fermé
Signaler
-
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
-
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

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
543
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+
Il me faudrait une macro pour le faire automatiquement si possible
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
543 > 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+
>
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016

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
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
543 > SophieK
Dans mon code : End(xlUp)
Dans ton code : End(x1Up)

A+
>
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016

Nan c'est bon
C'est parfait
MERCI BEAUCOUP !!!!