Mise à zéro une cellulle en quittant le fichier

JCGL

XLDnaute Barbatruc

• 21 Août 2007

• #2

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

Cliquez pour agrandir...

A placer dans le Thisworkbook

Défusionne G1:H1 😛

A+

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 21 Août 2007

• #3

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":

Code:

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):

Code:

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.

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 21 Août 2007

• #4

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

JCGL à dit:

Bonjour,

Peux-tu essayer :



A placer dans le Thisworkbook

Défusionne G1:H1 😛

A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Août 2007

• #5

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

Re,

Ton fichier en retour

A+

 

Dernière édition: 10 Avril 2008

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 21 Août 2007

• #6

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!

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 21 Août 2007

• #7

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

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Août 2007

• #8

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

Re,

Pour compléter l'explication de Luc :




A+

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 21 Août 2007

• #9

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

Là je suis battu sur le graphisme ! 🙁

Trop fort JCGL 🙂

 

Vote positif 0 Vote négatif