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