[VBA]mettre a jour une feuille à l'ouverture

**kermitdive** · 23/01/2006, 13h24

bonjour,

j'ai fais un planning de gestion d'etudiants sous excel
j'ai donc sur la ligne 1 lemois
la ligne 2 la date du jour (que la date ex:21 ou22)
la ligne 3 le jour (lundi,mardi)

dans les ligne suivante de 4 à 1000 j'ai des plages de cellules coloriée selon des periodes de stage avec dans la dernière cellule de la période un commentaire
cette partie commence à la cellule d4
je voudrais qu'a l'ouverture de mon document, la calendrier réalisé se mette à la bonne date (qui se trouve en d2 et qui provient de la feuille 1 cellule f1 fonction aujourd'hui) en fait que tout ce décale vers la gauche effacant ainsi les jours passés

j'arrive à mettre le calendrier a la date du jour mais le reste de mon tableau ne bouge pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each c In Range("d2:iv2")
co = c.Column
If c.Value < Sheets("feuil1").Range("f1").Value Then _
Range(Columns(4), Columns(co)).Delete Shift:=xlToLeft: _
Range("d2").Value = Sheets("feuil1").Range("f1").Value: _
Range("d1:d3").AutoFill Destination:=Range("d1:iv3"), Type:=xlFillDefault
Next

la date est bien située mais le reste n'ayant pas bougé mes période ne sont plus bonnes

comment faire svp

cordialement

[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]

**ouskel'n'or** · 23/01/2006, 13h54

As-tu essayé avec la simple commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Calculate

placée après ton next ?

A+

**kermitdive** · 23/01/2006, 14h38

oui cela ne change rien

**repié** · 23/01/2006, 14h44

Tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False

Ca permet de mettre l'option de calcul automatique sur l'application