message d'alerte VBA quand cellule vide EXCEL 2007

Hulk

XLDnaute Barbatruc

• 14 Juillet 2009

• #2

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

Hello,

Essaie ceci dans le code de la feuille

Code:

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.

 

Vote positif 0 Vote négatif

R

Robinexceldownloads

XLDnaute Nouveau

• 14 Juillet 2009

• #3

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 ?

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Juillet 2009

• #4

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

Cliquez pour agrandir...

avec ceci:

Code:

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
à+
.

 

Vote positif 0 Vote négatif

R

Robinexceldownloads

XLDnaute Nouveau

• 14 Juillet 2009

• #5

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 14 Juillet 2009

• #6

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

Code:

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.

 

Vote positif 0 Vote négatif

R

Robinexceldownloads

XLDnaute Nouveau

• 14 Juillet 2009

• #7

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

Ok merci Hulk pour ton aide !

 

Vote positif 0 Vote négatif

R

Robinexceldownloads

XLDnaute Nouveau

• 16 Juillet 2009

• #8

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.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 16 Juillet 2009

• #9

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

Slt Robin,

Essaie comme ceci

Code:

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.

 

Vote positif 0 Vote négatif

R

Robinexceldownloads

XLDnaute Nouveau

• 17 Juillet 2009

• #10

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

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

 

Vote positif 0 Vote négatif

M

med_taha

XLDnaute Nouveau

• 3 Juillet 2012

• #11

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Juillet 2012

• #12

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

Bonjour à tous,

med_taha à dit:

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

Cliquez pour agrandir...

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

à+
Philippe

 

Vote positif 0 Vote négatif

M

med_taha

XLDnaute Nouveau

• 3 Juillet 2012

• #13

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.

 

Vote positif 0 Vote négatif