VBA et saisie obligatoire - controle a la fermeture de la feuille

[christian14480]

Bonjour à tous,

Votre avis et complément d'infos m'intéresse sur le VBA suivants.

Voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [F29] = "" Then
[F29] = "."
Else
If [F29] = "." Then

MsgBox "Vous n'avez pas complété la cellule F29 ..."

Cancel = True
End If
End If

End Sub

Complétement novice, je souhaiterai que cette alerte apparaisse au moment d'enregistrer le document et non pas dés l'ouverture lorsque l'utilisateur se positionne sur la première cellule, autre que F29, à compléter.

Merci pour vos conseils.

 

[Pierrot93]

Re : VBA et saisie obligatoire - controle a la fermeture de la feuille

Bonsoir,

essaye ceci, à placer et à adapter dans le module "thisworkbook" :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If IsEmpty(Sheets("NomFeuille").Range("F29")) Then
    MsgBox "saisie invalide"
    Cancel = True
End If
End Sub

bonne soirée
@+

 

[christian14480]

Re : VBA et saisie obligatoire - controle a la fermeture de la feuille

Merci de t'intéresser à mon sujet.

Je l'ai déjà tester celui ci. Le msg s'affiche dès que l'on se positionne sur la première cellule.

Merci encore pour une autre solution

 

[Pierrot93]

Re : VBA et saisie obligatoire - controle a la fermeture de la feuille

Re,

bah... comprends pas trop ce que tu veux exactement.. peux tu préciser ?