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

 

[jcf6464]

Re, ça coince au niveau des calcul d'age entre les années (calcul ne se font pas)
Sinon j'ai trouvé une parade si année inconnu (à finir)

Bonjour à vous tous

Tu dis
Possibilité d'ajout de date à n'importe quel moment, si le mois est déjà crée la date s'actualisera automatiquement toute seule,

Format jj/mm/yyyy ou jj/mm

Cela ne marche pas si tu n'a pas en C3 le bon mois à mettre a jour et que le mois soit déjà créer,

bonne continuation jcf

 

[Nicolas JACQUIN]

Cela ne marche pas si tu n'a pas en C3 le bon mois à mettre a jour et que le mois soit déjà créer,

Oui, faut que l'année et le mois soit saisie plus haut en B3 C3 pour que le calendrier soit remis à jour si il éxiste

 

[jcf6464]

Oui, faut que l'année et le mois soit saisie plus haut en B3 C3 pour que le calendrier soit remis à jour si il éxiste

Je créé le mois de mai et septembre en C3 j'ai septembre si je saisi un anniv du mois de mai le calendrier de mai ne se met pas à jour
il faut mettre le mois de mai en c3 revenir sur la date de l'anniv et corriger la date ,
du moins quand je fait les essais c'est ce que cela donne

le fait de mettre les 3 contrôles et réactualisation c'est plus fluide

a+ jcf

 

[Phil69970]

Je te propose cette modif pour le pb de l'anniversaire
Je n'ai pas mis à jour le code j'ai juste mis au point les dates dans le TS

Précision :
On remplit uniquement la colonne Date et on ne touche pas à la colonne Date2 c'est le code qui devra le gérer
On devrait pouvoir masquer la colonne date2 (à tester)

Qu'en penses tu ???

 

[Nicolas JACQUIN]

Je te propose cette modif pour le pb de l'anniversaire
Je n'ai pas mis à jour le code j'ai juste mis au point les dates dans le TS

Précision :
On remplit uniquement la colonne Date et on ne touche pas à la colonne Date2 c'est le code qui devra le gérer
On devrait pouvoir masquer la colonne date2 (à tester)

Qu'en penses tu ???

Oui, ça a l'air bien.
Merci à toi

 

[Nicolas JACQUIN]

Phil69970​

Si tu vieux bien jeter un oeil sur le code quand même si tu as un peu de temps, je suis
Merci

 

[Phil69970]

Nicolas

J'ai l'impression qu'il y a des pb sur ta version 1.2 du post #90

Les dates d’anniversaire ne se mettent pas toutes correctement
A confirmer avant de continuer ?
Autant partir sur de bonne base ....

Edit
J'ai re vérifié j'ai pas (plus ) trouvé de pb

 

[Phil69970]

Nicolas

Fait ce test
1) Tu supprimes toutes les feuilles de mois (septembre _2024 etc....)

Et tu recrées le mois de septembre 2024

Tu devrais avoir ceci avec seulement Marcus inconnu

2) Tu coches nico

3) tu mets anniversaire "Non"

4) tu mets anniversaire "Oui"

5) tu devrais avoir cela

Question ou est passé Marc ???
En cochant nico ==> Marc disparait !!!

Donc il y a bien 1 pb avec le fichier du post #90
Et je n’étais pas complétement fou !!!

 

[TooFatBoy]

Merci pour le retour, entre temps j'avais trouvé aussi

Function SemISO(MyDate As Date) As Integer
SemISO = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If SemISO > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then SemISO = 1
End If
End Function

Et qui donne le même résultat que le tient (au 1er septembre plus de soucis) à tester pour les autres

Vu que tu ne tiens absolument pas compte de ce que je te raconte, et que quand un truc tombe en marche tu passes à la suite sans chercher à comprendre pourquoi ça ne fonctionnait pas ni pourquoi maintenant ça fonctionne, ben forcément on se retrouve encore et toujours avec les mêmes choses pas très orthodoxe.

---

Je ne pige pas la logique interne de la Function : à quoi sert le test sur le 52 ???
Logiquement, si la semaine prochaine est la numéro 2, alors la semaine actuelle est la numéro 1. Pas besoin de test pour ça normalement, me semble-t-il.

Peux-tu m'expliquer la chose, s'il te plaît ?

 

[Nicolas JACQUIN]

Nicolas

Fait ce test

Oui exacte, mais je pense savoir d'ou vient le problème

                        For k = 1 To .ListRows.Count

                            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

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

                        Next k

Edit: Du coup ça ne prend plus en compte le avant si pas coché, faudrait tout mettre dans le même if

 

[Nicolas JACQUIN]

Peux-tu m'expliquer la chose, s'il te plaît ?

Si ta semaine est supérieur à 52 ça passe à 1.
C'est pas moi qui a inventé le code

 

[Nicolas JACQUIN]

Parce que si tu retire le 2ème anniv = ""
ça donne çela, donc c'est bien la boucle qui coince

 

[TooFatBoy]

Si ta semaine est supérieur à 52 ça passe à 1.

Donc, en admettant que ça fonctionne, quand ça vaut 53 ça retourne 1 au lieu de 53, donc un résultat faux ?

Mais ce que je ne pige pas, cette fois-ci au niveau de la logique de fonctionnement de la Function, c'est que si ça vaut 53 la semaine suivante est forcément 1 et ne sera donc jamais 2.
Me trompé-je sur ce point ?

C'est pas moi qui a inventé le code

Soit, mais peux-tu tout de même me l'expliquer s'il te plaît car j'avoue ne pas comprendre.

 

[Nicolas JACQUIN]

Donc, en admettant que ça fonctionne, quand ça vaut 53 ça retourne 1 au lieu de 53, donc un résultat faux ?

Mais ce que je ne pige pas, cette fois-ci au niveau de la logique de fonctionnement de la Function, c'est que si ça vaut 53 la semaine suivante est forcément 1 et ne sera donc jamais 2.
Me trompé-je sur ce point ?




Soit, mais peux-tu tout de même me l'expliquer s'il te plaît car j'avoue ne pas comprendre.

 

[TooFatBoy]

Ces deux images n'expliquent pas la logique de fonctionnement de la macro. Surtout avec 2024 et 2025.


[edit]
Je viens d'allumer le PC, et de tester ta Function.

En revanche, les deux images ci-dessous montrent que le test "> 52" ne sert à rien.





Mais ça prouve aussi que Format, avec le paramètre vbFirstFourDays, que je ne connaissais pas, retourne le bon "nombre".
Belle découverte !
[/edit]