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 !

[ARTURO83]

Bonjour,

Si la plage B4:G10 contient des formules, ce n'est pas "Not Intersect(Target, Range("B4:G10")) Is Nothing" qu'il faut donc surveiller, mais plutôt la plage de valeurs dont dépendent les formules.

Sinon utilisez :

Code :

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

Private Sub Worksheet_Calculate()

Cdlt

[MonsieurApollo]

Bonjour Arturo83,

Merci pour cette piste de solution. Celle-ci m'a amener à revoir l'ensemble de la macro donc le résultat fonctionne tel que souhaité.

Voici le nouveau code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Dim Statistiques As Range
Set Statistiques = Range("B4:G10")
If Not Intersect(Statistiques, Range("B4:G10")) Is Nothing Then
    ActiveSheet.Unprotect ("123abc")
    Range("A2").Value = Now
    ActiveSheet.Protect ("123abc")
End If
Application.EnableEvents = True
End Sub

Étant débutant et en apprentissage, je suis ouvert a toutes critiques, commentaires ou autres suggestions à l'égard de cette macro.

PS Je cherche la bonne façon de citer un code tel que corrigé dans mon premier message.

Merci !

[MonsieurApollo]

Bonjour,

Après avoir appliqué la solution trouvé, j'ai utilisé la même base de macro de sorte que la date et l'heure de modification d'une autre plage de cellules s'affiche également dans une autre cellule.

Bien que tout ceci fonctionne bien, je vie toutefois une problématique.

Dès que qu'un changement survient dans l'une ou l'autre des plages couverte par mes deux macros, la date et l'heure change partout. Un peu comme si le résultat des deux macro était fusionné.

Avez-vous une solution afin que les deux macros et leurs cellules soient indépendante l'une de l'autre ?

Merci !

[Fab_de_chez_PERFORM]

Bonjour
dans le fichier ci joint, j'ai nommé 2 plages et 2 cellules

si l'on modifie une info dans la plage jaune, cela met l'info dans la cellule jaune prévue à cet effet
si c'est dans la verte, cela reporte le "now" dans la cellule verte

ce sera à adapter à votre besoin mais l'idée est là