Comment associer 2 actions et une addition de critères?

Bonjour

Le code de mon exemple empêche de mettre plus de 9 CA dans les colonnes des jours sur les plages C6:C175.

Public Flag As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect([C6:M175], Target) Is Nothing Then Exit Sub

If Application.CountIf(Intersect([6:175], Target.EntireColumn), "CA") > 9 Then

MsgBox "Le nombre maximal de CA est déjà atteint !", vbCritical, "Saisie CA"

Application.EnableEvents = False

Target.ClearContents

Application.EnableEvents = True: End If

End Sub

Lors de la tentative d'un copier coller d'un 10ème CA orange, le CA est supprimé grâce à ClearContents mais je voudrais associer ClearFormats pour enlever la mise en forme aussi. Comment dois-je faire?

De plus je souhaiterais que le message "Le nombre maximal de CA est déjà atteint!" apparaisse quand le nombre de CA + le nombre de CAJ est supérieur à 9 ou le nombre de CA + le nombre de CAN >9

Comment dois-je faire pour incorporer NB CA + NB CAJ >9 ou NB CA + NB CAN>9?

Merci par avance.

Emmanuel

8exemple.zip (196.78 Ko)

Bonjour

Un essai à tester. Te convient-il ?

Bye !

5exemple-v1.xlsm (316.18 Ko)

Bonjour

Je te remercie pour ton essai mais je voudrais qu'il y ai 2 critères bien distinct et que ça supprime tout ajout :

si le nombre de CA + le nombre de CAJ>9 ou si le nombre de CA + le nombre de CAN>9

Le CA correspond à 1 CAJ +1CAN.

Avec ton exemple si je mets 8 CA + 1 CAJ je ne peux pas mettre de CAN.

Potentiellement je voudrais que l'on puisse mettre par exemple 9 CAJ et 9 CAN ou bien mixer 4 CA, 5 CAJ et 5 CAN.

Merci

Nouvel essai.

Bye !

6exemple-v2.xlsm (316.23 Ko)

Bravo

Un grand merci, ça marche à merveille.

Bonne fin de dimanche

Rechercher des sujets similaires à "comment associer actions addition criteres"