Menu

Question Userform Excel

Sweetclau 7 Messages postés mercredi 20 décembre 2017Date d'inscription 17 janvier 2018 Dernière intervention - 27 déc. 2017 à 16:31 - Dernière réponse : f894009 12963 Messages postés dimanche 25 novembre 2007Date d'inscription 26 avril 2018 Dernière intervention
- 4 janv. 2018 à 07:39
Bonjour,

Je vous explique les problématiques pour lesquelles j'aimerais obtenir de l'aide.

1- Quand on remplit le Userform Dossier employé, je demande que les informations s'affichent dans ma feuille Excel Dossier d'employé. Ça, j'ai réussi à le faire. Par contre, je veux que l'ancienneté se calcule à partir de la date d'embauche. Je sais pas comment formuler mon calcul et où l'inscrire... j'ai essayé plusieurs trucs, mais ça ne marchait pas et il ne s'affichait pas dans ma feuille Excel.

2- J'aimerais créer une macro pour que les informations que j'ai choisies (No employé, titre, Nom, Prénom, téléphone, ancienneté) s'affichent dans ma feuille Excel Liste d'ancienneté. Ce que je ne sais pas comment faire, c'est que chaque nouvel employé enregistré doit apparaître dans cette liste à la suite des autres. Aussi, l'ancienneté doit toujours être à jour...

Je vous copie mon code pour que vous voyiez ce que j'ai commencé. Aussi s'il y a une façon de joindre mon fichier, je pourrais vous le montrer. Je vous remercie à l'avance!

Private Sub CmdOk_Click()
'Programme créé par //supprime par la moderation//
'Programme créé le 19 décembre 2017
'Programme modifié le 19 décembre 2017
'Bouton qui sert à fermer le formulaire et à inscrire les informations saisies dans la feuille Dossier employé

'Déclaration des variables
Dim Titre As String
Dim Prenom As String
Dim Nom As String
Dim NoEmploye As Integer
Dim DateNaissance As Date
Dim NAS As String
Dim Adresse As String
Dim Ville As String
Dim CodePostal As String
Dim Telephone As String
Dim Courriel As String
Dim DateEmbauche As Date
Dim Anciennete As Long


'Attribution des variables
Titre = CmbTitre.Value
Nom = TxtNom.Value
Prenom = TxtPrenom.Value
NoEmploye = TxtNoEmploye.Value
DateNaissance = TxtDateNaissance.Value
NAS = TxtNAS.Value
Adresse = TxtAdresse.Value
Ville = TxtVille.Value
CodePostal = TxtCodePostal.Value
Telephone = TxtTelephone.Value
Courriel = txtCourriel.Value
DateEmbauche = txtDateEmbauche.Value


'Insérer les valeurs des variables dans une cellule précise
Range("B3").Value = frmDossierEmploye.CmbTitre
Range("D3").Value = frmDossierEmploye.TxtNom
Range("F3").Value = frmDossierEmploye.TxtPrenom
Range("B4").Value = frmDossierEmploye.TxtNoEmploye
Range("D4").Value = frmDossierEmploye.TxtDateNaissance
Range("F4").Value = frmDossierEmploye.TxtNAS
Range("B5").Value = frmDossierEmploye.TxtAdresse
Range("D5").Value = frmDossierEmploye.TxtVille
Range("F5").Value = frmDossierEmploye.TxtCodePostal
Range("B6").Value = frmDossierEmploye.TxtTelephone
Range("D6").Value = frmDossierEmploye.txtCourriel
Range("B7").Value = frmDossierEmploye.txtDateEmbauche
Range("D7").Value = frmDossierEmploye.txtAnciennete



End Sub

Private Sub UserForm_Initialize()

'Programme créé par Claudia Mathieu
'Programme créé le 5 décembre 2017
'Programme modifié le 5 décembre 2017
'Programme qui sert à choisir par une zone de liste le titre de l'employé

CmbTitre.AddItem "Monsieur"
CmbTitre.AddItem "Madame"

End Sub

EDIT : Ajout des balises de code (la coloration syntaxique).

Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
Jordane45
Afficher la suite 

12 réponses

Répondre au sujet
f894009 12963 Messages postés dimanche 25 novembre 2007Date d'inscription 26 avril 2018 Dernière intervention - 28 déc. 2017 à 07:26
0
Utile
11
Bonjour,

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/
f894009 12963 Messages postés dimanche 25 novembre 2007Date d'inscription 26 avril 2018 Dernière intervention - 29 déc. 2017 à 18:42
Pour le moment là textbox ancienneté se remplit quand vous cliquez sur le bouton ok
f894009 12963 Messages postés dimanche 25 novembre 2007Date d'inscription 26 avril 2018 Dernière intervention - 3 janv. 2018 à 07:36
Bonjour,

Saurais-tu pourquoi?
Chez moi, pas de probleme, precisez dans quel contexte
Vous ne repondez toujours pas aux questions posees!!!!!!!!!!!
Je vais faire un imprime-écran lorsque je serai chez moi pour la problématique avec la formule. Pour les autres questions, dans votre message du 29 décembre j'ai répondu à quoi servait la feuille Dossier employé. Pour la date d'embauche dans la feuille Liste ancienneté vous avez raison, je vais l'ajouter. À quelles autres questions n'ai-je pas répondu?
Voici des imprime-écran pour montrer ce qui se passe avec la formule:
https://www.cjoint.com/c/HAec2FTKyyG
f894009 12963 Messages postés dimanche 25 novembre 2007Date d'inscription 26 avril 2018 Dernière intervention - 4 janv. 2018 à 07:39
Re bonjour (voir votre autre sujet)

Quand vous passez le curseur souris sur txtnoemploye, que contient cette objet, il n'y a pas de lettre(s) ?????
Commenter la réponse de f894009