Discussion :

[marcm]

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

[Antoniom]

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.

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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