XL 2021 Mettre la date à jour reprise

[bobafric]

Bonjour, désolé mais je reprends le fil "Mettre la date à jour" car je ne peux pas appliquer la solution de Barbatruc sur mon fichier car je n'avais pas complété le fichier. Sur mon fichier joint j'ai rajouté les 12 mois de l'année., ça complique le code. Est ce que c'est possible?

 

[sylvanu]

Bonjour Bobafric,
Dans cette PJ, j'ai repris toutes les dates avec le bon mois et la bonne année. ( nous sommes en 2025 non en 2026 ), et j'ai modifié la macro :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D6:D13]) Is Nothing Then
        Dim L%, C%
        Mois = Array("", "janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "décembre")
        NomFeuille = Mois(Month([A1]))
        L = Application.Match([A1], Sheets(NomFeuille).[A:A], 0)
        If Not IsError(L) Then
            C = Target.Row - 4
            With Sheets(NomFeuille)
                .Cells(L, C) = Target
                .Cells(L, 10) = Application.Sum([D6:D13])
                .Cells(L, 11) = [E14]
            End With
        End If
    End If
Fin:
End Sub

NB : "Barbatruc" n'est pas un nom, mais une sorte de "témoins d'ancienneté" 😂

 

[bobafric]

Bonjour Bobafric,
Dans cette PJ, j'ai repris toutes les dates avec le bon mois et la bonne année. ( nous sommes en 2025 non en 2026 ), et j'ai modifié la macro :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D6:D13]) Is Nothing Then
        Dim L%, C%
        Mois = Array("", "janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "décembre")
        NomFeuille = Mois(Month([A1]))
        L = Application.Match([A1], Sheets(NomFeuille).[A:A], 0)
        If Not IsError(L) Then
            C = Target.Row - 4
            With Sheets(NomFeuille)
                .Cells(L, C) = Target
                .Cells(L, 10) = Application.Sum([D6:D13])
                .Cells(L, 11) = [E14]
            End With
        End If
    End If
Fin:
End Sub

NB : "Barbatruc" n'est pas un nom, mais une sorte de "témoins d'ancienneté" 😂

 

[bobafric]

Pardon Sylvanu c'est ton nom que je voulais dire, c'est un "lapsus calami". dans ta solution le total de la cellule E14 devrait se trouver dans la col K (POIDS/JOUR). Ce qui n'était déjà pas le cas précédemment. Merci et mille excuses

 

[sylvanu]

Re,
Oups, petit raté.

 

[Dranreb]

Bonjour.
Ce que je ne comprends pas dans votre classeur c'est que dans la feuille EXE il y a deux informations portées en regard des NOMS pour une date, tandis que dans vos feuilles de mois il n'y en a qu'une seule. Sont-ce bien les POIDS dont il ne faut pas garder le détail ?

 

[bobafric]

Re,
Oups, petit raté.

 

[bobafric]

ça marche pour le poids. par contre, je n'arrive pas à adapter le code avec mon fichier original.Dans le code, qu'est ce que l'expression Sheets(NomFeuille), il doit y avoir un problème avec la dénomination de la feuille EXE voir le fichier joint

 

[sylvanu]

Re,
Vous abusez, lisez mon post :

Dans cette PJ, j'ai repris toutes les dates avec le bon mois et la bonne année. ( nous sommes en 2025 non en 2026 )

Je confirme, nous sommes bien en 2025.

1- Dans votre PJ en janvier il n'y a que 2026. Et toutes les autres feuilles sont vierges.
Pourquoi ne pas avoir repris le fichier précédent, j'avais modifié toutes les feuilles ?
2- Dans votre feuille de Janvier il y a la colonne nommée "I" alors que dans Exe on va de A à H.
Comment voulez vous que ça marche si à chaque PJ vous changez les formats ?
3- Dans votre PJ la macro n'set pas la dernière !!!

Et c'est quoi cette colonne F nommée "Col" dans Exe, elle doit servir à quelque chose?

En PJ j'ai remis comme dans la dernière version, à savoir :
1- Dernière version de la macro
2- Bonne année dans Janvier
3- Colonne nommée I supprimée dans Janvier
4- Contenu de Col F de Exe supprimée

 

[bobafric]

Re,
Vous abusez, lisez mon post :

Je confirme, nous sommes bien en 2025.

1- Dans votre PJ en janvier il n'y a que 2026. Et toutes les autres feuilles sont vierges.
Pourquoi ne pas avoir repris le fichier précédent, j'avais modifié toutes les feuilles ?
2- Dans votre feuille de Janvier il y a la colonne nommée "I" alors que dans Exe on va de A à H.
Comment voulez vous que ça marche si à chaque PJ vous changez les formats ?
3- Dans votre PJ la macro n'set pas la dernière !!!

Et c'est quoi cette colonne F nommée "Col" dans Exe, elle doit servir à quelque chose?

En PJ j'ai remis comme dans la dernière version, à savoir :
1- Dernière version de la macro
2- Bonne année dans Janvier
3- Colonne nommée I supprimée dans Janvier
4- Contenu de Col F de Exe supprimée

Excuses moi Sylvanu, mais je me mêle le méninges à force de sortir des fichiers. Pour la colonne I je ne l'avais pas dans mon fichier exemple mais elle doit apparaitre. Pour la colonne F dans la page EXE, cela n'a pas d'importance c'est à remplir à la main.

 

[sylvanu]

Re,
En PJ une nouvelle version avec :
1- Toutes les feuilles sont avec le bon calendrier... et la bonne année.
2- Le "I" a été rajouté, et une colonne "I" a été rajoutée sur toutes les feuilles.
3- La macro a été remise à jour pour tenir compte de la nouvelle ligne "I"

 

[bobafric]

Re,
En PJ une nouvelle version avec :
1- Toutes les feuilles sont avec le bon calendrier... et la bonne année.
2- Le "I" a été rajouté, et une colonne "I" a été rajoutée sur toutes les feuilles.
3- La macro a été remise à jour pour tenir compte de la nouvelle ligne9

 

[bobafric]

ça c'est fait et bien fait!! Merci beaucoup Sylvanu ça fonctionne parfaitement à bientôt