Valeur d'une cellule à la fermeture

[Mapat]

Bonjour

Je voudrais qu'une cellule, K3, qui aura changé pendant l'utilisation du fichier retrouve sa valeur d'origine, 17
et ceci automatiquement à la fermeture.

Est-ce possible et comment faire ?

Merci de votre aide et bonne journée

 

[jpb388]

Re : Valeur d'une cellule à la fermeture

Bonjour à tous
copier ce code, faire alt+F11, double clic sur thisworkbook, coller, fermer en enregistrant le classeur avec l'extention xlsm à l'ouverture il y aura 17 en k3

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[K3] = 17
End Sub

 

[Paf]

Re : Valeur d'une cellule à la fermeture

Bonjour

par exemple en rajoutant ce code dans la feuille de code de ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Worksheets("NomdelaFeuille").Range("K3") = 17
End Sub

A+

 

[Robert]

Re : Valeur d'une cellule à la fermeture

Bonjour Mapat, bonjour le forum,

En haut d'un module standard (Module1 par exemple) tu déclare une variable publique, ValK3 (par exemple) :

Public ValK3 as Variant 'déclare la variable ValK3

J'ai mis le type Variant mais tu utiliseras le type adéquat...

Ensuite à l'ouverture du classeur tu stockes la valeur de K3 dans la variable ValK3 :

Private Sub Workbook_Open()
With Sheets("Feuil1") 'à adapter
    ValK3 = .Range("K3").Value
End With
End Sub

À la fermeture tu lui redonnes la valeur initiale :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1") 'à adapter
    .Range("K3").Value = ValK3
End With
ThisWorkbook.Save
End Sub

[Édition]
Bonjour JPB, Paf, on s'est croisé...

 

[pierrejean]

Re : Valeur d'une cellule à la fermeture

Bonjour Mapat

A mettre dans thisworkbook:
NB: Nom de feuille à adapter

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("K3") = 17
End Sub

Edit : A la bourre moi !!!
SAlut à tous

 

[Mapat]

Re : Valeur d'une cellule à la fermeture

Re

Merci de vos réponses rapides à vous 4
Tout fonctionne bien
Bonne journée à tous