Macro +1 à l'ouverture de la feuille

[sev]

Bonjour, je ne sais pas comment faire une macro pour que la valeur de la cellule B4 s'ajoute +1 lors de l'ouverture de la feuille .
Si vous avez l'astuce merci d'avance.

 

[Pierrot93]

Re : Macro +1 à l'ouverture de la feuille

Bonjour Sev

je suppose que tu veux dire à l'ouverture du classeur, si c'est le cas essaye le code ci dessous à placer dans le module "ThisWorkbook" :

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

tu peux également placer la ligne de code dans le module de la feuille concernée, en selectionnant l'événement "Activate".

bonne journée

 

[Épaf]

Re : Macro +1 à l'ouverture de la feuille

Tu places ton code dans

Private Sub Worksheet_Activate()

Tu trouveras cette macro dans l'éditeur VBA, tu fais deux clics sur le nom de la feuille. En haut à gauche tu as Worksheet, tu fais un clic, t'affiche une macro, ce n'est pas celle-ci, tu vas en haut à droite et tu as les événements interceptés pour ta feuille de calculs, dont Activate -> 1 clic, c'est là !
Bonne journée

 

[sev]

Re : Macro +1 à l'ouverture de la feuille

Merci Pierrot, ça fonctionne bien à l'ouverture du classeur.
Mais je voudrais que ça fonctionne lorsque que je reviens sur la feuille 1 si je travaille sur la feuille 2.
Est ce faisable ?

 

[Pierrot93]

Re : Macro +1 à l'ouverture de la feuille

Re Sev, bonjour Epaf

comme l'avais suggéré Epaf, à placer dans le module de la feuille concernée, événement "Activate" :

Private Sub Worksheet_Activate()
Sheets("Feuil1").Range("B4").Value = Sheets("Feuil1").Range("B4").Value + 1
End Sub

@+

 

[sev]

Re : Macro +1 à l'ouverture de la feuille

Merci les amis ça marche.