Figer un résultat à une date précise

[dubois]

Bonjour à tous,

et moi j'aimerai automatiser tout cela (tableau de février).

Tu veux automatiser quoi exactement , la création du tableau recap ou simplement
figer la valeur en fin de semaine ?

On pourrait imaginer qu'en fin de semaine, le feuille recap se remplisse d'une ligne
correspondant aux calculs filtrés de la semaine. (en dur, sans formules)
Pour cela, il faudrait transposer les tableaux comme ma feuille exemple.
1 ligne = 1 semaine
ton avis ?
Amicalement
Claude

[Pa39]

Bonjour, et merci pour l'exemple.

Je voudrais automatiser seulement la valeur, les tableaux étant déjà tracés par avance. A moins que tu me trouve un moyen de faire tout ca automatiquement mais ca risque de devenir assez complexe.

Ensuite, je préfèrerais garder les tableaux dans leur forme actuelle; maintenant, si ca peux réellement simplifier les choses et éviter des dizaines de lignes de code alors pourquoi pas.

[dubois]

re,
C'est ce que tu as actuellement qui est complexe !
Je vais faire un essai en suivant mon idée, pour voir ce que çà donnerait
tu n'aurai plus à t'occuper de la recap,

Sur quelle colonne doit-on prendre la semaine pour filtrer ?
à te relire
Claude

[Pa39]

Sur quelle colonne doit-on prendre la semaine pour filtrer ?

Hm, je ne comprend pas, tout dépend pour filtrer quoi.

[dubois]

re,
Bon, oublie ce que j'ai dis + haut, je vois que çà t'emballe pas !

J'en reste donc à ta demande initiale
Teste et dis-moi
Claude

[Pa39]

Non, moi ca m'emballe plutôt bien, mais étant donné que ce n'est pas moi qui me servirai du fichier mais ma chef, j'ai peur qu'elle trouve le truc trop complexe et me dise que ca allait très bien comme elle faisait avant
Je pense qu'elle voudra quand même un minimum de souplesse avec le fichier.
Et puis c'est déjà sympa de ta part de me fournir ca, alors je veux pas t'embêter non plus avec des trucs dont elle risque de même pas se servir.

Pour le fichier d'essai, pas la peine de figer les autres valeurs pour l'instant, au pire je referai ca plus tard si nécéssaire. Et oui, j'aimerais que la macro se lance lors de l'ouverture du fichier comme ca pas de soucis.

Petite question annexe: J'arrive à comprendre un peu près la macro, il y a juste ce "b4:e" que je ne comprends pas, à quoi sert-il ?
Merci.

[dubois]

re,
dans le ThisWorkbook

Code: Tout sélectionner

Private Sub Workbook_Open()
    Call FigeValeurSemaine
End Sub

dans un module, cette nouvelle macro
Sem ou sem sont maintenant reconnus
Range("b4:f" & Lg) c'est la plage qui est balayée pour trouver les "sem"

Code: Tout sélectionner

Sub FigeValeurSemaine()
Dim Lg%, Cel As Range, i As Byte, Ns As Byte
'Macros par Claude Dubois pour "Pa39" Excel-Pratique le 9/03/10
    Sheets("mensuel").Activate
        Lg = Range("a65536").End(xlUp).Row
        Ns = Range("b2") - 1
    Application.ScreenUpdating = False
    For i = 1 To Ns
        For Each Cel In Range("b4:f" & Lg)
            If Cel = "sem " & i Or Cel = "Sem " & i Then
                Cel.Offset(4, 0) = Cel.Offset(4, 0) 'fige valeur
            End If
        Next Cel
    Next i
End Sub

Attention: je crois que dans ton 1er tableau d'origine (janvier), il y avait une ligne de trop
Amicalement
Claude

[Pa39]

Ok parfait, de toute facon je comptais refaire entièrement l'apparence des tableaux (sans changer la forme).
Tout ca devrait largement me satisfaire.
Merci beaucoup de ton aide
A+