Macro +1 à l'ouverture de la feuille

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2007

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 10 Octobre 2007

• #3

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

Tu places ton code dans

Code:

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

 

Vote positif 0 Vote négatif

S

sev

Guest

• 10 Octobre 2007

• #4

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2007

• #5

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

Code:

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

@+

 

Vote positif 0 Vote négatif

S

sev

Guest

• 10 Octobre 2007

• #6

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

Merci les amis ça marche.

 

Vote positif 0 Vote négatif