XL 2021 Création agenda

[Nicolas JACQUIN]

Bonsoir tout le monde,

Sur ma création d'agenda, j'ai un petit problème avec mon code, y a un petit truc que j'arrive pas à régler.
Si le mois n'existe pas je le créer sans soucis, mais si le mois existe, ça me dis que le moi existe déjà, je dis ok mais sur ma feuille paramètre ça scroll jusqu'à la colonne "Q", il y a une tuile, je vois un peut près ou mais j'arrive pas à l'interpétrer comme il faut.

Merci à tous
Nico

 

[Phil69970]

Nicolas

Et en supprimant tout cela fonctionne il me semble
Mais à vérifier ...

'                            If Month(.ListColumns("Date").DataBodyRange(k)) = mois And Day(.ListColumns("Date").DataBodyRange(k)) = i _
'                                   And (.ListColumns("Inconnu").DataBodyRange(k)) = "x" Then
'                                anniv = ""
'                                anniv = anniv & .ListColumns("Anniversaire").DataBodyRange(k) & " " & ", " & vbCrLf
'                            End If

 

[Nicolas JACQUIN]

Nicolas

Et en supprimant tout cela fonctionne il me semble
Mais à vérifier ...

'                            If Month(.ListColumns("Date").DataBodyRange(k)) = mois And Day(.ListColumns("Date").DataBodyRange(k)) = i _
'                                   And (.ListColumns("Inconnu").DataBodyRange(k)) = "x" Then
'                                anniv = ""
'                                anniv = anniv & .ListColumns("Anniversaire").DataBodyRange(k) & " " & ", " & vbCrLf
'                            End If

A la base, j'ai rajouté cette partie avec le x pour ne pas prendre en compte l'année (si tu n'en ai pas sûre),
les femmes n'aiment pas dire leur âge, juste la date d'anniversaire en principe .
C'est pour ça que j'ai fais ça ainsi mais la boucle coince.
Et les calcul d'âge ne se calcule pas mieux d'une année sur l'autre malgré le retrait de cette partie

 

[TooFatBoy]

Et les calcul d'âge ne se calcule pas mieux d'une année sur l'autre malgré le retrait de cette partie

If Month(.ListColumns("Date").DataBodyRange(k)) = mois And Day(.ListColumns("Date").DataBodyRange(k)) = i Then
    If Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) = 0 Then
        age = "(-) "
    Else
        age = "(" & Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) & " ans) "
    End If
    anniv = anniv & .ListColumns("Anniversaire").DataBodyRange(k) & " " & age & ", " & vbCrLf
End If

Ben il faudrait peut-être commencer par tester la croix ?

---

If Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) = 0

Donc si cette année le résultat est 0, l'année prochaine le résultat sera 1 et du coup on fêtera son premier anniversaire ?

Essaye ceci :

If Month(.ListColumns("Date").DataBodyRange(k)) = mois And Day(.ListColumns("Date").DataBodyRange(k)) = i Then
    If .ListColumns("Inconnu").DataBodyRange(k) <> "" Then
        age = "(-) "
    Else
        age = "(" & Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) & " ans) "
    End If
    anniv = anniv & .ListColumns("Anniversaire").DataBodyRange(k) & " " & age & ", " & vbCrLf
End If

 

[Nicolas JACQUIN]

If Month(.ListColumns("Date").DataBodyRange(k)) = mois And Day(.ListColumns("Date").DataBodyRange(k)) = i Then
    If Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) = 0 Then
        age = "(-) "
    Else
        age = "(" & Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) & " ans) "
    End If
    anniv = anniv & .ListColumns("Anniversaire").DataBodyRange(k) & " " & age & ", " & vbCrLf
End If

Ben il faudrait peut-être commencer par tester la croix ?

---

If Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) = 0

Donc si cette année le résultat est 0, l'année prochaine le résultat sera 1, et du coup on fêtera son premier anniversaire ?

C'est ce que j'ai fait oui, mais c'est pareil,
je sais que je suis un peu couillon mais bon, je doit pas être le seul ou les calculs se font pas, si aujourd'hui tu as un certain âge forcément que l'année prochaine à la même date tu auras un an de plus.

 

[TooFatBoy]

C'est ce que j'ai fait oui, mais c'est pareil,

Je ne vois pas où. Peux-tu me montrer STP ?

 

[Nicolas JACQUIN]

