Discussion :

[orcinus]

bonjour,
J'aurais besoin d'aide.
J'ai un Userform avec in textbox ( date d'embauche) et un autre textbox dans lequel je souhaite afficher automatiquement l'ancienneté en année.
J'ai beau chercher, je ne trouve nulle un petit bout de code qui pourrais m'aider.
Si une personne à une idée ou un modèle.
Merci d'avance;

[Jean-Philippe André]

Salut;

tu as DateDiff en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox DateDiff("yyyy",#01/01/2012#,Date)

[orcinus]

bonjour et merci pour cette réponse hyper rapide.
affaire résolu
en modifiant le code pour l'adapter à mes besoins, sa fonctionne nickel.
Merci encore.
ci-dessous le code au cas ou il pourrait servir avec un formatage automatique pour date.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'procédure permettant le formatage automatique en format date
Private Sub embauche_Change()
 Dim Valeur As Byte
    embauche.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(Tembauche)
    If Valeur = 2 Or Valeur = 5 Then embauche = Tembauche & "/"
'procédure permettant le calcul de l'ancienneté
   If IsDate(embauche) Then
   ancienneté = DateDiff("yyyy", Tembauche, Date)
   End If
End Sub

[BENNASR]

Bonsoir
supposons en colonne A tu as la date d'entrée de l'employé et en B la date d’arrêté de la situation
Formule en colonne B2 : =SI(A2<>"";AUJOURDHUI();"").
en colonne C2 l’ancienneté : =DATEDIF(A2;B2;"y").
et à l'initialisation de ton Userform tu fais la lecture de la colonne c pour chaque employé

[orcinus]

bonjour et merci pour votre réponse.
Mais sa y est c'est résolu.
Je n'ai pas encore eu le temps de coché résolu.
Et pour excel sa ne posé pas de problème, je bloqué au niveau d'un textbox.
Mais encore merci quand même.