Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel griser la disquette

griser la disquette

7 réponses
Avatar
Micky
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est possible de
desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un certain
nombre de zone soit remplie ?

Merci d'avance

Micky
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Dude
à moins de créer une image grisée, de redéfinir la barre d'outils et de
créer une macro qui surveille toutes les modifications du classeur (lourd),
je ne vois pas.

En revanche il est possible d'empêcher la sauvegarde du classeur tant qu'un
certain nombre de zones ne sont pas renseignées :
(à mettre dans le module "ThisWorkbook" dans Visual Basic Editor)

Private Sub Workbook_BeforeSave( cancel As Boolean)

Dim zones As Range
Dim adresse As String

Set zones = Union(Range("A1"), Range("B4"))

For Each cellule In zones
If cellule.Value = "" Then
On Error Resume Next
adresse = cellule.Name
If Err.Number <> 0 Then
adresse = "en colonne " & cellule.Column _
& ", ligne " & cellule.Row
End If
On Error GoTo 0

MsgBox ("Veuillez renseigner la plage " & adresse)
cancel = True
Exit Sub
End If
Next

End Sub
"Micky" wrote in message
news:Oq$
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est possible de
desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un
certain
nombre de zone soit remplie ?

Merci d'avance

Micky




Avatar
Micky
C'est déjà ce que j'utilise mais je voulais aller encore plus loin car
j'integre le tout dans une base de donnée et que l'integration se fait avant
la verification ce qui peut etre source d'erreur et de manque de donnée dans
ma base.

Merci
Micky

"Dude" a écrit dans le message de
news:uMvv$
à moins de créer une image grisée, de redéfinir la barre d'outils et de
créer une macro qui surveille toutes les modifications du classeur
(lourd),

je ne vois pas.

En revanche il est possible d'empêcher la sauvegarde du classeur tant
qu'un

certain nombre de zones ne sont pas renseignées :
(à mettre dans le module "ThisWorkbook" dans Visual Basic Editor)

Private Sub Workbook_BeforeSave( cancel As Boolean)

Dim zones As Range
Dim adresse As String

Set zones = Union(Range("A1"), Range("B4"))

For Each cellule In zones
If cellule.Value = "" Then
On Error Resume Next
adresse = cellule.Name
If Err.Number <> 0 Then
adresse = "en colonne " & cellule.Column _
& ", ligne " & cellule.Row
End If
On Error GoTo 0

MsgBox ("Veuillez renseigner la plage " & adresse)
cancel = True
Exit Sub
End If
Next

End Sub
"Micky" wrote in message
news:Oq$
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est possible
de


desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un
certain
nombre de zone soit remplie ?

Merci d'avance

Micky








Avatar
Dude
question bête certainement mais.... pourquoi ne fais-tu pas la vérification
avant l'intégration dans la base ?
(je fais la même manip que toi, et cela fonctionne)


"Micky" wrote in message
news:
C'est déjà ce que j'utilise mais je voulais aller encore plus loin car
j'integre le tout dans une base de donnée et que l'integration se fait
avant
la verification ce qui peut etre source d'erreur et de manque de donnée
dans
ma base.

Merci
Micky

"Dude" a écrit dans le message de
news:uMvv$
à moins de créer une image grisée, de redéfinir la barre d'outils et de
créer une macro qui surveille toutes les modifications du classeur
(lourd),

je ne vois pas.

En revanche il est possible d'empêcher la sauvegarde du classeur tant
qu'un

certain nombre de zones ne sont pas renseignées :
(à mettre dans le module "ThisWorkbook" dans Visual Basic Editor)

Private Sub Workbook_BeforeSave( cancel As Boolean)

Dim zones As Range
Dim adresse As String

Set zones = Union(Range("A1"), Range("B4"))

For Each cellule In zones
If cellule.Value = "" Then
On Error Resume Next
adresse = cellule.Name
If Err.Number <> 0 Then
adresse = "en colonne " & cellule.Column _
& ", ligne " & cellule.Row
End If
On Error GoTo 0

MsgBox ("Veuillez renseigner la plage " & adresse)
cancel = True
Exit Sub
End If
Next

End Sub
"Micky" wrote in message
news:Oq$
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est possible
de


desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un
certain
nombre de zone soit remplie ?

Merci d'avance

Micky












Avatar
Micky
lorsque je clique sur la disquette il me demande d'interger et seulement
ensuite il verifie , comme verifier avant l'integration ?????

merci
Micky

"Dude" a écrit dans le message de
news:
question bête certainement mais.... pourquoi ne fais-tu pas la
vérification

avant l'intégration dans la base ?
(je fais la même manip que toi, et cela fonctionne)


