Worksheet_change ne détecte pas

Bonjour,

voici mon code, le soucis c'est que je rafraichis mes donnés avec une base de donné du coup les valeur change mais il n'est pas détecter par le worksheet_change cela fonctionne que quand je change la valeur manuellement...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("R1:R3")) Is Nothing Then
    Dim objHTTP As Object
    Dim URL As String, Json As String, ColLett As String, CellValue As String, SheetName As String
    Dim RowNum As Long
    ColLett = Split(Cells(1, Target.Column).Address, "$")(1) 'Column Letter
    RowNum = Target.Row 'Row Number
    SheetName = Name 'Sheet Name
    CellValue = Target.Value 'Cell Value
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "https://hook.integromat.com/qt2yk2j2lmb2pg62jc1hwvfqsqq?SheetName=" & SheetName & "&Column=" & ColLett & "&RowNumber=" & RowNum & "&CellValue=" & CellValue
    On Error GoTo ErrMesg
    objHTTP.Open "PATCH", URL, False
    objHTTP.setRequestHeader "Content-type", "application/json"
    objHTTP.send (Json) 'Send Information
    Exit Sub
ErrMesg:
    MsgBox "Please add your URL in URL link above"
End If
End Sub

Bonjour,

Ben oui c'est le fonctionnement de Worksheet_Change !

A+

Oui mais dois avoir une solution, parce que les donné change bien si on change les info de toute une colonne les infos change mais vue que c'est en groupe ben ce la ne fonctionne pas

Groupe ou pas groupe, Worksheet_Change ne fonctionne pas sur des formules :

Tu stockes tes données dans un tablo (Array) et tu compares tes données une par une avec le nouveau tableau.

A+