Bonjour à tous !
Je suis à la recherche de la ligne qui me permettra d'ajouter une condition à ma macro d'archivage.
Ma macro actuelle se base sur deux variables pour archiver ma ligne dans un autre onglet.
Or je voudrais y ajouter une troisième qui est la suivante :
Dans ma colonne H, je dois remplir des dates du type "jj/mm/aaaaa", je voudrais que ma ligne ne s'archive que si la cellule H de ma ligne est pleine et qu'elle est rempli par une date "jj/mm/aaaa".
Je vous joint la macro actuelle :
Sub Archiver_Audit()
For ln = Range("B" & Rows.Count).End(xlUp).Row To 3 Step -1
Set cell = Range("F" & ln).Find("100%", lookat:=xlPart)
If Not cell Is Nothing Then
If Range("I" & ln) = "Archive" Then
Sheets("Archive AG").Rows("2:2").Insert shift:=xlDown
Range("A" & ln & ":J" & ln).Copy Sheets("Archive AG").Range("A5")
Sheets("Archive AG").Rows("2:2").EntireRow.AutoFit
Rows(ln & ":" & ln).Delete shift:=xlUp
End If
End If
Next ln
End Sub
Si besoin, pour plus de compréhension, je vous joindrai le fichier excel.
Cordialement