Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir, Avec ceci dans le module ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If [a1] = "" Then MsgBox "Tu vas renseigner la cellule A1," _ & " oui !?!", vbCritical, "MPFE" Cancel = True End If End Sub
tu disposeras au moins d'une alerte si A1n'est pas renseignée -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "T94.c" a écrit dans le message de news:4939a20a$0$912$
Bonjour
Est il possible de bloquer la fonction enregistrement d'une feuille excel TANT qu'une cellule précise n'a pas été renseignée par l'utilisateur ?
Merci par avance pour vos réponses.
Bonsoir,
Avec ceci dans le module ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
If [a1] = "" Then
MsgBox "Tu vas renseigner la cellule A1," _
& " oui !?!", vbCritical, "MPFE"
Cancel = True
End If
End Sub
tu disposeras au moins d'une alerte si A1n'est pas renseignée
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"T94.c" <t94.c@laposte.net> a écrit dans le message de
news:4939a20a$0$912$ba4acef3@news.orange.fr...
Bonjour
Est il possible de bloquer la fonction enregistrement d'une feuille excel
TANT qu'une cellule précise n'a pas été renseignée par l'utilisateur ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If [a1] = "" Then MsgBox "Tu vas renseigner la cellule A1," _ & " oui !?!", vbCritical, "MPFE" Cancel = True End If End Sub
tu disposeras au moins d'une alerte si A1n'est pas renseignée -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "T94.c" a écrit dans le message de news:4939a20a$0$912$
Bonjour
Est il possible de bloquer la fonction enregistrement d'une feuille excel TANT qu'une cellule précise n'a pas été renseignée par l'utilisateur ?
Merci par avance pour vos réponses.
JB
Bonjour,
Pour sauvegarder le fichier avec A1 vide la première fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "x" Then [A1] = "" Else If [A1] = "" Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Est il possible de bloquer la fonction enregistrement d'une feuille excel TANT qu'une cellule précise n'a pas été renseignée par l'utilisat eur ?
Merci par avance pour vos réponses.
Bonjour,
Pour sauvegarder le fichier avec A1 vide la première fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "x" Then
[A1] = ""
Else
If [A1] = "" Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub
Pour sauvegarder le fichier avec A1 vide la première fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "x" Then [A1] = "" Else If [A1] = "" Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Est il possible de bloquer la fonction enregistrement d'une feuille excel TANT qu'une cellule précise n'a pas été renseignée par l'utilisat eur ?
Merci par avance pour vos réponses.
T94.c
Enorme Merci à jacques et Philippe pour ces 2 réponses. Bonne continuation
"JB" a écrit dans le message de news:
Bonjour,
Pour sauvegarder le fichier avec A1 vide la première fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "x" Then [A1] = "" Else If [A1] = "" Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
Est il possible de bloquer la fonction enregistrement d'une feuille excel TANT qu'une cellule précise n'a pas été renseignée par l'utilisateur ?
Merci par avance pour vos réponses.
Enorme Merci à jacques et Philippe pour ces 2 réponses.
Bonne continuation
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
784f5508-b473-4516-96eb-5c0d2d62caab@h5g2000yqh.googlegroups.com...
Bonjour,
Pour sauvegarder le fichier avec A1 vide la première fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "x" Then
[A1] = ""
Else
If [A1] = "" Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub
Enorme Merci à jacques et Philippe pour ces 2 réponses. Bonne continuation
"JB" a écrit dans le message de news:
Bonjour,
Pour sauvegarder le fichier avec A1 vide la première fois:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If [A1] = "x" Then [A1] = "" Else If [A1] = "" Then MsgBox "La Cellule A1 n'est pas saisie" Cancel = True End If End If End Sub
