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.
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.