Code VBA pour bloquer saisie à partir d'un certain nombre de cellule comprenant certaines valeurs

Bonjour

J'utilise un tableau pour saisir la position (congé, maladie,... contenu des colonnes P et Q) des personnes pour chaque jour déterminé dans chaque mois et la fonction qu'ils occupent (CDG, VPU...contenu des colonnes R et S).

Exemple pour le premier jour de chaque mois:
en E9:E11 il faudrait au minimum 1 cellule ne comprenant pas de valeur des colonnes P et Q (mais elle pourra contenir une valeur des colonnes R et S).
en E9:E17 il faudrait au minimum 4 cellules ne comprenant pas de valeur des colonnes P et Q (mais elle pourra contenir une valeur des colonnes R et S)
en E9:E29 il faudrait au minimum 9 cellules ne comprenant pas de valeur des colonnes P et Q (mais elle pourra contenir une valeur des colonnes R et S)
Je souhaiterais qu'il en soit de même pour toutes les colonnes de E à M.

J'ai pensais un temps compter chaque valeur possible des colonnes P et Q pour les différentes sélections, mais trop fastidieux et je pense qu'il doit y avoir un code plus adéquat.

Si vous pouvez m'aider, merci par avance.

Manu

Bonjour,

Par soucis de sécurité, je n'ouvre pas les pièces jointes : https://www.developpez.net/forums/d8...s-discussions/
Peux-tu plutôt envoyer des copies d'écran pour expliquer la structure de ton classeur ?

Je n'ai pas tout bien compris avec tes explications (et sans voir le classeur), mais est-ce qu'une mise en forme conditionnelle ne ferait pas l'affaire ? Ou une validation des données ?

Pièce jointe 558563

Une proposition avec la mise en forme conditionnelle :
Cas où il faut minimum 1 cellule qu in'a pas la valeur des cellules P/Q

Pièce jointe 558599

Dans le cas où il n'y a aucune cellule différentes des cellules P/Q => ça devient rouge

Pièce jointe 558612

Ce tableau est utilisé par une dizaine de personne, ils font des copier/coller des absences(colonnes P et Q) et des fonctions (colonnes R et S).
Un changement de couleur ne leur suffit pas, je souhaiterais que si il y a un ajout de cellule qui ne rentre pas dans les critères, il y ait un message d'alerte "Trop d'absence" et que le contenu de la cellule collée soit effacée.

Voici un exemple:

pour la sélection E9:E11
il y a E9 et E10 qui comprennent déjà des valeurs de la colonne P, je souhaiterais si il y a un coller d'une valeur de la colonne P ou Q dans la cellule E11, il apparaisse un message d'information "Trop d'absence" et la valeur soit effacée.

Merci bien

Pièce jointe 558624

En effet, là il faut passer par du VBA.
Je te propose de passer par un événement quand tu changes la valeur d'une cellule.

Voici la feuille :
Pièce jointe 559036


Et l'événement dans la feuille de calcul :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Range("M2") = False Then Target.ClearContents Target.Select MsgBox "Trop d'absence" End If   End Sub

---