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

Nicolas JACQUIN · Dimanche à 16:00

Si on peut les 2 pourquoi pas
les 2 sont bien

Phil69970 · Dimanche à 16:06

Par contre ceci me parait problématique

jcf6464 à dit:
Quand t'on créer un mois cela va mais j'ai mis les heures en (sans pause) quand l'on change avec (pause)et

Car si tu as un RV par exemple de 12h à 13h avec Mr X

Et tu veux basculer d'une feuille sans pause à une feuille avec pause entre 12 h à 13 h que fait on du RV avec Mr X ???

Et idem pour agrandir des heures de pause..... si on tombe sur une heure de RV .......

A la limite le contraire est concevable mais me parait compliqué.

Nicolas JACQUIN · Dimanche à 16:10

Phil69970 à dit:
Par contre ceci me parait problématique

Car si tu as un RV par exemple de 12h à 13h avec Mr X

Et tu veux basculer d'une feuille sans pause à une feuille avec pause entre 12 h à 13 h que fait on du RV avec Mr X ???

Et idem pour agrandir des heures de pause..... si on tombe sur une heure de RV .......

A la limite le contraire est concevable mais me parait compliqué.

Ca confirme ce que je disais au #55

Phil69970 · Dimanche à 16:13

Je crois que j'ai vu un léger bug ici

Cela devrait être la semaine 35 il me semble

Nicolas JACQUIN · Dimanche à 16:16

Phil69970 à dit:
Je crois que j'ai vu un léger bug ici

Regarde la pièce jointe 1203850

Cela devrait être la semaine 35 il me semble

Effectivement, j'avais pas fais attention

jcf6464 · Dimanche à 16:20

Nicolas JACQUIN à dit:
Ca confirme ce que je disais au #55

Re à moins de faire les rendez-vous comme les fêtes sur une feuille à part pour remplir le calendrier

Nicolas JACQUIN · Dimanche à 16:21

Avec mon ancien code, j'ai pas le bug

VB:

.Cells(1, 2 + i).Value = "Semaine " & Application.IsoWeekNum(DateSerial(année, mois, i))

Nicolas JACQUIN · Dimanche à 16:22

jcf6464 à dit:
Re à moins de faire les rendez-vous comme les fêtes sur une feuille à part pour remplir le calendrier

Ca va devenir un gros bazard

jcf6464 · Dimanche à 16:25

Nicolas JACQUIN à dit:
Avec mon ancien code, j'ai pas le bug

VB:

.Cells(1, 2 + i).Value = "Semaine " & Application.IsoWeekNum(DateSerial(année, mois, i))

RE ta mis cela
'.Cells(1, 2 + i).Value = "Semaine " & Application.WorksheetFunction.WeekNum(DateSerial(année, mois, i))

Après essai cela fonctionne

je suis sous 365

Nicolas JACQUIN · Dimanche à 16:27

jcf6464 à dit:
RE ta mis cela
'.Cells(1, 2 + i).Value = "Semaine " & Application.WorksheetFunction.WeekNum(DateSerial(année, mois, i))

En remplacement de cette ligne là oui, mais pas compatible avec toute les versions excel apparemment

Phil69970 · Dimanche à 16:29

Nicolas JACQUIN à dit:
Avec mon ancien code, j'ai pas le bug

Donc si j'ai compris avec la 1ere ligne c'est bon mais pas compatible avec excel 2010

'.Cells(1, 2 + i).Value = "Semaine " & Application.IsoWeekNum(DateSerial(année, mois, i))
.Cells(1, 2 + i).Value = "Semaine " & Application.WorksheetFunction.WeekNum(DateSerial(année, mois, i))

et la 2eme ligne compatible excel 2010 n'est pas complètement juste !!!
Il y aurait pas un paramètre (que je ne connais pas) pour remettre à jour ma version sinon je garde mon bug car cela ne fonctionnera plus chez moi .....

Nicolas JACQUIN · Dimanche à 16:32

Phil69970 à dit:
Donc si j'ai compris avec la 1ere ligne c'est bon mais pas compatible avec excel 2010

et la 2eme ligne compatible excel 2010 n'est pas complètement juste !!!
Il y aurait pas un paramètre (que je ne connais pas) pour remettre à jour ma version sinon je garde mon bug car cela ne fonctionnera plus chez moi .....

Là je saurai pas répondre, faudrait l'avis d'une grosse tête sur le sujet.

Phil69970 · Dimanche à 16:47

A priori le bug apparait uniquement lorsque il y a 1 seul jour avant la 1ere semaine entière.

Hypothèse :
Excel considèrent le début de la semaine un dimanche comme dans la version US et excel est un produit US !!!!
Je survivrai à ce bug qui doit arriver 1 à 2 fois maxi par an !

Phil69970 · Dimanche à 16:59

J'ai trouvé :

Ceci fonctionne :

.Cells(1, 2 + i).Value = "Semaine " & Application.WorksheetFunction.WeekNum(DateSerial(année, mois, i), 2)

jcf6464 · Dimanche à 17:13

Phil69970 à dit:
J'ai trouvé :

Regarde la pièce jointe 1203852
Ceci fonctionne :

Regarde la pièce jointe 1203855

oui cela fonctionne

XL 2021 Création agenda

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Phil69970

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

jcf6464

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

jcf6464

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

jcf6464

XLDnaute Impliqué

Discussions similaires