XL 2016 Bloquer la sauvegarde

[Angelko]

Bonjour,

J'ai besoin de votre aide concernant un fichier Excel qui est ci-joint.
Comme vous pouvez le voir dans la feuille checklist, il y a la colonne E où je peux choisir la couleur, et ensuite la totalité apparaîtra dans la colonne A dans les lignes 13, 14 et 15.

Ce que je voudrais faire est de bloquer la sauvegarde si nous ne complétons pas toutes les couleurs dans la colonne E, depuis E2 jusq'au E12. J'ai essayé un code VBA mais sans succès, vous pouvez le voir dans le fichier.

Merci pour votre patience et votre aide.

Je vous souhaite un bon dimanche.

 

[Bebere]

bonjour
Angelko bienvenue
à tester

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E2:E12")) Is Nothing Then

    If Application.CountA(Range("E2:E12")) = 9 Then
        Range("A13") = Application.CountIf(Range("E2:E12"), "green")
        Range("A14") = Application.CountIf(Range("E2:E12"), "yellow")
        Range("A15") = Application.CountIf(Range("E2:E12"), "red")

    End If
    End If

End Sub

 

[Angelko]

Merci beaucoup pour votre aide Bebere.

Malheureusement, cela ne fonctionne pas, je ne sais pas si c'est moi ou un problème avec mon fichier, j'ai joint à la nouvelle VBA.

Meilleures salutations

 

[Bebere]

Angelko j'aurais du te dire d'enlever le séletion si cela n'allait pas
le fichier avec une version avec formules et vba

 

[job75]

Bonsoir Angelko, Bebere,

Dans ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim n
n = 9 - Application.CountA([E2:E3,E5:E6,E8:E12])
If n Then Cancel = True: MsgBox "Il manque " & n & " couleur" & IIf(n > 1, "s", "")
End Sub

A+

 

[Angelko]

Bonjour Bebere et job75 ,
Je vous remercie tous les deux pour votre aide, merci beaucoup, je vous souhaite une bonne journée.

Meilleures salutations,