Discussion :

[manjul1]

Bonjour

Dans le tableau ci-joint, j'ai un onglet par mois et pour chaque jour des mois (les plages C6-C175, D6-D175... jusqu'à M6-M175) je souhaiterai que le nombre de cellule comportant la valeur "CA" soit limité au nombre inscrit dans la cellule de la feuille congé!H34 (ici 11fois).

J'ai essayé par Validation des données, cela marche lorsque j'écris dans chaque cellule mais cela ne bloque pas si je réalise des copier/coller de cellule comprenant la valeur "CA".
Je pense que le VBA peut m'aider pour réaliser cette limitation sur le plages C6-C175 à la plage M6-M175 de tous les onglets des mois.
Dans le cas où il y aurait une tentative d'inscription au delà de 11 fois, il y aurait un texte "Nombre maximal de congé annuel atteint" et la tentative serait bloquée.

Je vous remercie par avance

Emmanuel

[a_diard]

Bonjour

Peut être ceci

Code :

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

1
2
3
4
5
6
7
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("C6:M175"), "CA") > 11 Then
ActiveCell.Delete
MsgBox ""Nombre maximal de congé annuel atteint""
End If
End Sub

à mettre dans chaque feuille concernée

[manjul1]

Bonjour

Ça ne marche pas correctement car quand je mets le 12ème CA, il reste incrémenté dans le tableau et en plus ça décale les cellules inférieures vers le haut.
De plus dès que je clique sur une cellule dans mon tableau le message "il y a déjà 11 congé de ce type" apparait et les cellules inférieures de celle que je clique se décalent vers le haut.

J'ai l'impression que dans le code au 12ème CA mis, la cellule juste en dessous est supprimé et la contrainte de 11 CA maxi est mise pour toute la plage C6:M175 alors que la contrainte devrai être pour chaque colonne C6:C175 puis D6175 jusqu'à M6:M175.

Merci pour l'essai

[a_diard]

Re Bonjour

ou alors ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If ActiveCell.Column > 2 And ActiveCell.Column < 14 Then
 
zone = Cells(6, ActiveCell.Column).Address & ":" & Cells(175, ActiveCell.Column).Address
If Application.WorksheetFunction.CountIf(Range(zone), "CA") > 11 Then
ActiveCell.ClearContents
MsgBox "Nombre maximal de congé annuel atteint"
End If
End If
End Sub

J'ai remplacé le .delete par un . clearcontents
à enlever si pas pertinent.

le . delete était une bêtise.

[manjul1]

Ça marche pas mal, mais cependant si je fais un copier/coller du 12ème il reste incrémenté sur le tableau et pas de message, après par contre le message apparait si je clique sur une cellule de la colonne et si je clique sur un des 12 CA ça supprime le "CA" de la cellule cliquée et du coup on revient à 11.

Vous êtes très proche du but.

Merci