numero automatique

[Greg le Novice]

salut a vous les dieux!


Quelqu'un peut me donner un coups de mains j aimerai que lorsque j ouvre un ceratin fichier excel dans le coin en bas a droite de la page un numero compte son nombre d ouverture!


Est ce réalisable?

Merci d'avance!

 

[Munchkin]

Salut Greg

Private Sub Workbook_Open()
Cells(1, 1) = Cells(1, 1) + 1

End Sub

Tu choisit la cellule et la page que tu veux

ps : initialise la case à 0

Munchkin LE NOVICE

 

[Munchkin]

j'ai oublié de te dire si ton classeur ne souvre pas toujours à la meme page, donc là il faut préciser le nopm de la page où il y a le compteur

 

[Michel_M]

Bonjour Greg et Munchkin,

Ci joint un petit compteur très basique de tes visiteurs

Une cellule est consacrée au comptage (X1)

La position en bas à droite est à parametrer sur ta bécane avec les propriétés left et top de l'usf (peut être plus "portable" si tu restais en haut à gauche...)

A+
Michel

 

[Greg le Novice]

Merci encore a tous!

Par contre ne fais pas le modeste Munchkin tu n est pas un novice!!

 

[m.lecxe]

Re:

tu peux aussi creer un nom
insertion/nom/definir

nom dans le classeur: Ouverture

fait reference à = 0 pour initialiser;

Private Sub Workbook_Open()
ouv = Right(ActiveWorkbook.Names("Ouverture").Value, Len(ActiveWorkbook.Names("Ouverture").Value) - 1) + 1
ActiveWorkbook.Names("Ouverture").Delete
ActiveWorkbook.Names.Add Name:="Ouverture", RefersToR1C1:="=" & ouv
End Sub

a chaque fois que tu ouvre ton classeur le nom Ouverture s'incremente de 1

pour visualiser ne nombre d'ouverture, tu tape ou tu veux
=ouverture


si tu fermes ton classeur sans enregistrer ouverture ne s'incrémente pas

sinon ajoute avant end sub

thisworkbook.save


@+

 

[m.lecxe]

tu peux aussi creer un nom
insertion/nom/definir

nom dans le classeur: Ouverture

fait reference à = 0 pour initialiser;

Private Sub Workbook_Open()
ouv = Right(ActiveWorkbook.Names("Ouverture").Value, Len(ActiveWorkbook.Names("Ouverture").Value) - 1) + 1
ActiveWorkbook.Names("Ouverture").Delete
ActiveWorkbook.Names.Add Name:="Ouverture", RefersToR1C1:="=" & ouv
End Sub

a chaque fois que tu ouvre ton classeur le nom Ouverture s'incremente de 1

pour visualiser ne nombre d'ouverture, tu tape ou tu veux
=ouverture


si tu fermes ton classeur sans enregistrer ouverture ne s'incrémente pas

sinon ajoute avant end sub

thisworkbook.save


@+

 

[Valerie]

bonjour lecxe

A quel endroit est ce que tu tapes la formule ?

Merci de ton aide
valérie

 

[m.lecxe]

tu as une fenetre du style voir image4 format pdf

en bas tu as une case fait reference a : tu tapes = 0 (j'ai mis un s a tape cette fois)

@+

 

[m.lecxe]

je ne sais pas si l'image est partie, je te la renvoie
probleme de nom avec un espace
probleme de compression
je pense que c'est bon cette fois