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

mobenjilali

XLDnaute Occasionnel
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
 

Pièces jointes

  • Test.xlsx
    12.6 KB · Affichages: 34

Dranreb

XLDnaute Barbatruc
Bonjour.
Essayez ça dans le module Feuil1 (Feuil1) :
VB:
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
 

Dranreb

XLDnaute Barbatruc
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.
 
Dernière édition:

Statistiques des forums

Discussions
312 947
Messages
2 093 844
Membres
105 852
dernier inscrit
Bast