Cellule date figée après sauvegarde

R

Raja

XLDnaute Accro

• 29 Octobre 2008

• #2

Re : Cellule date figée après sauvegarde

Bonjour,

Dans ce cas, rentre la date du jour dans la cellule prévue par le raccourci des touches

Code:

CTRL + ;

 

Vote positif 0 Vote négatif

S

Souka

Guest

• 29 Octobre 2008

• #3

Re : Cellule date figée après sauvegarde

Merci pour ta réponse Raja, mais je voudrais que la date s'inscrive automatiquement à l'ouverture du fichier de base, mais pas a l'ouverture des copies.

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 29 Octobre 2008

• #4

Re : Cellule date figée après sauvegarde

Bonsoir Souka, bonsoir Raja,

Avec ce code dans Thisworkbook:

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Range("A1").Select
If SaveAsUI And Left(Selection.Formula, 1) = "=" Then
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
End If

End Sub

Si on fait Enregistrersous (SaveasUI est vrai) et que la cellule A1 contient une formule (débute par "=") alors on fait un copier/coller valeur.

La date restera figée pour toutes les copies et copies de copies.

Exemple joint

@+

Gael

 

Pièces jointes

• Souka_V1.xls

  18 KB · Affichages: 73

Vote positif 0 Vote négatif

S

Souka

Guest

• 29 Octobre 2008

• #5

Re : Cellule date figée après sauvegarde

Merci beaucoup Gael, ça fonctionne très bien =)

 

Vote positif 0 Vote négatif