Compil de VBA

bonjour

plusieurs problème dans le code ci après quelqu'un aurais t'il amabilité de le vérifier voir si ..?

de plus dans ce code je voudrais que en si (K2=1 le msgbox) cela fonctionne si j'y inscris 1 mais c'est une formule (=SIERREUR(INDEX(hausse_tarif;EQUIV($B$8;magasin;0));"") qui me renvois le 1 et la cela ne fonctionne plus j'ai trouvé ce code sur le net j'ai voulu l'adapter

amicalement

[Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("B8"), Target) Is Nothing Then

If Range("M12") = 1 Then

UserForm1.Show

End If

End If

If [g8] <> "" Then

ActiveSheet.Shapes("Alerte").Visible = False

Else

ActiveSheet.Shapes("Alerte").Visible = True

End If

If Target.Address(0, 0) = "K2" Then

Select Case Target.Value

Case 1

MsgBox "Avez vous penser a changer le prix qui est sur le bon de prepa!", vbInformation, "changement de prix"

Case Else

'on ne fait rien

End Select

End If

End Sub]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("B8"), Target) Is Nothing Then
    If Range("M12") = 1 Then
      UserForm1.Show
    End If
  End If
  If [g8] <> "" Then
    ActiveSheet.Shapes("Alerte").Visible = False
  Else
    ActiveSheet.Shapes("Alerte").Visible = True
  End If
 If Target.Address(0, 0) = "K2" Then
     Select Case Target.Value
             Case 1
                   MsgBox "Avez vous penser a changer le prix qui est sur le bon de prepa!", vbInformation, "changement de prix"
             Case Else
               'on ne fait rien
     End Select
 End If
End Sub

Bonjour

Dans ta formule c'est (entre-autre) la modification de la cellule B8 qui positionne le 1 en K2

Essayes

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("B8"), Target) Is Nothing Then
    If Range("K2") = 1 Then
      MsgBox "Avez vous penser a changer le prix qui est sur le bon de prepa!", vbInformation, "changement de prix"
    End If
    If Range("M12") = 1 Then
      UserForm1.Show
    End If
  End If
  If [g8] <> "" Then
    ActiveSheet.Shapes("Alerte").Visible = False
  Else
    ActiveSheet.Shapes("Alerte").Visible = True
  End If
' If Target.Address(0, 0) = "K2" Then
'     Select Case Target.Value
'             Case 1
'                   MsgBox "Avez vous penser a changer le prix qui est sur le bon de prepa!", vbInformation, "changement de prix"
'             Case Else
'               'on ne fait rien
'    End Select
' End If
End Sub

merci banzaï

cela fonctionne

mais le même problème que l'autre jour il faut fermer la fenêtre deux fois

amicalement