"Micky" wrote in message
news:
C'est déjà ce que j'utilise mais je voulais aller encore plus loin car
j'integre le tout dans une base de donnée et que l'integration se fait
avant
la verification ce qui peut etre source d'erreur et de manque de donnée
dans
ma base.

Merci
Micky

"Dude" a écrit dans le message de
news:uMvv$
à moins de créer une image grisée, de redéfinir la barre d'outils et de
créer une macro qui surveille toutes les modifications du classeur
(lourd),

je ne vois pas.

En revanche il est possible d'empêcher la sauvegarde du classeur tant
qu'un

certain nombre de zones ne sont pas renseignées :
(à mettre dans le module "ThisWorkbook" dans Visual Basic Editor)

Private Sub Workbook_BeforeSave( cancel As Boolean)

Dim zones As Range
Dim adresse As String

Set zones = Union(Range("A1"), Range("B4"))

For Each cellule In zones
If cellule.Value = "" Then
On Error Resume Next
adresse = cellule.Name
If Err.Number <> 0 Then
adresse = "en colonne " & cellule.Column _
& ", ligne " & cellule.Row
End If
On Error GoTo 0

MsgBox ("Veuillez renseigner la plage " & adresse)
cancel = True
Exit Sub
End If
Next

End Sub
"Micky" wrote in message
news:Oq$
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est
possible




de
desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un
certain
nombre de zone soit remplie ?

Merci d'avance

Micky
















Avatar
Dude
peux-tu me préciser de quelle base de données il s'agit et comment se fait
l'intégration ?



"Micky" wrote in message
news:%
lorsque je clique sur la disquette il me demande d'interger et seulement
ensuite il verifie , comme verifier avant l'integration ?????

merci
Micky

"Dude" a écrit dans le message de
news:
question bête certainement mais.... pourquoi ne fais-tu pas la
vérification

avant l'intégration dans la base ?
(je fais la même manip que toi, et cela fonctionne)


"Micky" wrote in message
news:
C'est déjà ce que j'utilise mais je voulais aller encore plus loin car
j'integre le tout dans une base de donnée et que l'integration se fait
avant
la verification ce qui peut etre source d'erreur et de manque de donnée
dans
ma base.

Merci
Micky

"Dude" a écrit dans le message de
news:uMvv$
à moins de créer une image grisée, de redéfinir la barre d'outils et
de
créer une macro qui surveille toutes les modifications du classeur
(lourd),

je ne vois pas.

En revanche il est possible d'empêcher la sauvegarde du classeur tant
qu'un

certain nombre de zones ne sont pas renseignées :
(à mettre dans le module "ThisWorkbook" dans Visual Basic Editor)

Private Sub Workbook_BeforeSave( cancel As Boolean)

Dim zones As Range
Dim adresse As String

Set zones = Union(Range("A1"), Range("B4"))

For Each cellule In zones
If cellule.Value = "" Then
On Error Resume Next
adresse = cellule.Name
If Err.Number <> 0 Then
adresse = "en colonne " & cellule.Column _
& ", ligne " & cellule.Row
End If
On Error GoTo 0

MsgBox ("Veuillez renseigner la plage " & adresse)
cancel = True
Exit Sub
End If
Next

End Sub
"Micky" wrote in message
news:Oq$
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est
possible




de
desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un
certain
nombre de zone soit remplie ?

Merci d'avance

Micky




















Avatar
MichDenis
Bonjour Micky,

Ce qui suit n'a pas été testé ....!

Je crois deviner que tu travailles avec une base de données de "assistant modèle"...

As-tu essayé ceci :

Dans un module standard : déclaration du Variable Public

Public Ok as Boolean


Dans le début de ta procédure au début de la saisie de nouvelles données,
Ok = False

Et dans la dernière ligne de ta procédure de saisie :
OK = True


Et dans le ThisWorkbook de ton classeur :
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Ok = False Then
MsgBox "Le tableau des données n'est pas complet." & _
"Enregistrement refusé."
End If

End Sub
'-----------------------------


Salutations!



"Micky" a écrit dans le message de news: Oq$
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est possible de
desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un certain
nombre de zone soit remplie ?

Merci d'avance

Micky
Avatar
Bruno LOUIS
Salut,

Pour répondre à ta première question :

Application.CommandBars("standard").Controls(3).Enabled = False

"Micky" a écrit dans le message de news:
Oq$
Bonjour à tous,

je viens solliciter à nouveau votre aide pour savoir s'il est possible de
desactiver la disquette "enregistrer" sous excel 97 jusqu'à ce qu'un
certain
nombre de zone soit remplie ?

Merci d'avance

Micky