Sujet Précédent Sujet Suivant

Problème listbox sous condition de date

Résolu/Fermé
skyzino Messages postés 28 Date d'inscription jeudi 20 septembre 2012 Statut Membre Dernière intervention 2 juillet 2013 - 24 sept. 2012 à 14:08
skyzino Messages postés 28 Date d'inscription jeudi 20 septembre 2012 Statut Membre Dernière intervention 2 juillet 2013 - 25 sept. 2012 à 09:55
(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

Réponse 1 / 1
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
Modifié par f894009 le 24/09/2012 à 14:42
Bonjour,

je regarde
A+
0
skyzino Messages postés 28 Date d'inscription jeudi 20 septembre 2012 Statut Membre Dernière intervention 2 juillet 2013
24 sept. 2012 à 14:44
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
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
24 sept. 2012 à 14:58
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
skyzino Messages postés 28 Date d'inscription jeudi 20 septembre 2012 Statut Membre Dernière intervention 2 juillet 2013
24 sept. 2012 à 15:25
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
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
Modifié par f894009 le 24/09/2012 à 15:45
Re,
Je vous renvoi votre fichier modifier car je pense que vous avez modifie quelque chose qu'il ne fallait pas.

https://www.cjoint.com/?BIypRg7IWIw

A+
0
skyzino Messages postés 28 Date d'inscription jeudi 20 septembre 2012 Statut Membre Dernière intervention 2 juillet 2013
24 sept. 2012 à 16:14
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

Discussions similaires

Prélèvement JM Jacquie et Michel date.
Kekradinho -
matteo83 -

32 réponses
Pix
Anyssa -
vibe -

4 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses