VBA bloquer enregistrement feuille tant qu'une cellule n'est pas renseignée

Le
T94.c
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #18059181
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" 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
Le #18063401
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

http://boisgontierjacques.free.fr/fichiers/Evenementiel/BeforeSave.xls

JB
http://boisgontierjacques.free.fr

On 5 déc, 22:50, "T94.c"
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'utilisat eur ?

Merci par avance pour vos réponses.


T94.c
Le #18067421
Enorme Merci à jacques et Philippe pour ces 2 réponses.
Bonne continuation


"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

http://boisgontierjacques.free.fr/fichiers/Evenementiel/BeforeSave.xls

JB
http://boisgontierjacques.free.fr

On 5 déc, 22:50, "T94.c"
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.


Publicité
Poster une réponse
Anonyme