comment rendre obligatoire la saisie de certaines cellules
3 réponses
Francky
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi) partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir des
colonnes (je schématise) et dois me valider ce tableau par ces
initiales,dates & heures. la seconde doit le contrôler et a son tour le
valider par ces initiales, dates & heures.
1 - Comment peut on rendre obligatoire la saisie des initiales avant que
l'utilisateur enregistre le tableau ?
2 - Est il possible d'avoir une date et une heure sur le document à chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter,
et vous souhaite une bonne journée
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
Jacky
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre: Sur une feuille vierge (feuil4 dans l'exemple) A adapter De B1 à B3, entrer les initiales des personnes autorisées Puis dans le module de ThisWorkbook ceci: '----------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) initiale = UCase(InputBox("Entrez vos initiales", "Données obligatoires")) x = 0 For i = 1 To 3 If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then Cancel = False x = 1 End If Next If x = 0 Then MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier" Cancel = True End If End Sub '----------------------
Private Sub Workbook_Open() For i = 1 To 3 Sheets("feuil4").Range("a" & i) = "" Next End Sub '------------------ Pour la question 2, je sais que ces informations existent, mais je n'ai plus leurs syntaxes, je cède donc la main.
Salutations JJ
"Francky" a écrit dans le message de news:
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi) partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir des colonnes (je schématise) et dois me valider ce tableau par ces initiales,dates & heures. la seconde doit le contrôler et a son tour le valider par ces initiales, dates & heures. 1 - Comment peut on rendre obligatoire la saisie des initiales avant que l'utilisateur enregistre le tableau ? 2 - Est il possible d'avoir une date et une heure sur le document à chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter, et vous souhaite une bonne journée
Franck
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre:
Sur une feuille vierge (feuil4 dans l'exemple) A adapter
De B1 à B3, entrer les initiales des personnes autorisées
Puis dans le module de ThisWorkbook ceci:
'-----------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
initiale = UCase(InputBox("Entrez vos initiales", "Données obligatoires"))
x = 0
For i = 1 To 3
If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then
Cancel = False
x = 1
End If
Next
If x = 0 Then
MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier"
Cancel = True
End If
End Sub
'----------------------
Private Sub Workbook_Open()
For i = 1 To 3
Sheets("feuil4").Range("a" & i) = ""
Next
End Sub
'------------------
Pour la question 2, je sais que ces informations existent, mais je n'ai
plus leurs syntaxes, je cède donc la main.
Salutations
JJ
"Francky" <francky@rock.graceland> a écrit dans le message de
news:1116670888.25681.0@damia.uk.clara.net...
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi)
partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir des
colonnes (je schématise) et dois me valider ce tableau par ces
initiales,dates & heures. la seconde doit le contrôler et a son tour le
valider par ces initiales, dates & heures.
1 - Comment peut on rendre obligatoire la saisie des initiales avant que
l'utilisateur enregistre le tableau ?
2 - Est il possible d'avoir une date et une heure sur le document à
chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter,
et vous souhaite une bonne journée
Pour la question 1 on pourrait imaginer un truc du genre: Sur une feuille vierge (feuil4 dans l'exemple) A adapter De B1 à B3, entrer les initiales des personnes autorisées Puis dans le module de ThisWorkbook ceci: '----------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) initiale = UCase(InputBox("Entrez vos initiales", "Données obligatoires")) x = 0 For i = 1 To 3 If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then Cancel = False x = 1 End If Next If x = 0 Then MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier" Cancel = True End If End Sub '----------------------
Private Sub Workbook_Open() For i = 1 To 3 Sheets("feuil4").Range("a" & i) = "" Next End Sub '------------------ Pour la question 2, je sais que ces informations existent, mais je n'ai plus leurs syntaxes, je cède donc la main.
Salutations JJ
"Francky" a écrit dans le message de news:
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi) partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir des colonnes (je schématise) et dois me valider ce tableau par ces initiales,dates & heures. la seconde doit le contrôler et a son tour le valider par ces initiales, dates & heures. 1 - Comment peut on rendre obligatoire la saisie des initiales avant que l'utilisateur enregistre le tableau ? 2 - Est il possible d'avoir une date et une heure sur le document à chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter, et vous souhaite une bonne journée
Franck
Jacky
Oupsss Erreur de collage, il faut oublier le "Private Sub Workbook_Open()"
JJ
"Jacky" a écrit dans le message de news:epxB$
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre: Sur une feuille vierge (feuil4 dans l'exemple) A adapter De B1 à B3, entrer les initiales des personnes autorisées Puis dans le module de ThisWorkbook ceci: '----------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) initiale = UCase(InputBox("Entrez vos initiales", "Données obligatoires"))
x = 0 For i = 1 To 3 If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then Cancel = False x = 1 End If Next If x = 0 Then MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier" Cancel = True End If End Sub '----------------------
Private Sub Workbook_Open() For i = 1 To 3 Sheets("feuil4").Range("a" & i) = "" Next End Sub '------------------ Pour la question 2, je sais que ces informations existent, mais je n'ai
plus leurs syntaxes, je cède donc la main.
Salutations JJ
"Francky" a écrit dans le message de news:
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi) partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir des
colonnes (je schématise) et dois me valider ce tableau par ces initiales,dates & heures. la seconde doit le contrôler et a son tour le
valider par ces initiales, dates & heures. 1 - Comment peut on rendre obligatoire la saisie des initiales avant que
l'utilisateur enregistre le tableau ? 2 - Est il possible d'avoir une date et une heure sur le document à chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter, et vous souhaite une bonne journée
Franck
Oupsss
Erreur de collage, il faut oublier le "Private Sub Workbook_Open()"
JJ
"Jacky" <delaenlevezjusquiciJacky.jaeg@Wbidon.fr> a écrit dans le message
de news:epxB$vfXFHA.712@TK2MSFTNGP14.phx.gbl...
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre:
Sur une feuille vierge (feuil4 dans l'exemple) A adapter
De B1 à B3, entrer les initiales des personnes autorisées
Puis dans le module de ThisWorkbook ceci:
'-----------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
initiale = UCase(InputBox("Entrez vos initiales", "Données
obligatoires"))
x = 0
For i = 1 To 3
If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then
Cancel = False
x = 1
End If
Next
If x = 0 Then
MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier"
Cancel = True
End If
End Sub
'----------------------
Private Sub Workbook_Open()
For i = 1 To 3
Sheets("feuil4").Range("a" & i) = ""
Next
End Sub
'------------------
Pour la question 2, je sais que ces informations existent, mais je
n'ai
plus leurs syntaxes, je cède donc la main.
Salutations
JJ
"Francky" <francky@rock.graceland> a écrit dans le message de
news:1116670888.25681.0@damia.uk.clara.net...
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi)
partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir
des
colonnes (je schématise) et dois me valider ce tableau par ces
initiales,dates & heures. la seconde doit le contrôler et a son tour
le
valider par ces initiales, dates & heures.
1 - Comment peut on rendre obligatoire la saisie des initiales avant
que
l'utilisateur enregistre le tableau ?
2 - Est il possible d'avoir une date et une heure sur le document à
chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter,
et vous souhaite une bonne journée
Oupsss Erreur de collage, il faut oublier le "Private Sub Workbook_Open()"
JJ
"Jacky" a écrit dans le message de news:epxB$
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre: Sur une feuille vierge (feuil4 dans l'exemple) A adapter De B1 à B3, entrer les initiales des personnes autorisées Puis dans le module de ThisWorkbook ceci: '----------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) initiale = UCase(InputBox("Entrez vos initiales", "Données obligatoires"))
x = 0 For i = 1 To 3 If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then Cancel = False x = 1 End If Next If x = 0 Then MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier" Cancel = True End If End Sub '----------------------
Private Sub Workbook_Open() For i = 1 To 3 Sheets("feuil4").Range("a" & i) = "" Next End Sub '------------------ Pour la question 2, je sais que ces informations existent, mais je n'ai
plus leurs syntaxes, je cède donc la main.
Salutations JJ
"Francky" a écrit dans le message de news:
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi) partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir des
colonnes (je schématise) et dois me valider ce tableau par ces initiales,dates & heures. la seconde doit le contrôler et a son tour le
valider par ces initiales, dates & heures. 1 - Comment peut on rendre obligatoire la saisie des initiales avant que
l'utilisateur enregistre le tableau ? 2 - Est il possible d'avoir une date et une heure sur le document à chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter, et vous souhaite une bonne journée
Franck
Did
Bonjour
Voici un lien http://cjoint.com/?fvrL1Jynsq pour telecharger un classeur exemple avec creation d'un journal pour chaque ouverture et fermeture ( modification ??? ) Pour plus de discretion la feuille "Journal" doit être en propriete visible = 0- xlSheetHidden
A+ Did
"Jacky" a écrit dans le message de news: O12k%
Oupsss Erreur de collage, il faut oublier le "Private Sub Workbook_Open()"
JJ
"Jacky" a écrit dans le message de news:epxB$
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre: Sur une feuille vierge (feuil4 dans l'exemple) A adapter De B1 à B3, entrer les initiales des personnes autorisées Puis dans le module de ThisWorkbook ceci: '----------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) initiale = UCase(InputBox("Entrez vos initiales", "Données obligatoires"))
x = 0 For i = 1 To 3 If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then Cancel = False x = 1 End If Next If x = 0 Then MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier" Cancel = True End If End Sub '----------------------
Private Sub Workbook_Open() For i = 1 To 3 Sheets("feuil4").Range("a" & i) = "" Next End Sub '------------------ Pour la question 2, je sais que ces informations existent, mais je n'ai
plus leurs syntaxes, je cède donc la main.
Salutations JJ
"Francky" a écrit dans le message de news:
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi) partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir
des
colonnes (je schématise) et dois me valider ce tableau par ces initiales,dates & heures. la seconde doit le contrôler et a son tour
le
valider par ces initiales, dates & heures. 1 - Comment peut on rendre obligatoire la saisie des initiales avant
que
l'utilisateur enregistre le tableau ? 2 - Est il possible d'avoir une date et une heure sur le document à chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter, et vous souhaite une bonne journée
Franck
Bonjour
Voici un lien http://cjoint.com/?fvrL1Jynsq pour telecharger un classeur
exemple
avec creation d'un journal pour chaque ouverture et fermeture ( modification
??? )
Pour plus de discretion la feuille "Journal" doit être en propriete visible
= 0- xlSheetHidden
A+
Did
"Jacky" <delaenlevezjusquiciJacky.jaeg@Wbidon.fr> a écrit dans le message de
news: O12k%231fXFHA.1556@TK2MSFTNGP10.phx.gbl...
Oupsss
Erreur de collage, il faut oublier le "Private Sub Workbook_Open()"
JJ
"Jacky" <delaenlevezjusquiciJacky.jaeg@Wbidon.fr> a écrit dans le message
de news:epxB$vfXFHA.712@TK2MSFTNGP14.phx.gbl...
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre:
Sur une feuille vierge (feuil4 dans l'exemple) A adapter
De B1 à B3, entrer les initiales des personnes autorisées
Puis dans le module de ThisWorkbook ceci:
'-----------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
initiale = UCase(InputBox("Entrez vos initiales", "Données
obligatoires"))
x = 0
For i = 1 To 3
If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then
Cancel = False
x = 1
End If
Next
If x = 0 Then
MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier"
Cancel = True
End If
End Sub
'----------------------
Private Sub Workbook_Open()
For i = 1 To 3
Sheets("feuil4").Range("a" & i) = ""
Next
End Sub
'------------------
Pour la question 2, je sais que ces informations existent, mais je
n'ai
plus leurs syntaxes, je cède donc la main.
Salutations
JJ
"Francky" <francky@rock.graceland> a écrit dans le message de
news:1116670888.25681.0@damia.uk.clara.net...
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi)
partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit
remplir
des
colonnes (je schématise) et dois me valider ce tableau par ces
initiales,dates & heures. la seconde doit le contrôler et a son
tour
le
valider par ces initiales, dates & heures.
1 - Comment peut on rendre obligatoire la saisie des initiales
avant
que
l'utilisateur enregistre le tableau ?
2 - Est il possible d'avoir une date et une heure sur le document à
chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter,
et vous souhaite une bonne journée
Voici un lien http://cjoint.com/?fvrL1Jynsq pour telecharger un classeur exemple avec creation d'un journal pour chaque ouverture et fermeture ( modification ??? ) Pour plus de discretion la feuille "Journal" doit être en propriete visible = 0- xlSheetHidden
A+ Did
"Jacky" a écrit dans le message de news: O12k%
Oupsss Erreur de collage, il faut oublier le "Private Sub Workbook_Open()"
JJ
"Jacky" a écrit dans le message de news:epxB$
Bonjour Francky
Pour la question 1 on pourrait imaginer un truc du genre: Sur une feuille vierge (feuil4 dans l'exemple) A adapter De B1 à B3, entrer les initiales des personnes autorisées Puis dans le module de ThisWorkbook ceci: '----------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) initiale = UCase(InputBox("Entrez vos initiales", "Données obligatoires"))
x = 0 For i = 1 To 3 If UCase(Sheets("feuil4").Range("b" & i)) = initiale Then Cancel = False x = 1 End If Next If x = 0 Then MsgBox " Vous n'êtes pas autorisé à sauvegarder ce fichier" Cancel = True End If End Sub '----------------------
Private Sub Workbook_Open() For i = 1 To 3 Sheets("feuil4").Range("a" & i) = "" Next End Sub '------------------ Pour la question 2, je sais que ces informations existent, mais je n'ai
plus leurs syntaxes, je cède donc la main.
Salutations JJ
"Francky" a écrit dans le message de news:
Bonjour a tous !
je vais tenter d'expliquer mon problème. 3 personnes (dont moi) partagent le
même tableau Excel (nous sommes en réseau). ... la 1ere doit remplir
des
colonnes (je schématise) et dois me valider ce tableau par ces initiales,dates & heures. la seconde doit le contrôler et a son tour
le
valider par ces initiales, dates & heures. 1 - Comment peut on rendre obligatoire la saisie des initiales avant
que
l'utilisateur enregistre le tableau ? 2 - Est il possible d'avoir une date et une heure sur le document à chaque
ouverture & modification du tableau ?
Je vous remercie de toute l'aide que vous pouvez m'apporter, et vous souhaite une bonne journée