Reattribution priorité

[Basel65]

Bonjour,

Dans un tableau servant entre autre de planning j'affecte un chiffre ( de 1 à 50 ) au dossier à traiter.
1 pour le dossier à traiter en premier.Une fois ce dossier traiter je remplace le 1 par la date du jour, est il possible que les priorités affectées ce reactualise automatiquement ? La priorité 2 devenant 1, la 3 devenant 2 etc etc.....

Cdlt,
Basel65.

 

[kllmoon]

Re : Reattribution priorité

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:A17")) Is Nothing Then
        Cancel = True
        mavariable = Target.Value
        If mavariable = Date Then
       For n = Sheets("Feuil1").Range("a65536").End(xlUp).Row To 1 Step -1
       If Range("A" & n).Value <> Date Then
       Range("A" & n).Value = Range("A" & n).Value - 1
          End If
    Next
    End If
    End If
    End Sub

c'est un début