Discussion :

[MonsieurApollo]

Bonjour,

Après multiples recherches et essaies, je n'ai pas réussi à créer un code VBA fonctionnant adéquatement. C'est pourquoi je sollicite votre aide.

Voici mon souhait (Je me réfère au tableau ci-joint):

Dès le moment où l'une des cellules comprise dans la plage "B4:G10" est recalculé et affiche une nouvelle information, j'aimerais que la date et l'heure de ce recalcul soit mise-à-jour dans la cellule "A2".

Voici quelques paramètres importants:

- Les cellules "B4:G10" contiennent des formules
- La feuille est verrouillé en entier.
- La date et l'heure doivent être mise-à-jour dès le recalcul et seulement lors du recalcul.

Voici ce que j'ai fait jusqu'à maintenant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:G10")) Is Nothing Then
 
    ActiveSheet.Unprotect ("123abc")
    Range("A2").Value = Now
    ActiveSheet.Protect ("123abc")
 
End If
End Sub

Plusieurs variations ont également été essayées sans succès

Merci pour votre support !