Macro avec boîte de message de show si la cellule contient une valeur

Question

Je voudrais faire une macro. Mes cellules de test sont sur une autre feuille. Feuille - (données) Macro vérifier une plage ("D2:D10") si les cellules contiennent la valeur 12 si oui montrez-moi une boîte de message "Go to add to system" et cette cellule où la macro a trouvé une valeur sera mis à 0.

J'ai ce code mais il doesn ' Je travaille pour moi Je ne sais pas pourquoi. Pouvez-vous m'aider?

Private Sub check(ByVal Target As Range) 
For Each c In Worksheet("data").Range("D2:D10") 
If Range("D2:D10") = 12 Then 
    MsgBox "Go to add to system" 
    Range ("D2:D10").value = 0 
End If 
Next c 
End Sub 

Answer 1

Le code ci-dessous corrigera votre code (il fonctionnera sans erreur):

Option Explicit 

Private Sub check(ByVal Target As Range) 

Dim c As Range 

For Each c In Worksheets("data").Range("D2:D10") 
    If c.Value = 12 Then 
     MsgBox "Go to add to system" 
     c.Value = 0 
    End If 
Next c 

End Sub 

Cependant, vous pouvez aller avec une approche légèrement différente - en accomplissant ce que vous essayez d'atteindre dans le Worksheet_Change événement (de la feuille "données").

code

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim c As Range 

' Optional : use if criteria below to check the range only 
' if one of the cells inside range("D2:D10") has changed 
If Not Intersect(Range("D2:D10"), Target) Is Nothing Then 
    ' if you decide to use the "If"above, then you don't need the "For" loop below 
    For Each c In Range("D2:D10") 
     If c.Value = 12 Then 
      MsgBox "Go to add to system" 
      c.Value = 0 
     End If 
    Next c 
End If 

End Sub