aide sur excel Fermé

Question

Bonjour,
J'ai un soucis sur excel sur la conception d'un tableau.
Mon tableau a une premiére colonne qui évolue du jours actuelle (AUJOURDHUI()),jusqua 7 jours avant(AUJOURDHUIT()-7).

DATE	     NOUVEAU  
26/05/2009         28	
25/05/2009		
24/05/2009		
23/05/2009		
22/05/2009		
21/05/2009		
20/05/2009		
19/05/2009		

Le chiffre dans la colonne NOUVEAU et copier dans un autre tableau et il change tous les jours.
Ce que je veux c'est quand on passe au 27/05/2009 que mon 28 soit enregistré dans la ligne qui correspond a sa date.

DATE	     NOUVEAU
27/05/2009         37	
26/05/2009         28	
25/05/2009		
24/05/2009		
23/05/2009		
22/05/2009		
21/05/2009		
20/05/2009		

pour ce faire soit il faut enregistrer la valeur a la date, soit créé un tableau qui évolue et quand le 26/05/2009 passe a la ligne inferieur il emméne avec lui toutes la ligne.
Le plus gros probléme c que la valeur 28 est copier sur un autre tableau et vu que cette valeur change tous les jours la valeurs 28 disparait et fait apparaitre la nouvelle valeur.
pour résumé je veux:
DATE	     NOUVEAU
26/05/2009         28	
25/05/2009		
24/05/2009		
23/05/2009		
22/05/2009		
21/05/2009		
20/05/2009		
19/05/2009		
me donne sa:
DATE	    NOUVEAU
27/05/2009        37	
26/05/2009        28	
25/05/2009		
24/05/2009		
23/05/2009		
22/05/2009		
21/05/2009		
20/05/2009		

et ce que j'ai:
DATE	    NOUVEAU
26/05/2009        28	
25/05/2009		
24/05/2009		
23/05/2009		
22/05/2009		
21/05/2009		
20/05/2009		
19/05/2009		
me donne:
DATE	    NOUVEAU
27/05/2009         37	
26/05/2009   le 28 disparait	
25/05/2009		
24/05/2009		
23/05/2009		
22/05/2009		
21/05/2009		
20/05/2009		

C'est trés urgent alors merci beaucoup de votre aide.
si il n'y a pas de solution pouvez vous me donné une solution qui ce raproche de ce systéme.
Merci encore.

michel_m · Answer

Bonjour

regarde si cette maquette à adapter aux emplacements des tableaux chez toi te convient
https://www.cjoint.com/?fAmspgsT4b

La macro pourrait être aménagée pour se déclencher lors de l'ouverture du classeur
par exemple (module Thisworkbook)

Private Sub Workbook_Open()
Dim journee As Date
Dim tablo

journee = Date
With .Sheets(1)
    If journee <> .Range("B2") Then
        tablo = .Range("C2:C9").Value
        .Range("C2:C9").ClearContents
        .Range("C3:C9") = tablo
        .Range("B2") = journee
    End If
End With
End Sub

Aide sur excel

1 réponse