XL 2010 figé les données des lignes après calcul

[mobenjilali]

Bonjour

Je cherche une formule ou un code VBA pour figé les données des lignes après calcul

Donc je m’explique, j’ai deux tableaux TAB A et TAB B et une date de référence

Je veux que le TAB A soit alimenté par le TAB B (qui est à la base un TCD) suivant la date de référence,

Donc quand la date du jour change la valeur affichée dans le TAB A de la date -1 garde les valeurs

ci-joint un exemple

merci de votre aide

 

[Dranreb]

Bonjour.
Essayez ça dans le module Feuil1 (Feuil1) :

Private Sub Worksheet_Activate()
Dim DateRéf As Date, dL As Long
DateRéf = [N2].Value: dL = DateRéf - [A2].Value
If DateRéf <> Date Then
   [A2].Offset(dL).Value = DateRéf
   [B2:D2].Offset(dL).Value = [H6:J6].Value
   DateRéf = DateRéf + 1: dL = dL + 1
   [A2].Offset(dL).Value = DateRéf
   [B2:D2].Offset(dL).FormulaR1C1 = "=R6C[6]"
   [N2].Value = DateRéf
ElseIf [N2].HasFormula Then
   [N2].Value = DateRéf: End If
End Sub

 

[mobenjilali]

Merci de votre réponse, mais je n'arrive pas à l’inséré le code dans la feuille du classeur

 

[Dranreb]

Qu'est ce qui vous bloque ? J'ai dit le Module de la feuille.
Vous pouvez y accéder par clic droit sur l'onglet, Visualiser le code.
N'oubliez pas d'enregistrer en : Classeur Excel (prenant en charge les macros) (*.xlsm)

 

[mobenjilali]

le code ne fonctionne pas!! avec le fichier

 

[mobenjilali]

J'ai encore besoin de votre aide..

 

[Dranreb]

Mettez la date de hier en N2
Et n'y mettez plus de formule.

Remarque: il vaudrait mieux If DateRéf < Date Then
au lieu de : If DateRéf <> Date Then
Parce que je m'aperçois que comme c'est, s'il y a une date du lendemain ça l'incrémente aux jours suivants chaque fois qu'on active la feuille.