Microsoft 365 alerte si cellule change de valeur

job75

XLDnaute Barbatruc

• 16 Juin 2024

• #2

Bonjour,

Le recalcul d'une formule ne crée pas l'évènement Change, par contre il crée l'évènement Calculate.

A+

 

Vote positif 0 Vote négatif

T

thenesol

XLDnaute Junior

• 16 Juin 2024

• #3

ok merci

mais alors, comment faire pour une alerte sur un changement de valeur ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2024

• #4

Vous avez 2 solutions :

1) utiliser une macro Worksheet_Calculate

2) utiliser la macro Worksheet_Change en définissant CellulesSurveillees sur A1 et A2.

 

Vote positif 0 Vote négatif

T

thenesol

XLDnaute Junior

• 16 Juin 2024

• #5

j'ai bien essayé les 2 , mais j'ai constaté que :

1/ avec Worksheet_Calculate , nécessite de préciser la valeur (et non pas un changement quelconque)

Private Sub Worksheet_Calculate()
If Range("B2") = 5 Then MsgBox "attention !!"
End Sub

Cliquez pour agrandir...

si ça devient autre chose que 5, pas d'alerte

et 2/ avec Worksheet_Change, il faut saisir manuellement dans B2 pour avoir une alerte

est-ce bien le cas ?
si oui, impossible de surveiller un changement sur B2 (sans surveiller A1 ou A2 qui n'étaient que pour exemple)?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2024

• #6

VB:

Private Sub Worksheet_Calculate()
MsgBox "attention !!"
End Sub

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B2].DirectPrecedents) Is Nothing Then MsgBox "attention !!"
End Sub

 

Vote positif 0 Vote négatif

T

thenesol

XLDnaute Junior

• 16 Juin 2024

• #7

ça marche...!
mais avec 1 seule cellule

j'ai tenté sur plusieurs cellules avec Union mais ça plante sur la ligne "set...union..."
(et ensuite, je tenterai aussi des cellules nommées)

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Spécifiez les cellules nommées à surveiller
    Dim CellulesSurveillees As Range
'    Set CellulesSurveillees = Union(Me.Range("OK_Formules"), Me.Range("OK_cellErr"), Me.Range("Tot_Ctrl")) ' Ajoutez toutes les cellules nommées
    Set CellulesSurveillees = Union(Me.Range([A13].DirectPrecedents), Me.Range([A14].DirectPrecedents), Me.Range([K16].DirectPrecedents)) ' Ajoutez toutes les cellules nommées
'    Set CellulesSurveillees = Me.Range("B2") ' Ajoutez toutes les cellules nommées
    ' Vérifiez si l'une des cellules modifiées est surveillée
    If Not Application.Intersect(Target, CellulesSurveillees) Is Nothing Then
        ' Affichez une alerte
        MsgBox "La valeur d'une des cellules surveillées a changé !"
    End If
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2024

• #8

Vous n'utilisez pas la bonne syntaxe :

VB:

Set CellulesSurveillees = Union([A13].DirectPrecedents, [A14].DirectPrecedents, [K16].DirectPrecedents

 

Vote positif 0 Vote négatif

T

thenesol

XLDnaute Junior

• 16 Juin 2024

• #9

 

Vote positif 0 Vote négatif

T

thenesol

XLDnaute Junior

• 16 Juin 2024

• #10

et pour finir, comment écrire le code pour remplacer les adresses de cellules par des noms ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2024

• #11

thenesol à dit:

et pour finir, comment écrire le code pour remplacer les adresses de cellules par des noms ?

Cliquez pour agrandir...

Si [B2] est nommée "MaCel" remplacez [B2] par [MaCel]

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 16 Juin 2024

• #12

Bonjour à tous,
Ceci ne fonctionne pas ?

VB:

Option Explicit
Dim tmp


Private Sub Worksheet_Change(ByVal Target As Range)
    If [b2].Value <> tmp Then MsgBox "La valeur d'une des cellules surveillées a changé !"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    tmp = [b2].Value
End Sub

 

Vote positif 0 Vote négatif

T

thenesol

XLDnaute Junior

• 16 Juin 2024

• #13

super, merci encore !

dernière chose : si je lance une macro vb qui va traiter ma feuille (elle dure plusieurs minutes), y a t il une méthode propre pour qu'elle ne soit pas interrompue par ce contrôle, juste le temps de son execution, à part effacer ce code ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Juin 2024

• #14

Il suffit de désactiver les évènements puis de les réactiver :

VB:

Application.EnableEvents = False
'ici votre code
Application.EnableEvents = True

Attention, ne pas sortir de la macro avant que les évènements soient réactivés.

 

Vote positif 0 Vote négatif

T

thenesol

XLDnaute Junior

• 16 Juin 2024

• #15

cool

merci et bonne soirée !

 

Vote positif 0 Vote négatif