Copier/coller avec une condition

vgendron à dit:

Bonjour

Question:
Est ce que le fait d'avoir une (ou plusieurs) cases vertes dans les colonnes Personnel implique forcément d'avoir une case verte en colonne DTC ?
si oui, il suffirait de filtrer sur la colonne DTC et archiver les lignes filtrées..

Cliquez pour agrandir...

pierrejean à dit:

Bonjour joeZ1

Un essai

Cliquez pour agrandir...

vgendron à dit:

Hello @pierrejean
exactement la démarche que j'avais commencé. mais comme tu as été plus rapide..

du coup, je me suis permis de modifier ton code pour répondre au besoin de ne pas écraser la feuille Archives

VB:

Sub archive()
tablo = Sheets("Base de donnees").Range("A4:P" & Sheets("Base de donnees").Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
   For m = 7 To 14
       If tablo(n, m) = "X" Or tablo(n, 14) > 0.1 Then
          x = n + 3
          dico(x) = ""
       End If
   Next
Next
a = dico.keys
With Sheets("Archives")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    For n = LBound(a) To UBound(a)
        Sheets("Base de donnees").Rows(a(n)).Copy Destination:=.Rows(fin + 1)
        fin = fin + 1
    Next n
    .Activate
End With
End Sub

Cliquez pour agrandir...

JoeZ1 à dit:

ar contre, je souhaiterai que les jours suivant se mettent à la suite dans l'onglet "Archives"

Cliquez pour agrandir...