Je cherche a bloquer la saisie d'une cellule si la valeur saisie (ou sélectionner par une liste déroulante) dans cette cellule à été saisie plus de 12 fois dans la même colonne.
sur le fichier joint colonne H, je souhaite saisir une date et si cette date à déjà été saisie 12 fois sur cette colonne, je souhaiterais bloquer la saisie et afficher, si possible, un message indiquant par exemple (session complète).
Après avoir supprimé les validations de données en colonne i, insérer le code ci-dessous dans le module de l'onglet "Liste magasins".
VB:
Option Explicit
Private Sub Worksheet_Change(ByVal c As Excel.Range)
If c.Column = 9 And c.Count = 1 Then
If Application.WorksheetFunction.CountIf(Range("i:i"), c.Value) > 12 Then
MsgBox "Session complète"
c = ""
End If
End If
End Sub