Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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



 

Pièces jointes

  • Agenda v22.xlsm
    92.3 KB · Affichages: 8
Dernière édition:
Solution
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...

jcf6464

XLDnaute Impliqué
Bonjour à vous tous
beau travail
A rajouter dans la feuille paramètres pour actu anniv quand on modifie les inconnu (x),
VB:
If Not Intersect(Target, Range("O3:O41")) Is Nothing Then
        actu_anniv
    End If

bonne continuation jcf
 

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,

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…