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

[man.jul]

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

 

[Staple1600]

Bonjourle fil, le forum

@man.jul
Pour le point N°1:
Si j'ai bien compris, remplace
Target.ClearContents
par
Target.Clear

 

[man.jul]

Bonjour
Merci c'était si simple.
Par contre savez vous comment je dois faire pour mettre dans mon code la somme de 2 critères?

 

[Staple1600]

Re

@man.jul
[aparté]
La coutume est (ou était) quand on poste sa question sur plusieurs forums, de le signaler

1) par simple courtoisie (ou en souvenir de la netiquette 😉)
2) pour qu'on sache où en est la résolution de la question et ainsi éviter de poster des réponses déjà postées sur l'un ou l'autre des forums​

[/aparté]

 

[man.jul]

Désolé je ne connaissais pas cette coutume et bien entendu je ne manque pas de tenir informé la discussion.
Voici une solution proposée.

Bonne soirée