Obligation renseignement cellule

mromain

XLDnaute Barbatruc

• 14 Mai 2009

• #2

Re : Obligation renseignement cellule

bonjour mike13,

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

Code:

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+

 

Vote positif 0 Vote négatif

M

mike13

XLDnaute Occasionnel

• 14 Mai 2009

• #3

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 14 Mai 2009

• #4

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+

 

Vote positif 0 Vote négatif

M

mike13

XLDnaute Occasionnel

• 14 Mai 2009

• #5

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 14 Mai 2009

• #6

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+

 

Vote positif 0 Vote négatif

M

mike13

XLDnaute Occasionnel

• 14 Mai 2009

• #7

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 14 Mai 2009

• #8

Re : Obligation renseignement cellule

re,

avec le texte à adapter :

Code:

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 :

Code:

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+

 

Vote positif 0 Vote négatif

M

mike13

XLDnaute Occasionnel

• 14 Mai 2009

• #9

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 14 Mai 2009

• #10

Re : Obligation renseignement cellule

re salut

voici le code

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+

 

Vote positif 0 Vote négatif

M

mike13

XLDnaute Occasionnel

• 14 Mai 2009

• #11

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

 

Vote positif 0 Vote négatif