Mise à zéro une cellulle en quittant le fichier

[jeanba]

Bonjour à tous,
J'ai mis en place un fichier de gestion de congés que je dois mettre sur le serveur et donc consultatble par tous. Je souhaite limiter la consultation, c à d, en fonction du code identifiant (que l'utilisateur rentre en G1), j'affiche les données qui le concernent et lui uniquement.
Seul souci, il faut q'en quittant le fichier, cette cellule G1 soit à zéro (voir fichier ci-joint). Comment faire?
Merci d'avance.
jean
Regarde la pièce jointe Fichier exemple RttCp.zipba

 

[JCGL]

Re : Mise à zéro une cellulle en quittant le fichier

Bonjour,

Peux-tu essayer :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("CP INDIVIDUALISE").Range("G1").ClearContents
End Sub

A placer dans le Thisworkbook

Défusionne G1:H1 😛

A+

 

[Luki]

Re : Mise à zéro une cellulle en quittant le fichier

bonjour jeanba,

Tu peux passer par une macro événementielle (à copier dans le module "thisWorkbook":

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("CP INDIVIDUALISE").Range("G1").Value = 0
End Sub

Seul Hic: il faudrait ensuite enregistrer le fichier pour conserver cette valeur à l'ouverture. Faut-il le faire? est ce possible ? c'est toi qui sais...

Autre solution, agir à l'ouverture ( à copier dans le même module que ci-dessus):

Private Sub Workbook_Open()
Sheets("CP INDIVIDUALISE").Range("G1").Value = 0
End Sub

Ainsi, à chaque ouverture G1 est à zéro.

Vois si ça convient. N'hésites pas à demander des infos.

 

[jeanba]

Re : Mise à zéro une cellulle en quittant le fichier

Bonjour,

Peux-tu essayer :



A placer dans le Thisworkbook

Défusionne G1:H1 😛

A+

Merci JCGG, tu es le plus rapide. Mais comme je débute à peine sur excel, je sias pas créer le code...s'il te plaît.
Merci d'avance
jeanba

 

[JCGL]

Re : Mise à zéro une cellulle en quittant le fichier

Re,

Ton fichier en retour

A+

 

[Luki]

Re : Mise à zéro une cellulle en quittant le fichier

re,

Alt+F11 pour ouvrir l'éditeur VBA
clic sur VBA project( fichier exemple rttCP.xls)
clis sur Microsoft excel objets
double clic sur This Workbook
copier coller le code fourni par JCGL ou par moi dans la fenêtre blanche et vide!

 

[jeanba]

Re : Mise à zéro une cellulle en quittant le fichier

Merci à vous deux Luki et JCGL. Je crois que ça marche.
merci infiniment...
jeanba

 

[JCGL]

Re : Mise à zéro une cellulle en quittant le fichier

Re,

Pour compléter l'explication de Luc :




A+

 

[Luki]

Re : Mise à zéro une cellulle en quittant le fichier

Là je suis battu sur le graphisme ! 🙁

Trop fort JCGL 🙂