Discussion :

[jnmab]

Bonjour,

Sur une liste de personnel, je souhaite donner à chacun la possibilité de s'inscrire à une activité en mettant une croix dans la cellule à côté de son nom, tout en limitant le nombre d'inscrits. Ce nombre atteint, une boîte de dialogue interdirait toute nouvelle tentative.
Quelqu'un peut-il m'aider SVP ?
merci

[Menhir]

Il suffit d'utiliser la validation de données appliquées aux cellules de réponse en utilisant comme condition une fonction NB.SI() qui compte les réponses.
Cependant, cette procédure n'empêcherait pas quelqu'un de supprimer une réponse déjà donnée pour mettre la sienne. Pour ça, il faudrait sans doute mettre en place quelque chose de beaucoup plus lourd et complexe à base de macro VBA.

[jnmab]

Je me souviens y être parvenu quelques années auparavant, j'avais d'ailleurs conservé le code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Range("A:A"), Target)) Then
        If WorksheetFunction.CountA(Range("A:A")) > 10 Then
            Application.EnableEvents = False
            Target.Value = ""
            Application.EnableEvents = True
        End If
    End If
End Sub

Mais il ne fonctionne pas

[unparia]

Bonjour
Aide interne VBA -->>

Application.Intersect, méthode
Cette méthode renvoie un objet Range qui représente l'intersection rectangulaire de deux plages ou plus.

--->>

Code :

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

If Not Intersect(Range("A:A"), Target) is nothing Then

Etant précisé que mon intervention a pour seul but de corriger la faute et non d'approuver la méthode, totalement inadaptée en l'occurrence pour plusieurs raisons évidentes.

[jnmab]

Bonjour
Aide interne VBA -->>

--->>

Code :

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

If Not Intersect(Range("A:A"), Target) is nothing Then

Etant précisé que mon intervention a pour seul but de corriger la faute et non d'approuver la méthode, totalement inadaptée en l'occurrence pour plusieurs raisons évidentes.

Vous avez une autre idée ? de toute façon, ça ne fonctionne pas non plus (erreur 424 - objet requis)

[Menhir]

Vous avez une autre idée ?

Oui mais visiblement tu n'en tiens pas compte. Je ne vais donc pas me battre contre le vent...