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

 

[TooFatBoy]

Bonjour,

j'ai un petit avec mon code

Le souci c'est qu'il doit manquer un mot dans ta phrase. N'est-il pas ?


Bonne chance pour la suite.

 

[Nicolas JACQUIN]

Bonjour,


Le souci c'est qu'il doit manquer un mot dans ta phrase. N'est-il pas ?


Bonne chance pour la suite.

Bonjour l'ami,
oui, il manque un petit truc mais je trouve pas

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
                ActiveWindow.ScrollColumn = i + 1     'va à la colonne aujourd'hui
            End If
            col = col + 1
        Next i
    End With
    'With Worksheets("Paramètre")
    '    ActiveWindow.ScrollColumn = 1
    'End With
End Function

je pense que c'est sur cette partie là, j'ai essayé plusieurs choses, mais dès que je je change j'ai un autre souci
Merci

 

[TooFatBoy]

Tu sais que le jour où tu comprendras ce que j'écris n'est toujours pas arrivé ?...

Je te disais qu'il devait manquer un mot !!!!!

j'ai un petit ??? avec mon code

Sur ce, bonne soirée.

 

[Nicolas JACQUIN]

Tu sais que le jour où tu comprendras ce que j'écris n'est toujours pas arrivé ?...

Je te disais qu'il devait manquer un mot !!!!!



Sur ce, bonne soirée.

Pitit Problème oui

 

[Phil69970]

Bonjour à tous

Perso j'ai un souci ici

Application.IsoWeekNum ==> Excel 2010 64 Bits non reconnu

On a pas tous

ou supérieur

 

[TooFatBoy]

Salut Phil, je n'ai pas non plus IsoWeekNum proposé dans la liste déroulante que tu montres, mais l'instruction fonctionne quand même su mon Excel 2016 (première version d'Excel où No.Semaine.Iso existe).

 

[Phil69970]

Bonjour TFB

Je ne sais pas à partir de quelle version la fonction est reconnue

 

[Nicolas JACQUIN]

Bonjour à tous

Perso j'ai un souci ici

Regarde la pièce jointe 1203530

Regarde la pièce jointe 1203531

Application.IsoWeekNum ==> Excel 2010 64 Bits non reconnu

On a pas tous Regarde la pièce jointe 1203534 ou supérieur

Regarde la pièce jointe 1203533

Bonjour,
Application.WorksheetFunction.WeekNum

 

[Phil69970]

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

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
             
                '************* A MODIFIER
                'ActiveWindow.ScrollColumn = i + 1     'va à la colonne aujourd'hui
                Dim mem As Byte
                mem = i + 1
                '************
             
            End If
            col = col + 1
        Next i
    End With
 
    '******** A RAJOUTER
    If ActiveSheet.Name = "Paramètre" Then Exit Function
    ActiveWindow.ScrollColumn = mem
    '*******************
 
End Function

Donc :
1 ligne à désactiver/supprimer
2 lignes à rajouter

+ 2 lignes à rajouter à la fin


De plus je pense que tu peux simplifier ceci :

'N°de semaine
With .Range(.Cells(1, 3), .Cells(1, dercol))
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
End With

Par ceci :

'N°de semaine
With .Range(.Cells(1, 3), .Cells(1, dercol))
.Borders.LineStyle = 1
End With

Bonne lecture

 

[Nicolas JACQUIN]

Bonjour Phil69970,

Merci pour ton retour, ça match bien

Nico

 

[Phil69970]

@Nicolas JACQUIN

Remarques :
1) Pourquoi la date de fin d’après midi s’arrête à 23 h et pas à 24 h ?
2) Pourquoi ne pas laisser la possibilité de ne pas avoir de pause ?
3) Pourquoi ne pas rajouter une ligne à la fin après ou avant les fêtes (Perso je préfère avant les fêtes ou même au tout début après le N° de semaine pour la visibilité mais non imprimable) pour les anniversaires à souhaiter ?

 

[Nicolas JACQUIN]

@Nicolas JACQUIN

Remarques :
1) Pourquoi la date de fin d’après midi s’arrête à 23 h et pas à 24 h ?
2) Pourquoi ne pas laisser la possibilité de ne pas avoir de pause ?
3) Pourquoi ne pas rajouter une ligne à la fin après ou avant les fêtes (Perso je préfère avant les fêtes ou même au tout début après le N° de semaine pour la visibilité mais non imprimable) pour les anniversaires à souhaiter ?

Pour le point n°1: C'est ce que j'avais fais au départ, mais du coup j'avais préféré commencer à 0, parce que 0 = minuit

Pour le point n°2: C'est une possibilité oui
Pour le point n°3: C'est une chose que j'avais pensé.

Pour ça j'avais pensé modifié la feuille Paramètre, faire une partie création avec plusieurs choix
et une partie modification avec plusieurs choix aussi :

- Si affichage des fêtes ou pas
- Si affichage des fériées ou pas
- Anniversaire ou Fêtes à ne pas oublier

Mais pas facile tout ça pour moi, il me faut un peut de temps quand même

 

[Phil69970]

Nicolas

1) Pourquoi la date de fin d’après midi s’arrête à 23 h et pas à 24 h ?

Pour le point n°1: C'est ce que j'avais fais au départ, mais du coup j'avais préféré commencer à 0, parce que 0 = minuit

Non je pensais plutôt à ceci :

J'ai rajouté 24 h dans la liste de validation

Pour avoir ceci :

Plutôt que cela pas top du tout pour moi

 

[Nicolas JACQUIN]

Nicolas




Non je pensais plutôt à ceci :

J'ai rajouté 24 h dans la liste de validation

Regarde la pièce jointe 1203575

Pour avoir ceci :

Regarde la pièce jointe 1203578

Plutôt que cela pas top du tout pour moi

Regarde la pièce jointe 1203576

Oui pas faux, mais vaudrait peut-être mieux remplacer par minuit alors, plus cohérent du coup ?
Que se soit le 0 ou le 24