Sujet Précédent Sujet Suivant

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

Fermé
SophieK - 25 févr. 2016 à 11:07
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 25 févr. 2016 à 14:05
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


A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
25 févr. 2016 à 12:37
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
Sophiek
25 févr. 2016 à 12:40
Il me faudrait une macro pour le faire automatiquement si possible
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523 > Sophiek
25 févr. 2016 à 13:25
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
SophieK > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
25 févr. 2016 à 13:48
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
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523 > SophieK
25 févr. 2016 à 14:05
Dans mon code : End(xlUp)
Dans ton code : End(x1Up)

A+
0
SophieK > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
25 févr. 2016 à 14:04
Nan c'est bon
C'est parfait
MERCI BEAUCOUP !!!!
0

Discussions similaires

Dessiner avec son clavier et avec des lettres
JSS -
Polodu33 -

78 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses
Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse
site coup d un soir est une arnaque
THIERRY -
Rico -

54 réponses