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.
 

Pièces jointes

  • Checklist_2018v2.0.xlsm
    17.9 KB · Affichages: 21

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
 

Pièces jointes

  • Checklist_2018v2.0.xlsm
    18.8 KB · Affichages: 20

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+
 

Pièces jointes

  • Checklist_2018(1).xlsm
    25.3 KB · Affichages: 37

Discussions similaires

Réponses
3
Affichages
147

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof