DATEDIF dans un UserForm

[benadry]

Rebonjour le forum,

Je suis toujours en train de réaliser un UserForm avec Excel et les questions me viennent au fur et à mesure.

Je voudrais savoir, à partir d'une liste, si un salarié a au moins un enfant de moins de 12 ans, par rapport à la date du jour évidemment.

J'ai dans les colonnes 29, 30 et 31 les dates de naissance des enfants.

Si je passe par une formule Excel, j'obtiens ceci :

=SI((RECHERCHE($B$6;Liste_Agents;DATEDIF('Base Agents'!$AC$5:$AC$278;AUJOURDHUI();"y")<12));"Oui";SI((RECHERCHE($B$6;Liste_Agents;DATEDIF('Base Agents'!$AD$5:$AD$278;AUJOURDHUI();"y")<12));"Ou";SI((RECHERCHE($B$6;Liste_Agents;DATEDIF('Base Agents'!$AE$5:$AE$278;AUJOURDHUI();"y")<12));"Oui";"Non")))

Je voudrais faire la même chose avec un UserForm.

Voici mon code :

Private Sub Identité_Change()

With Sheets("Base Agents")

NumLigne = Me.Identité.ListIndex + 5
Me.Coef.Value = .Cells(NumLigne, 19).Value
Me.Serv.Value = .Cells(NumLigne, 51).Value
Me.CP_Ville.Value = Right("00000" & .Cells(NumLigne, 12).Value, 5) & " " & .Cells(NumLigne, 13).Value
Me.Cptc.Value = .Cells(NumLigne, 21).Value
Me.Date_entrée.Value = .Cells(NumLigne, 27).Value
Me.Emploi.Value = .Cells(NumLigne, 14).Value
Me.Exp.Value = .Cells(NumLigne, 20).Value
Me.Horaire.Text = .Cells(NumLigne, 22).Text
Me.N°_agent.Value = .Cells(NumLigne, 1).Value
Me.Domiciliation.Value = .Cells(NumLigne, 15).Value & " " & .Cells(NumLigne, 16).Value & " " & .Cells(NumLigne, 17).Value & " " & .Cells(NumLigne, 18).Value
Me.NIR.Value = .Cells(NumLigne, 2).Value
Me.Adresse.Value = .Cells(NumLigne, 6).Value & " " & .Cells(NumLigne, 7).Value
If .Cells(NumLigne, 29).Value < 12 Or .Cells(NumLigne, 30).Value < 12 Or .Cells(NumLigne, 31).Value < 12 Then Me.Enfants15.Value = "Oui"

Ne maîtrisant pas la syntaxe d'un DATEDIF dans un UserForm, j'ai fait ce qui est écrit ci-dessus (dernières lignes du code). Evidemment, ça ne fonctionne pas.

Help !

Merci d'avance.

Cordialement.

 

[Modeste geedee]

Re : DATEDIF dans un UserForm

Bonsour®

If (now-.Cells(NumLigne, 29).Value) < (12*365.25) Or( now-.Cells(NumLigne, 30).Value) < (12*365.25) Or (now-.Cells(NumLigne, 31).Value )< (12*365.25) Then Me.Enfants15.Value = "Oui"

 

[benadry]

Re : DATEDIF dans un UserForm

Bonjour Modeste,
Bonjour le forum,

Désolé de ne pas avoir répondu plus tôt.

Ca marche très bien.

Merci beaucoup.

Cordialement.