XL 2016 Création VBA - Obliger à remplir toute les cellules d'une ligne avant fermeture

Marbou à dit:

Bonjour,

Je cherche à obliger les utilisateurs d'un fichier à remplir toutes les cellules d'une ligne avant de fermer le fichier.
Après recherche sur votre forum, il me semble que la meilleure option est la création d'un VBA.
J'ai l'onglet développeur mais je ne sais pas m'en servir.
Pourriez-vous m'aider?

Merci d'avance!

Cliquez pour agrandir...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Application.CountA(Feuil1.[A2:J2]) <> 10 Then
        Cancel = True
        MsgBox "Veuillez saisir toutes les cellules"
    End If
End Sub

Jacky67 à dit:

Bonjour,
En supposant que les cellules à saisir soient [A2:J2]
Ceci dans le Thisworkbook
Pour y accéder
Alt+F11==>sélectionner Thisworkbook dans la fenêtre à gauche et coller le code ci-dessous dans la fenêtre de droite

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Application.CountA(Feuil1.[A2:J2]) <> 10 Then
        Cancel = True
        MsgBox "Veuillez saisir toutes les cellules"
    End If
End Sub

Cliquez pour agrandir...

Marbou à dit:

Merci beaucoup pour le code et l'explication.
Exemple : si la cellule B12 est remplie, toutes les cellules de la ligne 12 doivent l'être.
Merci encore!

Cliquez pour agrandir...

Marbou à dit:

Je cherche à obliger les utilisateurs d'un fichier à remplir toutes les cellules d'une ligne avant de fermer le fichier.

Cliquez pour agrandir...