XL 2019 Planning Excel

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Juin 2020

• #16

Bonjour,
Comment supprimer vous ?
Si le sélectionne dans la feuille Juin la ligne 13 et clic droit Supprimer, ça me supprime la ligne.
C'est quoi l'historique ?

 

Vote positif 0 Vote négatif

M

marilu

XLDnaute Nouveau

• 18 Juin 2020

• #17

Bonjour,
Je fais un clic droit et supprimer, cela me supprime le salarié mais me laisse une ligne blanche,
L'historique des congés, par exemple un salarié qui va sortir en juillet, le supprimer sur juillet, mais le laisser sur juin,
J'ai voulu supprimer le salrié de la ligne 21 :

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Juin 2020

• #18

Je ne sais pas de quel fichier dont vous parlez.
Dans le dernier du post #13 vous avez ceci :

vous cliquez droit sur la ligne 21 Supprimer et vous avez cela :

La personne 1-10 a été supprimée et il n'y a pas de ligne blanche.
Dans votre fichier la liste est statique ou dynamique ?

 

Vote positif 0 Vote négatif

M

marilu

XLDnaute Nouveau

• 18 Juin 2020

• #19

Voici le fichier, en effet je viens de regarder le post et cela fonctionne sauf que sur ma dernière version, cela ne fonctionne plus

 

Pièces jointes

• TEST PLANNING.xlsm

  969.1 KB · Affichages: 13

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Juin 2020

• #20

C'est normal, dans ce fichier il y a une macro Worksheet_Change qui s'active lorsque vous touchez à la colonne A. ( ou à toute cellule dans Planning )
Si vous supprimez cette macro, ça marche.
Si vous interdisez cette macro sur les colonnes 1 et 2 ça marche aussi :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 Then Exit Sub
 If Not Intersect([planning], Target) Is Nothing Then
   Application.EnableEvents = False
   Selection.Value = Target
   Application.EnableEvents = True
   On Error Resume Next
   Selection.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

 

Vote positif 0 Vote négatif