Sujet Précédent Sujet Suivant

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

A voir également:

1 réponse

Réponse 1 / 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
Sophiek
 
Il me faudrait une macro pour le faire automatiquement si possible
0
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
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
Gyrus Messages postés 3360 Statut Membre 526 > SophieK
 
Dans mon code : End(xlUp)
Dans ton code : End(x1Up)

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

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses