Incrémenter

[jpaul625]

Bonjour a vous tout

Voici ma question : j'ai une feuille qui se nomme entré,lorsque je suis sur une autre feuille,
Ex :feuille no4.je voudrais un macro pour que quand je suis sur une autre feuille la macro incrémente la cellule j4 de la feuille entré
merci

 

[Dormeur74]

Re : Incrémenter

Il suffit de mettre le même code dans chacune des feuilles sauf la feuille d'entrée.

Private Sub Worksheet_Activate()
    With Sheets("Entrée")
        .Cells(4, 10) = .Cells(4, 10) + 1
    End With
End Sub

 

[jpaul625]

Re : Incrémenter

Salut et merci de répondre
comment je fait pour mettre le code dans une feuille
je n'ai pas beaucoup de savoir avec excel 2007
merci

 

[Dormeur74]

Re : Incrémenter

- tu crées une 4e feuille que tu nommes "Entrées"
- tu vas sous l'éditeur VB par Alt+F11
- tu déroules sur le côté gauche VBAProject (Classeur1)
- double-clic sur Feuil1
- tu déroules les listes du haut comme sur le schéma ci-dessous ("Worksheet" et "Activate")
- tu colles le code dedans et tu fais la même chose pour les feuilles 2 et 3
- tu ne mets rien dans la feuille "Entrée"
- tu sauvegardes (icône disquette) et tu retournes sous le tableur par Alt+Q
- chaque fois que tu cliqueras sur les feuilles 1, 2 ou 3, ton compteur d'incrémentera d'1 point dans la feuille "Entrée"

 

[jpaul625]

Re : Incrémenter

Merci pour ta réponse

 

[jpaul625]

Re : Incrémenter

Re salut
Maintenant es que c'est possible,
d'incrémenter la cellule i2 de la feuille princ
au début dans ce macro

Sub Macro1()
'
' Macro1 Macro
'

'
Application.ActivePrinter = "Brother HL-2240 series sur Ne05:"
ExecuteExcel4Macro _
"PRINT(1,,,2,,,,,,,,2,""Brother HL-2240 series sur Ne05:"",,TRUE,,FALSE)"
End Sub

merci

 

[jpaul625]

Re : Incrémenter

Vu que c'est une autre question
Es que je devrais faire une nouvelle discussion
merci

 

[jpaul625]

Re : Incrémenter

Je vais faire une nouvelle discution
merci