Dire au dessus en VBA pour bouton

Bonjour tout le monde !!

J'aimerai modifier le code ci dessous :

Sub Bouton3_Cliquer()

Range("B3").Value = Range("B3").Value + 1

End Sub

A la place de donner comme cible une cellule précise j'aimerai que ce soit seulement "Cellule d'au dessus". Je sais pas si c'est clair je ne sais pas utiliser le langage VBA correctement. Je vous remercie d'avance.

Cordialement

Bonjour,

A tester :

Sub Bouton3_Cliquer()

     With ActiveCell
          .Value = .Offset(-1, 0) + 1
     End With

End Sub

Bonjour,

"Cellule d'au dessus" c'est bien beau, mais pour ceci il faut être sûr d'être positionné au bon endroit auparavant.

Si c'est le cas, ça donnera quelque chose comme ceci :

Sub Bouton3_Cliquer()

activell.Value = activell.offset(-1,0).Value + 1

End Sub

Bonjour Joyeux Noel. Tout d'abord merci pour ta réponse.

Je ne sais pas si je suis bien positionné. Je ne peux pas liée mon bouton à une cellule..

J'utilise les boutons de formulaire au passage pour info.

Quand je rentre ton code ça me met "Erreur d’exécution'424'" - Objet requis.

Bonjour Eric Kergresse. Je te remercie de m'avoir répondu.

Ton code fonctionne cependant ce n'est pas mon but recherché. J'ai du mal m’exprimer dans mon message.

Merci !

Sub Bouton3_Cliquer()

      ActiveCell.FormulaR1C1 = "=R[-1]C + 1"

End Sub

Ah ça y est ! On se rapproche de ce que je cherche ! Merci

C'est possible maintenant que ça ajoute 1 en plus à chaque fois que je clique sur le bouton ?