[XL-2003] Bloquer une colonne sous condition [Résolu]

[louzz]

Bonjour,

Je suis actuellement en train de faire un tableau Excel pour faire des inscriptions dessus (donc à envoyé à des personnes)
Je veux que il y ai par colonne maximum 7 inscrit (pour une formation)
Les utilisateur mettre un X pour dire quand ils veulent s'inscrire.
J'arrive à faire changer de couleur la colonne mais je veux aussi bloquer celle ci quand mon compteur arrive a 7.

Quelqu'un peut il me venir en aide.
hésitez pas à me demander s'il manque des informations.

Cordialement
Louzz

[jfontaine]

Bonjour,

Une solution consisterait à faire un tableau avec autant de colonnes que de formations et qui ne contiendrait que 7 lignes.

La ligne 8 étant le nombre d'inscrit :

Code :

=NBVAL(B2:B8)

Si tu veux pousser la protection, tu déverrouilles les cellules de saisie des noms et protège ton onglet.

[louzz]

Le soucis c'est que sur ma 1er colonne j'ai les noms des personnes qui peuvent s'inscrire soit une centaine....
Et je veux que lorsqu'il y a 7 personne d'inscrit pour la formation à la date du X plus personne ne puisse s'inscrire sur cette session et il faut qu'il choisissent la 2e date dispo.

Voyez vous ce que je veux dire?

[jfontaine]

Le code ci dessous passe met la cellule à blanc si le nombre de cellule non vide est > 7

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
 
If Target.Column > 1 And Target.Row > 1 And Cells(1, Target.Column).Value <> "" Then
 
    Set rg = Range(Cells(2, Target.Column), Cells(Range("A:A").End(xlDown).Row, Target.Column))
 
    'Compte le nombe de ligne rempli
    If Application.WorksheetFunction.CountA(rg) > 7 Then
        'vide la cellule
        Target.Value = ""
    End If
 
End If
 
End Sub

[louzz]

Merci de la réponse mais ce n'est pas ce que je cherche,
je veux que ca soit fait de manière automatique.
En effet à la 6 personne inscrite sur la collone celle ci change de couleur et à la 7 je veux qu'elle rechange de couleur et que ca bloque toute la colonne, je ne veux pas ca vide ou autre ma colonne vu que je vais en avoir besoin pour envoyer les convocations aux personnes.

[jfontaine]

Le code proposé ne vide pas la colonne, mais empêche la saisie si la colonne comporte 7 inscrit.
Pour ce qui est des couleurs cela peux se faire aussi avec ce code (si tu prend cette voie)

A noter que si tu bloques les cellules, comment gère tu la désinscription?

[louzz]

Ok j'ai mal compris ton explication alors .

Pour les désinscription je verrai plus tard comme par exemple avoir un autre fichier pour moi qui me réserve le fichier
Pour le code j'ouvre le VBA de ma feuille et je copie dedans?
Le code marchera que je soit sur la colonne 3 comme 10 comme 20?

[jfontaine]

Pour le code j'ouvre le VBA de ma feuille et je copie dedans?

oui, tu copies sur la feuille de saisie

Le code marchera que je soit sur la colonne 3 comme 10 comme 20?

oui, a partir du moment ou il y a un titre de formation sur la première ligne de la colonne

[louzz]

Le premier non de ma personne se situe ligne 6 est ce que ca peux poser problème, c'est à la ligne 6 que je vérifie mon compteur (vérification pour code couleur etc..) il faut juste que je change mon target.Arrow > 6 c'est bien ça?

Edit:
ca ne bloque pas ma colonne je peux toujours faire ce que je veux dedans :s

ps: désolé je suis pas très doué en VBA...

[jfontaine]

En rouge les modifications a apporter

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
 
If Target.Column > 1 And Target.Row > 5 And Cells(1, Target.Column).Value <> "" Then
 
    Set rg = Range(Cells(6, Target.Column), Cells(Range("A65536").End(xlUp).Row, Target.Column))
 
    'Compte le nombe de ligne rempli
    If Application.WorksheetFunction.CountA(rg) > 7 Then
        'vide la cellule
        Target.Value = ""
    End If
 
End If
 
End Sub

[louzz]

J'ai remis le code que tu m'as donné dans ma feuille mais ça fait pareil...
Est il possible de t'envoyer le fichier par mail ou par MP pour que tu puisse voir directement peut être ça sera plus clair.

[louzz]

Un grand merci à Jérôme pour son aide