macro comptage maximum

Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il ne peut pas y avoir plus de 40
employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse son inscription avec un msgbox
disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc

Hello,

Effectivement, c'est mieux si tu déposes un fichier, en tous cas pour ma part.

Cdt, Anto.

Re,

Voici dans le fichier joint, un exemple de ce que tu pourrais faire, si j'ai bien compris ta demande...

Cdt, Hulk.

si tu as la première ligne réservée aux titres

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range)   If Intersect(Target, Columns("F:S")) Is Nothing Then Exit Sub   If Application.CountA(Target.EntireColumn) > 41 Then MsgBox "limite dépassée" Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If   End Sub

---

Edit: pas rafraichi, mais je crois que pour chaque employé il y a possibilité de cocher par X des évènements (dans les cases de F à S)
sauf que le maximum de personnes toléré par évènements est de 40
d'où ma proposition
Cordialement