message d'alerte VBA quand cellule vide EXCEL 2007

[Robinexceldownloads]

Bonjour,

Je suis tout débutant en VBA.
Je cherche le moyen d'avoir un message d'alerte quand la cellule A2 est vide.

j'ai le code mais l'alerte n'apparaît que lorsque je vais dans l'éditeur VBA et que je fais exécuter.

J'aimerais que quand je suis sur la cellule A2 et que je passe à la ligne suivante en tapant sur la touche Entrée, l'alerte s'affiche.

Merci de votre aide.

ps: voici le code que j'ai mis dans Feuille1
Sub test()
If (Cells(2, 1) = Empty) Then
Select Case MsgBox("Information manquante", vbCritical, "ATTENTION")
End Select
End If
End Sub

 

[Hulk]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Hello,

Essaie ceci dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, [A2]) Is Nothing Then
        If Target = "" Then
            MsgBox "Information manquante", vbCritical, "ATTENTION"
        End If
    End If

End Sub

Cdt, Hulk.

 

[Robinexceldownloads]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Merci, ça fonctionne.

est-ce possible d'empêcher à l'utilisateur d'enregistrer le fichier Excel si il n'a pas rempli la cellule A2 ?

 

[phlaurent55]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Bonjour à tous,

est-ce possible d'empêcher à l'utilisateur d'enregistrer le fichier Excel si il n'a pas rempli la cellule A2

avec ceci:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A2").Value <> "" Then
    ActiveWorkbook.SaveAs Filename:="C:\transit\essai.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    Else
    MsgBox "La cellule A2 est vide"
    Exit Sub
End If
End Sub

Bonne journée à tous
à+
.

 

[Robinexceldownloads]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Merci beaucoup.

moi j'y mets ce code et ça marche aussi.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If [A2] = "x" Then
[A2] = ""
Else
If [A2] = "" Then
MsgBox "Por favor ingresar la información faltante", vbCritical, "ATENCION"
Cancel = True
End If
End If
End Sub

 

[Hulk]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Hello Robin, Laurent 🙂 (au fait merci Laurent de m'avoir référencé tout à l'heure 😉)

Bizarre ton code Robin...

Cependant, tu peux le simplifier comme ceci

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If [A2] = "x" Then [A2] = ""
If [A2] = "" Then
MsgBox "Por favor ingresar la información faltante", vbCritical, "ATENCION"
Cancel = True
End If

End Sub

Cdt, Hulk.

 

[Robinexceldownloads]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Ok merci Hulk pour ton aide !

 

[Robinexceldownloads]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Rebonjour,

J'ai de la même formule mais pour plusieurs cellules.
Exemple pour les cellules :
cellule A2
cellule A3
cellule A4
cellule A5
cellule A6

comment serait cette nouvelle formule pour plusieurs cellules ?

Merci.

 

[Hulk]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Slt Robin,

Essaie comme ceci

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If [A2] = "x" Then [A2] = ""
    If [A3] = "x" Then [A3] = ""
    If [A4] = "x" Then [A4] = ""
    If [A5] = "x" Then [A5] = ""
    If [A6] = "x" Then [A6] = ""

    If [A2] = "" Or [A3] = "" Or [A4] = "" Or [A5] = "" Or [A6] = "" Then
        MsgBox "Por favor ingresar la información faltante", vbCritical, "ATENCION"
        Cancel = True
    End If

End Sub

Pas très propre mais je pense ça doit jouer.

Cdt, Hulk.

 

[Robinexceldownloads]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Ca fonctionne ! Merci beaucoup Hulk ! tu es un AS !

 

[med_taha]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Bonjour j'aimerais bien avoir un code pour mon cas, que j'ai publier dans un autre poste, par contre les cellules ou je veux l'alerte sont fusionner !!! :S

 

[phlaurent55]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Bonjour à tous,

Bonjour j'aimerais bien avoir un code pour mon cas, que j'ai publier dans un autre poste, par contre les cellules ou je veux l'alerte sont fusionner !!! :S

@ med_taha: il est où l'autre post ??? .......... sur un autre forum ????

à+
Philippe

 

[med_taha]

Re : message d'alerte VBA quand cellule vide EXCEL 2007

Le voila : https://www.excel-downloads.com/threads/code-sur-liste-deroulante.187734/ en bas de la page, merci bien.