Obligation renseignement cellule

[mike13]

Bonjour à tous,

Comment faire pour obliger un utilisateur à renseigner une cellule avant de sauvegarder le fichier ?
En un mot, je désire empêcher un utilisateur de sauvegarder certaines modifications qu'il a pu faire si une cellule en particulier n'est pas renseignée.

Est ce possible ?

Merci par avance

Mike13

 

[mromain]

Re : Obligation renseignement cellule

bonjour mike13,

voici un code à mettre au niveau du classeur et à adapter :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Sheets("[B][COLOR=Red]Feuil1[/COLOR][/B]").Range("[B][COLOR=Red]A1[/COLOR][/B]").Text = "" Then Cancel = True
End Sub

a+

 

[mike13]

Re : Obligation renseignement cellule

Bonjour Mromain,

Merci mais je ne comprends pas.
J'ai copié à l'identique ton code en remplaçant Feuille1 par le nom de ma feuille et çà n'empêche pas l'enregistrement.
J'ai une cellule en C67 que je veux impérativement qu'elle soit renseignée et je pense que je dois mal utiliser ton code.

Peux-tu éclairer ma lanterne ?

Gros merci.

Mike13

 

[mromain]

Re : Obligation renseignement cellule

re bonjour,

où as-tu mis ton code?
il ne fau pas le mettre dans un module, mais dans "ThisWorkbook"

sur mon Excel (2007), lorsque il y a ce code, je ne peux pas fermer le fichier tant que la cellule A1 de Feuil1 est vide (je ne peux pas fermer excel non plus donc).

a+

 

[mike13]

Re : Obligation renseignement cellule

MRomain,

Un moment de honte étant vite passé, je ne sais pas allé dans "Thisworkbook"

Tu peux me dire car je suis allé sur plein d'aides et je n'ai rien trouvé.

Merci bien.

Mike13

 

[mromain]

Re : Obligation renseignement cellule

depuis excel, tu fais
- Alt + F11 (éditeur VBA)
- Ctrl + R --> Explorateur de projet (à gauche de l'éditeur normalement)
- et tu double-clique sur "ThisWorkbook"

c'est ici que tu mets le code spécifiques aux actions du classeur.

a+

 

[mike13]

Re : Obligation renseignement cellule

Merci MRomain,

CA MARCHE !!!!

Question complémentaire :
Comme on n'arrive pas à fermer Excel tant que la cellule n'est pas renseignée, peux t-on envoyer en même temps faire apparaître un message disant par exemple :" Cellule X à renseigner" ?

Merci encore.

Mike13

 

[mromain]

Re : Obligation renseignement cellule

re,

avec le texte à adapter :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Sheets("Feuil1").Range("A1").Text = "" Then
    Cancel = True
    MsgBox "[B][COLOR=Red]message a afficher[/COLOR][/B]"
End If
End Sub

ou en plus court :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Sheets("Feuil1").Range("A1").Text = "" Then Cancel = True: MsgBox "[B][COLOR=Red]message a afficher[/COLOR][/B]"
End Sub

a+

 

[mike13]

Re : Obligation renseignement cellule

Merci beaucoup MRomain,

J'ai le souffle coupé, c'est trop top génial.

Merci merci encore.

Une épine de plus d'enlevée.

Mike13

 

[mromain]

Re : Obligation renseignement cellule

re salut

voici le code

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Sheets("Feuil1").Range("A1").Text = "" Then
    Cancel = True
    MsgBox "message a afficher"
End If
End Sub

PS: vaut mieu poser tes PB sur le Forum (plutôt qu'en MP)

a+

 

[mike13]

Re : Obligation renseignement cellule

Merci MRomain,

T'es vraiment génial et tu maîtrises le sujet.

Merci.

Mike13


PS: j'ai pensé qu'en MP c'était plus rapide pour cette particularité, vu que tu m'avais déjà solutionné le problème, je ne le ferai plus. Merci