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

Cspiral

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Essai.xlsm
    14.6 KB · Affichages: 3

Discussions similaires

Réponses
4
Affichages
507
Réponses
26
Affichages
729

Statistiques des forums

Discussions
311 078
Messages
2 076 846
Membres
241 953
dernier inscrit
dave15