Arrêter macro après une exécution

Bonjour,

J'utilise le code suivant pour faire apparaitre un userform si la case H143 contient "Oui". Toutefois, si la case est à "Oui", le UF apparait mais après dès que je modifie une case suivante, le UF réapparait à nouveau... Comment faire en sorte qu'il n'apparaisse qu'une fois s'il vous plait ? ou du moins qu'il se cantonne à apparaitre uniquement si la case H143 est modifiée et pas une case H144.

Merci !

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("$h$143") = "Oui" Then

UserForm2.Show

Exit Sub

End If

End Sub

Salut Hugo,

Tu dois limiter l'événement à la seule cellule [H143].
Ton code actuel lit et exécute l'ouverture au moindre changement..

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, [H143]) Is Nothing Then _
    If [H143] = "Oui" Then UserForm2.Show
'
Application.EnableEvents = True
'
End Sub


A+

Rechercher des sujets similaires à "arreter macro execution"