Post #98

ou regarde, les 2 premières, sans x et avec x et la 3ème avec x 1 an plus tard

Edit: Il y a que Pierre ou 1 an après, il a 1 an de moins

 

[TooFatBoy]

je sais que je suis un peu couillon mais bon, je doit pas être le seul ou les calculs se font pas, si aujourd'hui tu as un certain âge forcément que l'année prochaine à la même date tu auras un an de plus.

Je te faisais en fait remarquer que tu fais un test sur l'année d'aujourd'hui, et que donc si ton test fonctionne aujourd'hui et retourne bien 0 parce que l'année de naissance n'a pas été renseignée cette année, l'année prochaine ça ne fonctionnera plus parce que la personne aura 1 an.

 

[Nicolas JACQUIN]

Je ne vois pas où. Peux-tu me montrer STP ?

Comme d'habitude, tu n'as pas lu ce que j'ai écrit mais ce que tu as voulu lire...

Je te faisais remarquer que tu fais un test sur l'année d'aujourd'hui, et que donc si ton test fonctionne aujourd'hui et retourne bien 0 parce que l'année de naissance n'a pas été renseignée cette année, l'année prochaine ça ne fonctionnera plus parce que la personne aura 1 an !

Je n'ai que répondre à ta demande, tu me demande de te montrer, je te montre, tu vois bien que même sans la partie x, d'une année à l'autre, ce n'est pas bon les calculs

 

[TooFatBoy]

Je n'ai que répondre à ta demande, tu me demande de te montrer, je te montre

Oui, merci. Mais en fait je voulais dire "dans ton code", car je disais de commencer par tester la croix alors que dans ton code tu ne le fais qu'après.
Mais c'est bon. Passons à autre chose.

Que veux-tu exactement faire selon les cas :
- pour les personnes nées dans l'année, tu veux afficher quoi ? "0 an", "Naissance", autre chose, rien ?
- pour les personnes dont il ne faut pas tenir compte de l'année de naissance, tu veux afficher quoi ?
- pour les autres personnes, tu veux afficher quoi ? Leur âge en années ?

 

[Nicolas JACQUIN]

Que veux-tu exactement faire selon les cas :
- pour les personnes nées dans l'année, tu veux afficher quoi ? "0 an", "Naissance", autre chose, rien ?
- pour les personnes dont il ne faut pas tenir compte de l'année de naissance, tu veux afficher quoi ?
- pour les autres personne, tu veux afficher leur âge en années ?

Cas n°1 : Soit 0 ou rien
Cas n°2 : Juste le nom seul (sans parenthèse n'y quoi que se soit)
Cas n°3 : Oui

Merci à toi

 

[Phil69970]

Je te propose cette modif
Pas vu ton post #115 mais très facilement adaptable vu comme j'ai modifié le code

A tester bien sur.....

 

[TooFatBoy]

Pour le cas n° 1 j'ai mis "(Naissance)". Tu remplaceras par ce que tu veux si la proposition fonctionne.

For k = 1 To .ListRows.Count
    If Month(.ListColumns("Date").DataBodyRange(k)) = mois And Day(.ListColumns("Date").DataBodyRange(k)) = i Then
        anniv = anniv & .ListColumns("Anniversaire").DataBodyRange(k)
        If .ListColumns("Inconnu").DataBodyRange(k) = "x" Then
            anniv = anniv & "," & vbCrLf
        Else
            If Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) = 0 Then
                age = "(Naissance)"
            Else
                age = "(" & Year(Date) - Year(.ListColumns("Date").DataBodyRange(k)) & " ans)"
            End If
            anniv = anniv & " " & age & "," & vbCrLf
        End If
    End If
Next k
If anniv <> "" Then anniv = Left(anniv, Len(anniv) - 3)

[edit] Fichier en pièce jointe [/edit]

 

[Nicolas JACQUIN]

A Philippe,

j'ai testé, 09-24 impeccable, a part les parenthèses
Après j'ai testé 09-25 et bug

Merci

 

[Phil69970]

Nicolas
J'ai pas compris ce que tu as fait et ou tu l'as fait

Pour moi 09-24 ou 09-25 n'est pas une date correcte

 

[Nicolas JACQUIN]

A Jacky,

Ca marche (Propre) mais ça ne calcul toujours pas d'une année sur l'autre

Merci