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

 

[Nicolas JACQUIN]

Il y a toujours ta Function SemISO qui n'est pas utile et que tu peux donc supprimer pour simplifier le code global.

Tu mets simplement

.Cells(1, 2 + i).Value = "Semaine " & Format(DateSerial(année, Mois, i), "ww", vbMonday, vbFirstFourDays)

dans ta partie "Fusion Numéro de semaine", et ça fera la même chose, mais plus simplement.

Merci

 

[Phil69970]

Une autre façon de faire pour l'age.....
L'age s’incrémente automatiquement en fonction de la cellule B3

 

[Nicolas JACQUIN]

Une autre façon de faire pour l'age.....
L'age s’incrémente automatiquement en fonction de la cellule B3

Merci beaucoup à toi aussi

 

[jcf6464]

Bonjour à vous tous
beau travail
A rajouter dans la feuille paramètres pour actu anniv quand on modifie les inconnu (x),

If Not Intersect(Target, Range("O3:O41")) Is Nothing Then
        actu_anniv
    End If

bonne continuation jcf