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

Cspiral · 19 Mai 2023

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 · 19 Mai 2023

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

VB:

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 :

Code:

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 · 19 Mai 2023

Merci beaucoup Sylvanu ça m'aide beaucoup

Belle journée et bon week-end !

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

Cspiral

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Cspiral

XLDnaute Nouveau

Discussions similaires