XL 2021 Création agenda

Nicolas JACQUIN · 16 Septembre 2024

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 · 17 Septembre 2024

Nicolas

Ton Pb vient d'ici

et comme je ne pense pas que l'on peut scroller une feuille non active il faudrait mémoriser le nombre de scroll de colonne

VB:

Function Actu_jour(année, mois)
    Application.ScreenUpdating = False
    Dim i As Long, nbjour As Long
    nbjour = Day(DateSerial(année, mois + 1, 0)) ' te donne le nombre de jour dans le mois en parametre
    lig = 2: col = 3
    With Worksheets("Feuil1")
        For i = 1 To nbjour
            '.Range(.Cells(lig, col), .Cells(lig + 1, col)).Interior.ColorIndex = 24
            If année = Year(Date) And mois = Month(Date) And i = Day(Date) Then
                '.Range(.Cells(lig, col), .Cells(lig + 1, col)).Interior.ColorIndex = 28 'Coloriage aujourd'hui...

Phil69970 · 23 Septembre 2024

Nicolas

Et en supprimant tout cela fonctionne il me semble

Mais à vérifier ...

VB:

'                            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 · 23 Septembre 2024

Phil69970 à dit:

Nicolas

Et en supprimant tout cela fonctionne il me semble

Mais à vérifier ...

VB:

'                            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 · 23 Septembre 2024

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

VB:

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 ?

VB:

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 :

Enrichi (BBcode):

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 · 23 Septembre 2024

TooFatBoy à dit:
VB:

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 ?

VB:

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 · 23 Septembre 2024

Nicolas JACQUIN à dit:
C'est ce que j'ai fait oui, mais c'est pareil,

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

Nicolas JACQUIN · 23 Septembre 2024

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 · 23 Septembre 2024

Nicolas JACQUIN à dit:
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 · 23 Septembre 2024

TooFatBoy à dit:
Je ne vois pas où. Peux-tu me montrer STP ?

TooFatBoy à dit:
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 · 23 Septembre 2024

Nicolas JACQUIN à dit:
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 · 23 Septembre 2024

TooFatBoy à dit:
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 · 23 Septembre 2024

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 · 23 Septembre 2024

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

VB:

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 · 23 Septembre 2024

A Philippe,

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

Merci

Phil69970 · 23 Septembre 2024

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 · 23 Septembre 2024

A Jacky,

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

Merci

XL 2021 Création agenda

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Discussions similaires