Sur Excel 2000 et XP, y a-t-il moyen d'obliger quelqu'un à entrer une valeur
dans une cellule?
J'ai un document protégé et j'ai ajouté de la validation dans certaines
cellules. Par contre, la validation avertit en cas d'erreur uniquement si
je me suis positionner sur la cellule en question.
Ce que je veux en réalité c'est obligé les gens à entrer des données à la
cellule A18 par exemple. Peu importe qu'ils se soient positionner sur la
cellule ou non, je veux qu'ils ne puissent rien faire (sauvegarder) si cette
cellule là n'est pas remplie.
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
Pounet95
Bonsoir, Peut-être ces quelques lignes dans le module ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Sheets("Feuil1").Range("A1") = "" Then MsgBox "Renseigner la cellule A1 de la Feuille 1" Cancel = True Exit Sub End If End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"jo" a écrit dans le message de news:
Bonjour à tous,
Sur Excel 2000 et XP, y a-t-il moyen d'obliger quelqu'un à entrer une valeur dans une cellule?
J'ai un document protégé et j'ai ajouté de la validation dans certaines cellules. Par contre, la validation avertit en cas d'erreur uniquement si je me suis positionner sur la cellule en question.
Ce que je veux en réalité c'est obligé les gens à entrer des données à la cellule A18 par exemple. Peu importe qu'ils se soient positionner sur la cellule ou non, je veux qu'ils ne puissent rien faire (sauvegarder) si cette cellule là n'est pas remplie.
Y a-t-il une solution svp?
Merci beaucoup
Bonsoir,
Peut-être ces quelques lignes dans le module ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Sheets("Feuil1").Range("A1") = "" Then
MsgBox "Renseigner la cellule A1 de la Feuille 1"
Cancel = True
Exit Sub
End If
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"jo" <jo@discussions.microsoft.com> a écrit dans le message de news:
AD1F1D07-2CF6-4E84-933E-D3D50FED168F@microsoft.com...
Bonjour à tous,
Sur Excel 2000 et XP, y a-t-il moyen d'obliger quelqu'un à entrer une
valeur
dans une cellule?
J'ai un document protégé et j'ai ajouté de la validation dans certaines
cellules. Par contre, la validation avertit en cas d'erreur uniquement
si
je me suis positionner sur la cellule en question.
Ce que je veux en réalité c'est obligé les gens à entrer des données à la
cellule A18 par exemple. Peu importe qu'ils se soient positionner sur la
cellule ou non, je veux qu'ils ne puissent rien faire (sauvegarder) si
cette
cellule là n'est pas remplie.
Bonsoir, Peut-être ces quelques lignes dans le module ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Sheets("Feuil1").Range("A1") = "" Then MsgBox "Renseigner la cellule A1 de la Feuille 1" Cancel = True Exit Sub End If End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"jo" a écrit dans le message de news:
Bonjour à tous,
Sur Excel 2000 et XP, y a-t-il moyen d'obliger quelqu'un à entrer une valeur dans une cellule?
J'ai un document protégé et j'ai ajouté de la validation dans certaines cellules. Par contre, la validation avertit en cas d'erreur uniquement si je me suis positionner sur la cellule en question.
Ce que je veux en réalité c'est obligé les gens à entrer des données à la cellule A18 par exemple. Peu importe qu'ils se soient positionner sur la cellule ou non, je veux qu'ils ne puissent rien faire (sauvegarder) si cette cellule là n'est pas remplie.
Y a-t-il une solution svp?
Merci beaucoup
anomymousA
bonsoir,
à mettre dans le module thisworkbook. L'exemple suivant suppose donc qu'il faut qu'il y ait quelquechose en A1 de la feuille1 sinon le classeur ne se ferme pas.. Ca ne marche bien sur que si les macros ont été activées à l'ouverture du fichier. Comment selon toi, comptes-tu gérér ca ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty(Sheets("Feuil1").Cells(1, 1)) Then Cancel = True
End Sub
A+
Bonjour à tous,
Sur Excel 2000 et XP, y a-t-il moyen d'obliger quelqu'un à entrer une valeur dans une cellule?
J'ai un document protégé et j'ai ajouté de la validation dans certaines cellules. Par contre, la validation avertit en cas d'erreur uniquement si je me suis positionner sur la cellule en question.
Ce que je veux en réalité c'est obligé les gens à entrer des données à la cellule A18 par exemple. Peu importe qu'ils se soient positionner sur la cellule ou non, je veux qu'ils ne puissent rien faire (sauvegarder) si cette cellule là n'est pas remplie.
Y a-t-il une solution svp?
Merci beaucoup
bonsoir,
à mettre dans le module thisworkbook. L'exemple suivant suppose donc qu'il
faut qu'il y ait quelquechose en A1 de la feuille1 sinon le classeur ne se
ferme pas..
Ca ne marche bien sur que si les macros ont été activées à l'ouverture du
fichier. Comment selon toi, comptes-tu gérér ca ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty(Sheets("Feuil1").Cells(1, 1)) Then Cancel = True
End Sub
A+
Bonjour à tous,
Sur Excel 2000 et XP, y a-t-il moyen d'obliger quelqu'un à entrer une valeur
dans une cellule?
J'ai un document protégé et j'ai ajouté de la validation dans certaines
cellules. Par contre, la validation avertit en cas d'erreur uniquement si
je me suis positionner sur la cellule en question.
Ce que je veux en réalité c'est obligé les gens à entrer des données à la
cellule A18 par exemple. Peu importe qu'ils se soient positionner sur la
cellule ou non, je veux qu'ils ne puissent rien faire (sauvegarder) si cette
cellule là n'est pas remplie.
à mettre dans le module thisworkbook. L'exemple suivant suppose donc qu'il faut qu'il y ait quelquechose en A1 de la feuille1 sinon le classeur ne se ferme pas.. Ca ne marche bien sur que si les macros ont été activées à l'ouverture du fichier. Comment selon toi, comptes-tu gérér ca ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty(Sheets("Feuil1").Cells(1, 1)) Then Cancel = True
End Sub
A+
Bonjour à tous,
Sur Excel 2000 et XP, y a-t-il moyen d'obliger quelqu'un à entrer une valeur dans une cellule?
J'ai un document protégé et j'ai ajouté de la validation dans certaines cellules. Par contre, la validation avertit en cas d'erreur uniquement si je me suis positionner sur la cellule en question.
Ce que je veux en réalité c'est obligé les gens à entrer des données à la cellule A18 par exemple. Peu importe qu'ils se soient positionner sur la cellule ou non, je veux qu'ils ne puissent rien faire (sauvegarder) si cette cellule là n'est pas remplie.
