incrémenter sur une autre feuille

[MarcV]

Bonsoir à vous,

Je suis là pour poser un problème évidemment

J'ai deux feuilles presque identiques et j'utilise suivant les besoins l'une ou l'autre, mais j'ai besoins que le n° à la fin soit incrémenter sur une des feuilles si j'utilise l'autre.
J'ai essayé le code suivant :
Sheets('Releve1').Select
ActiveSheets.Range('J7') = Range('J7').Value + 1

Mais ca ne marche pas

Est-ce si mauvais que cela

On dit que la feuille 'Releve1' est la feuille qui doit s'incrémenter de 1 en J7
La feuille 'Relevebis' est celle ou est le bouton déclenchant la macro qui devrait incrémenter J7 (sur Relevé1)

Qui pourrait me corriger ?

Merci pour la peine qu'il se donnera.

MarcV

 

[myDearFriend!]

Bonsoir MarcV,

Tu peux peut-être essayer :

      With Sheets('Releve1').Range('J7')
            .Value = .Value + 1
      End With

Avec VBA, la sélection d'une cellule n'est pas obligatoire pour pouvoir en modifier le contenu...

Cordialement,

 

[MarcV]

Merci my DearFriend,

Ta solution est impeccable

Merci encore