Microsoft 365 Créer un MSG Box si une cellule est vide

[Cspiral]

Bonjour à tous,

J'ai besoin de votre aide pour un projet professionnel svp !

J'ai besoin que certaines cellules d'une matrice Excel soient obligatoirement remplies

Je voudrais alors créer un Msg Box qui indique que quand on veut remplir une cellule si une autre est vide alors Msg Box "attention cellule vide"

Par exemple : je veux remplir qqchose dans la cellule B5. Si la cellule B4 est vide alors Msg Box "Attention vous devez d'abord remplir B4"

Ou alors autre solution :

ce n'est pas possible d'enregistrer le fichier si une cellule choisie est vide (donc msg box : attention vous n'avez pas rempli B4".

J'espère que c'est clair !

Je pense que c'est possible mais je n'arrive pas à trouver le bon code

Merci pour votre aide..
Clémence

 

[sylvanu]

Bonjour Cspiral ,et bienvenu sur XLD,
Un essai en PJ avec dans feuil1 :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5]) Is Nothing Then
         If [B4] = "" Then
            Application.EnableEvents = False
            MsgBox "Attention, pensez à remplir B4"
            [B5] = "": [B4].Select
        End If
    End If
Fin:
Application.EnableEvents = True
End Sub

et dans ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     If [B4] = "" Then
        MsgBox " Enregistrement impossible, B4 est vide"
        Exit Sub
    End If
End Sub

 

[Cspiral]

Merci beaucoup Sylvanu ça m'aide beaucoup

Belle journée et bon week-end !