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]

Si on peut les 2 pourquoi pas
les 2 sont bien

 

[Phil69970]

Par contre ceci me parait problématique

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]

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]

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

Cela devrait être la semaine 35 il me semble

 

[Nicolas JACQUIN]

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]

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]

Avec mon ancien code, j'ai pas le bug

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

 

[Nicolas JACQUIN]

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]

Avec mon ancien code, j'ai pas le bug

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

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]

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]

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]

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]

J'ai trouvé :

Ceci fonctionne :

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

 

[jcf6464]

J'ai trouvé :

Regarde la pièce jointe 1203852
Ceci fonctionne :


Regarde la pièce jointe 1203855

oui cela fonctionne