Trier et déplacer des lignes barrées

david84 à dit:

Bonjour,
pour masquer les lignes :

Code:

Sub Masqueligne2()
Dim I As Long, Pl As Range
Application.ScreenUpdating = False
Set Pl = [A1].CurrentRegion
For I = Pl.Rows.Count To 2 Step -1
  If Pl(I, 5).Value = "x" Then Pl.Rows(I).Hidden = True
Next I
Application.ScreenUpdating = True
End Sub

A+

Cliquez pour agrandir...

david84 à dit:

Il te suffit de modifier la condition :

Code:

If Pl(I, Pl.Columns.Count).Value = "x" Then Pl.Rows(I).Hidden = True

Pour le reste je n'ai pas le temps actuellement.
A+

Cliquez pour agrandir...

chris à dit:

Bonjour à tous

Code:

Sub Masqueligne()
Dim I As Long, Pl As Range, DestLig As Long
Application.ScreenUpdating = False
With Worksheets("En cours")
    Set Pl = .[A1].CurrentRegion
    DestLig = Worksheets("Terminé").Cells(1, 1).CurrentRegion.Rows.Count + 1
    For I = Pl.Rows.Count To 2 Step -1
      If Pl(I, 1).DisplayFormat.Font.Strikethrough = True Then
        Pl.Rows(I).Cut (Worksheets("Terminé").Cells(DestLig, 1))
        Pl.Rows(I).Delete Shift:=xlUp
        DestLig = DestLig + 1
    End If
    Next I
End With
Application.ScreenUpdating = True
End Sub

Si la copie ne doit pas avoir la MFC il faudra ajouter une ligne pour la supprimer...

Cliquez pour agrandir...

chris à dit:

RE

Pl.Rows(I).Cut (Worksheets("Terminé").Cells(DestLig, 1)) : la destination doit être En cours et non Terminé

Ton code doit avoir copié plus bas dans Terminé...

Cliquez pour agrandir...