XL 2021 Création agenda

Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
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

test form6.gif


test form7.gif
 

Pièces jointes

  • Agenda v22.xlsm
    92.3 KB · Affichages: 8
Dernière édition:
Solution
Phil69970
Nicolas

Ton Pb vient d'ici

1726522227041.png

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...
Trier par date Trier par votes
Phil69970

Phil69970

XLDnaute Barbatruc
Nicolas

Et en supprimant tout cela fonctionne il me semble :rolleyes: 🤔
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
 
Vote positif 0 Vote négatif
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Phil69970 à dit:
Nicolas

Et en supprimant tout cela fonctionne il me semble :rolleyes: 🤔
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
Cliquez pour agrandir...

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 🤔
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
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 🤔
Cliquez pour agrandir...

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
 
Dernière édition:
Vote positif 0 Vote négatif
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
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 ?
Cliquez pour agrandir...

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.
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
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.
Cliquez pour agrandir...
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.
 
Dernière édition:
Vote positif 0 Vote négatif
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
TooFatBoy à dit:
Je ne vois pas où. Peux-tu me montrer STP ?
Cliquez pour agrandir...

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 !
Cliquez pour agrandir...

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
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Nicolas JACQUIN à dit:
Je n'ai que répondre à ta demande, tu me demande de te montrer, je te montre
Cliquez pour agrandir...
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 ?
 
Vote positif 0 Vote négatif
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
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 ?
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
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]
 

Pièces jointes

  • Agenda V1.2.xlsm
    135.1 KB · Affichages: 1
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

piga25
  • Résolu(e)
XL 2016 Tableau croisé dynamique
Réponses
2
Affichages
101
piga25
piga25
Z
  • Résolu(e)
XL 2021 Tester l'existence d'un nom d'onglet
Réponses
3
Affichages
244
jm.andryszak
J
jeff1494
  • Question
XL 2021 Création d'un Tableau croisé dynamique en évitant de charger certaines lignes.
Réponses
4
Affichages
353
jeff1494
jeff1494
J
  • Question
XL 2016 Tableau structuré avec UserForm dans classeur multipages
Réponses
2
Affichages
445
jorge1201
J
T
  • Question
XL 2016 Preparer mon publipostage avant export
Réponses
0
Affichages
75
tuti
T
P
  • Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
378
ChTi160
ChTi160
Y
  • Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
137
Phil69970
Phil69970
rastafouette
  • Question
Microsoft 365 "concatener" certaines colonnes d'onglets
2
Réponses
15
Affichages
735
Phil69970
Phil69970
O
  • Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
1 K
olivier1984
O
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
462
arnoldbrice19
A

Membres actuellement en ligne

13 membres et 98 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 080
Messages
2 116 019
Membres
112 637
dernier inscrit
pseudoinconnu