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]

A modifier cette partie dans le module, partie coloriage des jours

            M = 14
            For l = 1 To 7
                If Worksheets("Paramètre").Range("E" & M).Value = True And Weekday(DateSerial(année, mois, i), vbMonday) = Worksheets("Paramètre").Range("F" & M).Value Then
                    .Range(.Cells(lig + 2, col), .Cells(derlig + 1 - Hap, col)).Interior.ColorIndex = 39
                End If
                M = M + 1
            Next l

Le fait de mettre avec ou sans pose le coloriage ne se faisait plus par rapport au jours de repos

 

[Nicolas JACQUIN]

J'ai trouvé :

Regarde la pièce jointe 1203855

Bien vu 😉

 

[TooFatBoy]

Donc le numéro de semaine sera faux 3 fois sur 7... 😅

Me trompé-je ? 🤔

 

[Nicolas JACQUIN]

Donc le numéro de semaine sera faux 3 fois sur 7... 😅

Me trompé-je ? 🤔

J'ai pas d'erreur pour ma part sur n'importe quel mois

 

[TooFatBoy]

J'ai pas d'erreur pour ma part sur n'importe quel mois

🤣 Pourquoi "sur n'importe quel mois" ???
Le mois changerait quoi à l'erreur ? 😅

As-tu lu le texte dans l'image ?

 

[AtTheOne]

Bonjour à toutes & à tous
Pour les fonctions donnant le N° de la semaine voilà une comparaison entre NO.SEMAINE et NO.SEMAINE.ISO (utilisée en europe)

		NO.SEMAINE(C2;2)	NO.SEMAINE.ISO(C2)
lundi​	01/01/2024​	1	1
mercredi​	01/01/2025​	1	1
jeudi​	01/01/2026​	1	1
vendredi​	01/01/2027​	1	53
samedi​	01/01/2028​	1	52
lundi​	01/01/2029​	1	1
mardi​	01/01/2030​	1	1
mercredi​	01/01/2031​	1	1
jeudi​	01/01/2032​	1	1
samedi​	01/01/2033​	1	53
dimanche​	01/01/2034​	1	52
lundi​	01/01/2035​	1	1
mardi​	01/01/2036​	1	1
jeudi​	01/01/2037​	1	1
vendredi​	01/01/2038​	1	53
samedi​	01/01/2039​	1	52
dimanche​	01/01/2040​	1	52
mardi​	01/01/2041​	1	1
mercredi​	01/01/2042​	1	1
jeudi​	01/01/2043​	1	1
vendredi​	01/01/2044​	1	53
dimanche​	01/01/2045​	1	52
lundi​	01/01/2046​	1	1
mardi​	01/01/2047​	1	1
mercredi​	01/01/2048​	1	1
vendredi​	01/01/2049​	1	53
samedi​	01/01/2050​	1	52

De ce fait les numéros de semaine suivants sont décalés de -1 pour le reste de l'année lorsque le N° de semaine iso est 52 ou 53 !
A bientôt

 

[Phil69970]

@AtTheOne

Et comment tu corriges cela ici

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

Je n'ai que excel 2010 ....... et c'est pas prévu de changer ..... 🤣

 

[Nicolas JACQUIN]

Voici la progression, à affiner 😉 😉

Nico

 

[TooFatBoy]

Voici la progression, à affiner 😉 😉

Et il y a toujours le problème des numéros de semaines erronés.

 

[Nicolas JACQUIN]

Et il y a toujours le problème des numéros de semaines erronés.

J'y travaille, je cherche

 

[AtTheOne]

Re

Et comment tu corriges cela ici

J'y travaille, je cherche

Une formule de Laurent LONGRE au temps où son site existait encore (valable quelque soit l'année en court) :

=ENT((madate-(DATE(ANNEE(madate-JOURSEM(madate-1)+4);1;3)-JOURSEM(DATE(ANNEE(madate-JOURSEM(madate-1)+4);1;3)))+5)/7)

Autre formule trouvée jadis sur le net (je ne sais plus où) mais limitée au 28/02/2104 :

=ENT(MOD(ENT((madate-2)/7)+0,6;52+5/28))+1

Formules à adapter pour le VBA...
Bon courage et à bientôt

 

[AtTheOne]

Re,
La formule de Laurent LONGRE sous forme de fonction VBA :

Function IsoWeekNum(jour As Date)
     Interm = DateSerial(Year(jour - WorksheetFunction.Weekday(jour - 1) + 4), 1, 3)
     IsoWeekNum = (jour - (Interm - WorksheetFunction.Weekday(Interm)) + 5) \ 7
End Function

À bientôt

 

[Nicolas JACQUIN]

Re,
La formule de Laurent LONGRE sous forme de fonction VBA :

Function IsoWeekNum(jour As Date)
     Interm = DateSerial(Year(jour - WorksheetFunction.Weekday(jour - 1) + 4), 1, 3)
     IsoWeekNum = (jour - (Interm - WorksheetFunction.Weekday(Interm)) + 5) \ 7
End Function

À bientôt

Bonjour à tous,

Merci pour le retour, entre temps j'avais trouvé aussi

Function SemISO(MyDate As Date) As Integer
  SemISO = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
  If SemISO > 52 Then
    If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then SemISO = 1
  End If
End Function

Et qui donne le même résultat que le tient (au 1er septembre plus de soucis) à tester pour les autres
Merci

Nico

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Nicolas JACQUIN
Merci, je ne connaissais pas ces paramètres de la fonction VBA FORMAT 🤔.
C'est sympa de continuer à apprendre !
À bientôt

 

[Nicolas JACQUIN]

Re, ça coince au niveau des calcul d'age entre les années (calcul ne se font pas)
Sinon j'ai trouvé une parade si année inconnu (à finir)