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 à 17:16

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

VB:

            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 · Dimanche à 17:17

Phil69970 à dit:
J'ai trouvé :

Regarde la pièce jointe 1203855

Bien vu

TooFatBoy · Dimanche à 17:22

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

Me trompé-je ?

Nicolas JACQUIN · Dimanche à 18:19

TooFatBoy à dit:
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 · Dimanche à 18:50

Nicolas JACQUIN à dit:
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 · Dimanche à 18:57

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 · Dimanche à 19:17

@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 · Dimanche à 20:31

Voici la progression, à affiner

Nico

TooFatBoy · Dimanche à 20:44

Nicolas JACQUIN à dit:
Voici la progression, à affiner

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

Nicolas JACQUIN · Dimanche à 20:45

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

J'y travaille, je cherche

AtTheOne · Dimanche à 21:27

Re

Phil69970 à dit:
Et comment tu corriges cela ici

Nicolas JACQUIN à dit:
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) :

Enrichi (BBcode):

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

Enrichi (BBcode):

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

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

AtTheOne · Dimanche à 23:24

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

VB:

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 · Lundi à 07:55

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

VB:

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

VB:

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 · Lundi à 08:12

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 · Lundi à 10:52

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)

XL 2021 Création agenda

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Phil69970

Nicolas JACQUIN

XLDnaute Impliqué

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

AtTheOne

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

AtTheOne

XLDnaute Accro

AtTheOne

XLDnaute Accro

Nicolas JACQUIN

XLDnaute Impliqué

AtTheOne

XLDnaute Accro

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Discussions similaires