XL 2013 VBA-transfert des données du formulaire vers le planning

[kh22]

A

 

[GALOUGALOU]

j'espère qu'il ne s'agit pas de faire un devoir à la place d'un élève ?
la réflexion améne la compréhension et la connaissance augmente.
la connaissance est un long chemin, et le cheminement augmente le savoir.
c'était la minute de philosophie de galougalou

 

[kh22]

Bonjour galougalou,

Non il s’agit d’un devoir volontaire. À travers cette expérience je souhaite juste m’exercer.

 

[GALOUGALOU]

bonjour kh22
malgré le choix dans la liste déroulante ta boite de dialogue ne trie pas les donnes
elles sont toutes injectées dans la feuille Sheets("recapitulatif conges payés").Activate
est ce volontaire ou souhaite tu la ventilation dans tous les onglets ?
cordialement
galougalou

 

[GALOUGALOU]

dans ton formulaire ton code sembe supprimer des lignes
je te propose le code suivant
Sheets("recapitulatif conges payés").Activate
Range("A65000").End(xlUp).Offset(1).Select 'recherche la première cellule vide
ActiveCell.Offset(0, 0).Value = Cbonom.Value
ActiveCell.Offset(0, 1).Value = Cboabsence
ActiveCell.Offset(0, 2).Value = Txtdate
ActiveCell.Offset(0, 3).Value = Txtdatefin
cordialement

 

[GALOUGALOU]

j'ai bien avancé sur ton classeur
tu as une liste de mois qui génère une erreur
il faut remplacer la liste alphabétique par une liste numérique pour que ton calendrier soit fonctionnel
si tout va bien je te pose un fichier ce soir (tardivement)
cordialement
galougalou

 

[kh22]

Bonsoir,

merci pour l’intérêt que vous portez
Oui c’est volontaire car je souhaite faire qu’un seul récapitulatif

 

[job75]

Bonjour kh22, GALOUGALOU,

Oui c’est volontaire

Par contre la faute d'orthographe sur Acceuil ne l'est probablement pas.

A+

 

[GALOUGALOU]

Bonjour rkh22 bonjour le forum
j'ai trouvé très intéressant de réfléchir sur votre classeur
dans le classeur ci-joint un bouton tuto donne l’accès à l'ensemble des modifications.
il est possible de gérer 498 employés, voir plus avec une modification des macros
cordialement
galougalou

 

[GALOUGALOU]

correction sur la mise à jour de la date