Problème listbox sous condition de date

Résolu
(Re)Bonjour,

Suite à un problème sur le code de ce fichier, je me tournes vers vous dans l'espoir de dénicher la racine du problème.

N'étant pas un fin connaisseur du code, je me retrouve à la rue pour trouver ce qui me gène.

Tout d'abord voici le fichier : https://www.cjoint.com/?BIyn4f93iV6

Mon problème : lorsque je clique sur CDD fin de contrat, que je choisi ensuite un des agents dans la listbox, et que j'effectue les modifs demandé, je reviens alors sur la listbox et le dernier nom de la listbox s'est démultiplié *2. Si je refais l'action il se démultiplie *3, etc.

J'ai remarqué que cela ne se passait que lorsque toutes les personnes finissait leur contrat lors du mois.

J'espère avoir été claire et que vous saurez me donner un coup de main.

Merci par avance de votre temps

1 réponse

  1. Bonjour,

    je regarde
    A+
    0
    1. Bonjour,

      En modifiant cette partie du code, la procédure ne se lance plus en cliquant sur le bouton pour lancer la problème.
      Le problème est que l'indice n'appartient plus à la sélection
      0
    2. Re,
      UserForm_FinCDD2:
      dans Public Sub UserForm_activate()

      il y a une ligne en commentaire qu'il faut remettre en code:

      DCLA = Worksheets("CDD_Fin_de_Contrat").Range("A" & Rows.Count).End(xlUp).Row

      sinon pas d'effacement de la zone:

      Worksheets("CDD_Fin_de_Contrat").Range("A2:N29").ClearContents

      A+
      0
    3. Re,

      J'ai remis la ligne

      DCLA = Worksheets("CDD_Fin_de_Contrat").Range("A" & Rows.Count).End(xlUp).Row


      Cependant j'ai mis en commentaire cette ligne

      'Worksheets("CDD_Fin_de_Contrat").Range("A2:N29").ClearContents


      Et j'ai réactivé celle-ci, et cela semble effectivement bien fonctionner.

      Worksheets("CDD_Fin_de_Contrat").Range("A2:N" & DCLA).ClearContents


      Seulement l'alimentation des lignes sur l'onglet ArchiveCDD se met dans tous les sens et je ne comprends pas pourquoi cela ne démarre pas en A2, à la première ligne vide... Ce n'est pas l'objet du topic mais si vous avez une idée ?
      0
    4. Pour quelle raison avoir privilégié la ligne :

      Worksheets("CDD_Fin_de_Contrat").Range("A2:N29").ClearContents

      à celle-ci :

      Worksheets("CDD_Fin_de_Contrat").Range("A2:N" & DCLA).ClearContents
      0