Date d'anniversaire du jour ! RESOLU

[JBARBE]

Bonjour à tous,

J'ai un age d'une date d'anniversaire qui change que lorsqu’on fait une saisie dans les cellules concernées ou lorsque la date d’anniversaire du jour est passée !

Comment faire pour que l'age d'anniversaire du jour puisse changer sans les contraintes précédentes !

Formule de l'age qui fonctionne sauf pour la date anniversaire du jour :

=ARRONDI.INF(JOURS360(B10;AUJOURDHUI())/360;0)

Voir fichier ci-joint !

A l'avance, Merci beaucoup de votre aide !

 

[Jocelyn]

Re : Date d'anniversaire du jour !

Bonjour le Forum,
Bonjour JBARBE🙂

Hum hum pas bien sur d'avoir tout saisi mais si par exemple tu souhaite en C10 avoir 35 aujourdhui au lieu de 34 car aujourd'hui jour anniversaire tu peux tester

=ARRONDI.INF(JOURS360(B10;AUJOURDHUI())/360;0)+SI(TEXTE(B10;"mmjj")=TEXTE(AUJOURDHUI();"mmjj");1)

Voila en espérant avoir compris la demande ce qui n'est pas sur

Amicalement

 

[JBARBE]

Re : Date d'anniversaire du jour !

Bonjour le Forum,
Bonjour JBARBE🙂

Hum hum pas bien sur d'avoir tout saisi mais si par exemple tu souhaite en C10 avoir 35 aujourdhui au lieu de 34 car aujourd'hui jour anniversaire tu peux tester

=ARRONDI.INF(JOURS360(B10;AUJOURDHUI())/360;0)+SI(TEXTE(B10;"mmjj")=TEXTE(AUJOURDHUI();"mmjj");1)

Voila en espérant avoir compris la demande ce qui n'est pas sur

Amicalement

Bonjour Jocelyn

Aprés avoir consulté le fichier téléchargé, je constate que l'age a automatiquement changé ( de 33 à 34) lors de la fermeture du fichier et de son ouverture !

Une petite étourderie de ma part dont je m'excuse !

Ainsi, Ma macro devra ainsi être modifiée !

Sub ACTION()
Dim J As Integer
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Range("Nombre") = "X"
For J = 2 To 100
 If Cells(J, 1) <> "" And Cells(J, 7) = Date Then
 Range("Nombre").ClearContents
  MsgBox "AUJOURD'HUI Anniversaire de " & Cells(J, 1) & " Age " & Cells(J, 3) & " Ans le " & Cells(J, 2) ' Cells(J, 3)+1 supprimé
 ElseIf Cells(J, 1) <> "" And Cells(J, 4) <> "" Then
  MsgBox "Anniversaire de " & Cells(J, 1) & " Age " & Cells(J, 3) & " Ans le " & Cells(J, 2) ' Cells(J, 3)+1 supprimé
   Range("Nombre").ClearContents
 End If
 Next J
 If Range("Nombre") = "X" Then MsgBox "Pas d'Anniversaire aujourd'hui"
Application.ScreenUpdating = True
End Sub

Bonne journée à tous !