Commentaire si modification

[Esox]

Bonjour le forum,

J'ai un fichier avec deux onglet, A et B.
Je souhaiterai, en sorti du fichier, mettre la date du jour sur l'onglet A, SI ET SEULEMENT SI, j'ai fait des modifications sur l'onglet B.

Pouvez vous m'y aider ?

Merci,

 

[Theze]

Re : Commentaire si modification

Bonjour,

A mettre dans le module de la feuille "B" :

Private Sub Worksheet_Change(ByVal Target As Range)

    ThisWorkbook.Modifier = True
    
End Sub

A mettre dans le module du classeur :

Public Modifier As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)

     If Modifier = True Then Worksheets("A").Range("A1") = Now
     
End Sub

Hervé.

 

[Esox]

Re : Commentaire si modification

Merci beaucoup, je teste cela desuite.

Merci encore,