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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
manjul
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 15 décembre 2017
Version d'Excel : excel 2010

Message par manjul » 17 décembre 2017, 14:42

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
exemple.xls
(936.5 Kio) Téléchargé 6 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'533
Appréciations reçues : 319
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 17 décembre 2017, 16:36

Bonjour

Un essai à tester. Te convient-il ?
Bye !
exemple v1.xlsm
(316.18 Kio) Téléchargé 5 fois
m
manjul
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 15 décembre 2017
Version d'Excel : excel 2010

Message par manjul » 17 décembre 2017, 17:03

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
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'533
Appréciations reçues : 319
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 17 décembre 2017, 17:51

Nouvel essai.
Bye !
exemple v2.xlsm
(316.23 Kio) Téléchargé 5 fois
m
manjul
Jeune membre
Jeune membre
Messages : 13
Inscrit le : 15 décembre 2017
Version d'Excel : excel 2010

Message par manjul » 17 décembre 2017, 19:05

Bravo

Un grand merci, ça marche à merveille.

Bonne fin de dimanche
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message