Obliger le remplissage d'une cellule

firechief · 12 Janvier 2010

Bonjour à tous !
j'ai "encore" besoin de vos connaissances.😱
J'aimerais rendre la saisie d'une cellule obligatoire. (en fait la date) j'ai lu beaucoup de poste et j'ai retenu ceci :

(Alt + F11 et Double-cliquer sur ThisWorkBook)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If [A1] = "" Then
[A1] = "."
Else
If [A1] = "." Then
MsgBox "La Cellule A1 n'est pas saisie"
Cancel = True
End If
End If
End Sub

Mais ca ne marche pas !🙁 j'ai essayé plusieurs fois de copier/coller ce texte mais sans résultat. Je sauvegarde et ferme mon fichier sans problèmes et surtout pas de messages et pourtant la cellule A1 est vide !

Avez-vous une idée ? 😕

D'avance merci.

firechief · 13 Janvier 2010

Re : Obliger le remplissage d'une cellule

Sly le globe trotter à dit:
Salut firechief,

Toujours dans ThisWorkbook, tu viens ajouter comme l'expliquait Namzip la fonction Private Sub Workbook_Open().

Code:

Private Sub Workbook_Open() Sheets("Feuil1").Range("A1").ClearContents End Sub

A configurer en fonction de la feuille et de la cellule dans laquelle tu souhaites effacer la valeur évidemment 😛

Bonne continuation
Sly

Ok j'ai rajouté la formule sous la 1ère et lors de la sauvegarde pas de problème ca marche. mais lors de l'ouverture, il vient un message :
Erreur de compilation
End Sub attendu 😕

Quesque j'ai loupé ?

Sly le globe trotter · 13 Janvier 2010

Re : Obliger le remplissage d'une cellule

Avec ce code écrit dans ThisWorkbook, cela fonctionne parfaitement chez moi 😀

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Feuil1").Range("A1") = "" Then
   MsgBox "La Cellule A1 n'est pas saisie"
   Cancel = True
End If
End Sub

Private Sub Workbook_Open()
Sheets("Feuil1").Range("A1").ClearContents
End Sub

Sly

firechief · 13 Janvier 2010

Re : Obliger le remplissage d'une cellule

Désolé 🙁🙁

mais ca ne marche pas !!😡

je dois être bouché. J'ai bien rajouté le code de Namzip

Private Sub Workbook_Open()
Sheets("Feuil1").Range("A1").ClearContents
End Sub

sous le 1er mais rien. La date reste à l'ouverture du fichier. Quesque j'ai manqué 😕

Un Screen joint

firechief · 13 Janvier 2010

Re : Obliger le remplissage d'une cellule

Ca fonctonne, j'ai recopier le code complet et c'est OK

Cette fois je peux dire milleeeeeee merci 😀😀

Très bonne journée à vous tous !

Sly le globe trotter · 13 Janvier 2010

Re : Obliger le remplissage d'une cellule

Si j'arrive à lire correctement sur ta photo, ta date est écrite en H1.

Dans le code que je t'indique dans mon message précédent, je suis parti du principe que ta date est en A1. Si c'est bien cela, il faut mettre à jour le code en fonction de tes besoins, comme je te l'indiquais dans un des précédents messages 🙄

Sly

firechief · 13 Janvier 2010

Re : Obliger le remplissage d'une cellule

Sly le globe trotter à dit:
Si j'arrive à lire correctement sur ta photo, ta date est écrite en H1.

Dans le code que je t'indique dans mon message précédent, je suis parti du principe que ta date est en A1. Si c'est bien cela, il faut mettre à jour le code en fonction de tes besoins, comme je te l'indiquais dans un des précédents messages 🙄

Sly

Oui c'est corrigé. Je suis désolé de ne pas avoir été attentif.
Encore merci à toi et à tous les intervenants 🙂

Sly le globe trotter · 13 Janvier 2010

Re : Obliger le remplissage d'une cellule

Tout est bien qui finit bien 😀

Bonne continuation
Sly

Obliger le remplissage d'une cellule

firechief

Guest

firechief

Guest

Sly le globe trotter

XLDnaute Occasionnel

firechief

Guest

firechief

Guest

Sly le globe trotter

XLDnaute Occasionnel

firechief

Guest

Sly le globe trotter

XLDnaute Occasionnel

Discussions similaires

Obliger le remplissage d'une cellule

firechief

Guest

firechief

Guest

Sly le globe trotter

XLDnaute Occasionnel

firechief

Guest

firechief

Guest

Sly le globe trotter

XLDnaute Occasionnel

firechief

Guest

Sly le globe trotter

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency