Workbook ou Worksheet "Compteur"

Bonjour,

J'ai fait un compteur dans une feuille.

Mais il ne fonctionne que si je le mets dans Worbook, le problème est qu'il incrémente toutes les cellules de toutes les feuilles.

Je voudrais qu'il ne soit que dans une feuille

mais il ne fonctionne pas.

Private Sub Worksheet_Open()
Dim num As Integer
Range("K4").Select
num = Range("K4").Value
num = num + 1
Range("K4").Value = num
End Sub

Dans Workbook cela fonctionne

Private Sub Workbook_Open()
Dim num As Integer
Range("A4").Select
num = Range("A4").Value
num = num + 1
Range("A4").Value = num
End Sub

Merci

Bonjour

Il le placer dans THSIWORKBOOK et pas dans la feuille comme tu l'as fait dans ton fichier.

Ton souci vient aussi du fait que tu ne nommes pas ta feuille dans ton code

Essaie comme ceci :

Private Sub Workbook_Open()
Dim num As Integer
num = Sheets("Feuil1").Range("A4").Value
num = num + 1
Sheets("Feuil1").Range("A4").Value = num
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Amicalement

edit Dan : code corrigé

Bonjour, Salut Dan,

Ou bien tout simplement mais toujours dans le module "ThisWorkbook" :

Private Sub Workbook_Open()
    Sheets("Feuil1").Range("A4") = Sheets("Feuil1").Range("A4") + 1
End Sub

Remarque : Existe-t-il un évènement Worksheet_Open ?

Bonjour Dan et Raja,

Je ne pense pas qu'il existe un worksheet_open, c'est tout simplement une idée à moi!!!!

Merci pour vos explications si simples.

Bon vent à tous

Re

Je ne pense pas qu'il existe un worksheet_open

En voulant te répondre trop vite....

Effectivement.

Code corrigé dans mon post

Amicalement