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

TooFatBoy · 16 Septembre 2024

Bonjour,

Nicolas JACQUIN à dit:
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 · 16 Septembre 2024

TooFatBoy à dit:
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

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
                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 · 16 Septembre 2024

Nicolas JACQUIN à dit:
oui, il manque un petit truc mais je trouve pas

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

Nicolas JACQUIN à dit:
j'ai un petit ??? avec mon code

Sur ce, bonne soirée.

Nicolas JACQUIN · 16 Septembre 2024

TooFatBoy à dit:
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 · 16 Septembre 2024

Bonjour à tous

Perso j'ai un souci ici

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

On a pas tous ou supérieur

TooFatBoy · 16 Septembre 2024

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 sur mon Excel 2016 (première version d'Excel où No.Semaine.Iso existe).

Phil69970 · 16 Septembre 2024

Bonjour TFB

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

Nicolas JACQUIN · 16 Septembre 2024

Phil69970 à dit:
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 · 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
             
                '************* 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 · 17 Septembre 2024

Bonjour Phil69970,

Merci pour ton retour, ça match bien

Nico

Phil69970 · 17 Septembre 2024

@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 · 17 Septembre 2024

Phil69970 à dit:
@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 · 17 Septembre 2024

Nicolas

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

Nicolas JACQUIN à dit:
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 · 17 Septembre 2024

Phil69970 à dit:
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

XL 2021 Création agenda

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Phil69970

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Nicolas JACQUIN

XLDnaute Impliqué

Discussions similaires