XL 2021 Création agenda

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
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...

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
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
VB:
.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 ;)
 

jcf6464

XLDnaute Impliqué
Bonjour à vous tous et le forum,

Je trouve un bug sur le classeur ci-joint la feuille des fêtes est vide j'ai remis la feuille en place je sauve je ferme le classeur et à sa réouverture la feuille fêtes est de nouveau vide je ne comprend pas,

bonne journée jcf
 

Pièces jointes

  • Agenda V1.5.xlsm
    132.2 KB · Affichages: 1

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour à vous tous et le forum,

Je trouve un bug sur le classeur ci-joint la feuille des fêtes est vide j'ai remis la feuille en place je sauve je ferme le classeur et à sa réouverture la feuille fêtes est de nouveau vide je ne comprend pas,

bonne journée jcf

Bonjour,

A l'ouverture, le classeur s'actualise à la date du jour, je ne sais pourquoi ta feuille FicheFete a été déplacé, le programme du coup à pris ta 1ère feuille pour la feuille à actualiser ( ?? ), du coup tu as ce décalage de plus 1 colonne chaque jour

Nicolas
 

Pièces jointes

  • Agenda V1.5 (2).xlsm
    117 KB · Affichages: 8
Dernière édition:

jcf6464

XLDnaute Impliqué
Bonjour,

A l'ouverture, le classeur s'actualise à la date du jour, je ne sais pourquoi ta feuille FicheFete a été déplacé, le programme du coup à pris ta 1ère feuille pour la feuille à actualiser ( ?? ), du coup tu as ce décalage de plus 1 colonne chaque jour

Nicolas
Bonjour Nicolas et le forum,

Je ne voie pas le fait de changer la feuille FicheFete de place dérange l'actu puisque la feuil1 est appeler pour l'actu et (c'est son nom dans le programme)

En plus y a t'il une façon de garder la position des onglet comme sur la photo merci,


mystère je vais faire avec

bonne continuation jcf
 

Pièces jointes

  • 2024-10-01.jpg
    2024-10-01.jpg
    22.6 KB · Affichages: 1
Dernière édition:

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour Nicolas et le forum,

Je ne voie pas le fait de changer la feuille FicheFete de place dérange l'actu puisque la feuil1 est appeler pour l'actu et (c'est son nom dans le programme)

mystère je vais faire avec

bonne continuation jcf

Bonjour l'ami,

J'ai ouvert ton fichier, faut que regarde à nouveau, je sais que sait son nom mais je comprends pas pourquoi ça pose problème le faite quelle soit en 1ère position.

Chez moi même le faite de fermer et enregistrer sous la feuille f^te, ça match quand même.

Problème à voir

Nico
 

jcf6464

XLDnaute Impliqué
RE
OK A VOIR

En changeant le nom de la feuil1 et repartis comme sur la photo du post 142 il y pas de problème,

sauf que quand tu créer un mois il viens s’insérer après la feuil1 au lieu de continuer après les autres mois,

JCF
 
Dernière édition:

Discussions similaires

Statistiques des forums

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