Formule dans une macro

[nakadon]

Bonjour à tous.
Je vous sollicite, car je n’arrive pas à le faire.
Dans mon fichier Excel (ci-joint), je calcule l’âge des membres grâce à la formule suivante, et ça marche :

=SI(C2="";"";(SI(DATE(ANNEE(AUJOURDHUI());MOIS(C2);JOUR(C2))>AUJOURDHUI();ANNEE(AUJOURDHUI())-ANNEE(C2)-1;ANNEE(AUJOURDHUI())-ANNEE(C2))))

Colonne A : Nom
Colonne B : Prénom
Colonne C : Date naissance
Colonne D : Âge

Je souhaite faire la même chose avec une macro. Est-ce possible ?
Par exemple, la macro va copier la formule dans « Di » que si j’ai saisis une date de naissance dans « Ci », dans le cas contraire pas de formule dans « Di ».

Merci d’avance.

 

[pierrejean]

Re : Formule dans une macro

bonjour nakadon

une possibilité

declenchement a la saisie de la date colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
    Range("D2").AutoFill Destination:=Range("D2:D" & Range("C65536").End(xlUp).Row), Type:=xlFillDefault
  End If

End Sub

 

[Bebere]

Re : Formule dans une macro

bonjour

Sub test()
Dim cel As Range, L As Integer

bonjour Nakadon,Pierre-Jean
essaye ce code

With Sheets("Feuil1")

For Each cel In .Range("C2:C" & .Range("C65536").End(xlUp).Row)
If cel <> "" Then
L = cel.Row
cel.Offset(0, 1).FormulaLocal = _
"=SI(C" & L & "="""";"""";(SI(DATE(ANNEE(AUJOURDHUI());MOIS(C" & L & ");JOUR(C" & L & "))>AUJOURDHUI();ANNEE(AUJOURDHUI())-ANNEE(C" & L & ")-1;ANNEE(AUJOURDHUI())-ANNEE(C" & L & "))))"
End If
Next cel
End With

End Sub

à bientôt

 

[pierrejean]

Re : Formule dans une macro

re

Salut bebere🙂

avec une (très) vieille fonction personnalisée

 

[Bebere]

Re : Formule dans une macro

eh oui Pierre-Jean
pour ceux que cela intéresse
il y a aussi datediff,voir le classeur datesheures en téléchargement
à bientôt

 

[nakadon]

Re : Formule dans une macro

Salut Bebere et Pierrejean,

Merci pour votre diligence à tous les deux.
Vos deux solutions fonctionnent impecs.
Je suis ravis et j’ai l’embarras du choix.

Encore merci pour votre contribution.
À bientôt.