Excel VBA, Comment faire pour boucler une Msgbox lorsque le texte dans la cellule devient "Nouvelles" pour répondre à Msgbox dans la colonne suivante

Question

J'essaye de créer un MsgBox qui apparaît automatiquement avec une invite de "Oui ou Non" quand un cellule dans une colonne passe de vide à "Nouvelles", et de mettre la réponse dans la colonne suivante.

Je vais continuer à ajouter des lignes au fil du temps, il doit donc apparaître automatiquement lorsque la cellule passe de l'état vierge à «nouvelles» et entrer la réponse dans la nouvelle cellule ajoutée à droite. Je suis assez sûr que j'ai besoin de la boucle Pour chaque boucle, mais honnêtement, je suis un peu perdu et obtenir une erreur d'incompatibilité lors du débogage à la ligne If Intersect.

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim myRange As Range 

Set myRange = Range("G2:G1000") 

If Intersect(myRange, Target) Then 


If Range("G2").Value = "News" Then Answer = MsgBox("Good?", vbYesNo) 
    Answer = ActiveCell.Offset(0, 1) = 1 'not sure if this is right, or is it Range.Offset? 

Dim cel As Range 
For Each cel In Range("G2:G1000") 

    If cel.Value = "News" Then Answer = MsgBox("Good?", vbYesNo) 
    Answer = ActiveCell.Offset(0, 1) = 1 'not sure if this is right, or is it Range.Offset? 
    Exit For 

Next 

End If 

End Sub 

Answer 1

vous allez ici:

Private Sub Worksheet_Change(ByVal Target As Range) 
    On Error Resume Next 
    If Target.Column = 7 Then 
     If Target.Count = 1 Then 
      If LCase$(Target) = "news" Then 
       Application.EnableEvents = False 
       Target(, 2) = Array("Yes", "No")(MsgBox("Good?", vbYesNo) - 6) 
      End If 
     End If 
    End If 
    Application.EnableEvents = True 
End Sub