XL 2016 Bloquer la sauvegarde

Angelko

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

Fichiers joints

Bebere

XLDnaute Barbatruc
bonjour
Angelko bienvenue
à tester
Code:
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

XLDnaute Junior
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
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonsoir Angelko, Bebere,

Dans ThisWorkbook :
Code:
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+
 

Fichiers joints

Angelko

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

Meilleures salutations,
 

Discussions similaires


Haut Bas