Forcer la saisie d'une cellule

bonjour, le forum

Je souhaite que l'utilisateur ne puisse pas quitter la feuille "accueil" pour passer à une autre feuille si une des deux cellules « E12 » ou « E15 »

ou les deux ne soient pas renseignées

Je bloque au niveau de la sélection c'est à dire je veux que la cellule "E12" soit sélectionnée si elle est vide et si ce n'est pas le cas

la deuxième cellule "E15" sera sélectionnée

J’ai réussi à faire une macro ci-dessous pour une seule cellule "E15"

Sub AffichNiv_1()
Dim var As String

Application.ScreenUpdating = False

       If Feuil1.[E15] = "" Then

          MsgBox "L'année suivante dans la cellule E15"
          [E15].Select

         Exit Sub
       End If

     Feuil4.Visible = xlSheetVisible
  If Feuil1.Visible = True Then Feuil1.Visible = xlSheetVeryHidden
  If Feuil3.Visible = True Then Feuil3.Visible = xlSheetVeryHidden
  If Feuil5.Visible = True Then Feuil5.Visible = xlSheetVeryHidden
  If Feuil6.Visible = True Then Feuil6.Visible = xlSheetVeryHidden
  If Feuil7.Visible = True Then Feuil7.Visible = xlSheetVeryHidden

     Feuil4.Select

Application.ScreenUpdating = True

End Sub

Je vous remercie à l'avance de votre aide dans l'espoir que ce soit possible.

Cordialement

Bonjour,

Dans l'évènement de la feuille que tu veux quitter, tu mets ce code :

Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
If Me.Range("E12").Value = "" Then
    MsgBox "Veuillez renseigner la cellule E12"
    Me.Activate
    Me.Range("E12").Select
ElseIf Me.Range("E15") = "" Then
    MsgBox "Veuillez renseigner la cellule E15"
    Me.Activate
    Me.Range("E15").Select
End If
End Sub

Bonne journée, et bonne année

Bonsoir, cousinhub bonsoir le forum

ça marche très bien merci beaucoup

Bonne Année 2023