[XL-2007] Incorporer date si modification dans cellules

[manusp]

Bonjour,

J'aimerais intégrer dans ma feuille 1 en B3 la date et l'heure si la somme qui se trouve entre P4 et P40 de ma feuille 2 se modifie.

Est ce que quelqu'un pourrait m'aider SVP, j'ai beau chercher sur les divers FORUM je ne trouve pas

Merci

Manu

[jfontaine]

Bonjour,

Une solution avec une cellule tampon (ici la cellule A1 de la feuille 2)

- Saisir dans A1 le montant de la somme de P4 à P40 (Uniquement lors de la mise en place)
- Mettre le code ci dessous dans l'évenement Worksheet_Change de la feuille 2

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 16 And Target.Row >= 4 And Target.Row <= 40 Then
    If Application.WorksheetFunction.Sum(Range("P4:P40")) <> Range("A1").Value Then
        Sheets("Feuil1").Range("E3").Value = Now
        Range("A1").Value = Application.WorksheetFunction.Sum(Range("P4:P40"))
    End If
End If
 
End Sub