XL 2016 Effacement et rangement

Dranreb à dit:

Bonjour.
À tester, dans le module Feuil16 (2020) :

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim ColPrio As Range, TPrio(), LCou As Long, PCou As Long, L As Long, P As Long
   If Intersect([Tableau4[Etat]], Target) Is Nothing Then Exit Sub
   If Target.Value <> "CLOS" Then Exit Sub
   Set ColPrio = [Tableau4[Priorité]]
   TPrio = ColPrio.Value
   LCou = Target.Row - ColPrio.Row + 1
   PCou = TPrio(LCou, 1): TPrio(LCou, 1) = Empty
   For L = 1 To UBound(TPrio, 1)
      Select Case TPrio(L, 1)
         Case PCou: ColPrio.Rows(LCou).Value = Empty: Exit Sub
         Case Is > PCou: TPrio(L, 1) = TPrio(L, 1) - 1
         End Select
      Next L
   ColPrio.Value = TPrio
   End Sub

Remarque: ne laissez pas de lignes vides dans les plages mises sous forme de tableaux. Ça va à l'encontre de leur philosophie de principe, laquelle inclut toutes facilités nécessaires à l'ajout de nouvelles lignes requises, à renseigner.

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour à tous,
Un exemple sur le deuxième tableau en PJ
L'ordre de priorité(position) doit être adapter selon les besoins dans [etat], "clos" doit être en dernière position
Ps:Les tableaux structurés ne doivent pas contenir des lignes vides, le tableau se met à jour automatiquement à la saisie sur la ligne du dessous

Cliquez pour agrandir...