Microsoft 365 Msgbox qui doit s'afficher une seule fois

[pat66]

Bonjour le forum,

pourriez vous m'aider à faire en sorte que le message ne s'affiche qu'une seule fois au premier changement de l'une de ces 2 cellules

un grand merci

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("F30,F33")) Is Nothing Then
MsgBox "Le changement de lot réinitialise les pages ""Feuil"" et ""Feuil2"" " & Chr(13) & Chr(13) & "Veuillez redéfinir la valeur initiale", vbOKOnly + vbInformation, "avertissement"
Application.EnableEvents = True
End If
end sub

pat66

 

[mapomme]

Bonjour pat66 ,

Testez le code suivant (dans le module de la feuille) :

Option Explicit
Dim dejaFait As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.ScreenUpdating = False
   If Not Application.Intersect(Target, Range("F30,F33")) Is Nothing Then
      If Not dejaFait Then
         MsgBox "Le changement de lot réinitialise les pages 'Feuil' et 'Feuil2' " & vbLf & vbLf & "Veuillez redéfinir la valeur initiale", vbOKOnly + vbInformation, "avertissement"
         dejaFait = True
      End If
   End If
End Sub

 

[Lolote83]

Bonjour,
Peut être comme ceci sans conviction car pas testé

Public xOnEstDejaPasseIci As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If xOnEstDejaPasseIci = False Then
        If Not Application.Intersect(Target, Range("F30,F33")) Is Nothing Then
            MsgBox "Le changement de lot réinitialise les pages ""Feuil"" et ""Feuil2"" " & Chr(13) & Chr(13) & "Veuillez redéfinir la valeur initiale", vbOKOnly + vbInformation, "avertissement"
            xOnEstDejaPasseIci = True
        Else
            xOnEstDejaPasseIci = False
        End If
    End If
    Application.EnableEvents = True
End Sub

Edit : Bonjour @mapomme, oups pas rafraichi.
@+ Lolote83

 

[pat66]

bonjour le fil,

Merci à tous pour la rectification ("F30,F33")

mapomme, je viens de m'apercevoir qu'il fallait placer en début de feuille
Option Explicit
Dim dejaFait As Boolean

je reteste..... je reviens le temps de rouvrir le classeur

merci

 

[pat66]

re,

j'ai testé la solution de mapomme, elle résout mon problème je vais m'en tenir à cette solution qui est plus courte
merci à tous pour votre aide si précieuse

pat66

 

[mapomme]

Bonjour @Lolote83 ,

Bonjour @mapomme, oups pas rafraichi.

Pas de problème, je le fais fréquemment aussi .
Bonne journée et à bientôt au détour d'un fil...