Re : Besoin de VBA
Bonjour, tu insères ceci dans le code de la feuille (Alt + F11, dans le code de la première feuille Base Marché) :
Dans le cas ou tu modifies manuellement la date de fin en AKxx, excel ne pouvant deviner tout seul si la date est dépassée.
Il y a possibilité d'affecter une macro, sur la même base, mais en testant toutes les cellules de la colonne D
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 37 Or Target.Column = 41 And Target.Count = 1 Then
op = Cells(Target.Row, 4).Value
Select Case op
Case Is = "Terminé"
Target.EntireRow.Copy Destination:= _
Sheets("Marchés Terminés").[a65000].End(xlUp).Offset(1, 0)
Case Is = "A Relancer"
Target.EntireRow.Copy Destination:= _
Sheets("Marchés à relancer").[a65000].End(xlUp).Offset(1, 0)
End Select
End If
End Sub
Et pour la macro :
Sub export()
Application.ScreenUpdating = False
For Each cel In Range("$D$8
" & [d65000].End(xlUp).Row)
Select Case cel.Value
Case Is = "Terminé"
cel.EntireRow.Copy Destination:= _
Sheets("Marchés Terminés").[a65000].End(xlUp).Offset(1, 0)
Case Is = "A Relancer"
cel.EntireRow.Copy Destination:= _
Sheets("Marchés à relancer").[a65000].End(xlUp).Offset(1, 0)
End Select
Next cel
End Sub