Fonction cellule +1 si 1:65536 modifié

Bonjour a tous,

je cherche a savoir s'il est possible de créer une fonction permetant d'ajouter +1 a ma cellule dite A31 si une modification quelconque est ajouté a cette feuille de calcul.

Merci a tous d'avance

Bonjour

Avec une procédure événementielle à mettre dans le code la feuille

Clic droit sur le nom de l'onglet puis visualiser le code

Copies cette macro

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Range("A31") = Range("A31") + 1
  Application.EnableEvents = True
End Sub

Bonne journée

merci beaucoup sa marche parfaitement !!!!!!!

sa c'est du site !!!!!

-- 03 Mar 2011, 17:56 --

Super alors j'en demande peut etre trop mais maintenant il me faudrai la meme chose mais pour chaque fois que j'enregistre donc +1 en k31 si sauvegarde apres j'arrete promis.

merci merci

-- 03 Mar 2011, 17:58 --

et la date de la sauvegarde en j31