Discussion :

[manjul1]

Bonjour

J'ai 2 codes vba que je souhaiterais mettre sur chaque mois de mon exemple.

* Le 1er qui n'autorise pas plus de 12 CA par jour.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Flag As Boolean
Dim nCA&, nCAJ&, nCAN&, n12h&
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect([C9:M46], Target) Is Nothing Then Exit Sub
    nCA = Application.CountIf(Intersect([9:46], Target.EntireColumn), "CA")
    nRPM = Application.CountIf(Intersect([9:46], Target.EntireColumn), "RPM")
    nCAJ = Application.CountIf(Intersect([9:46], Target.EntireColumn), "CAJ*")
    nCAN = Application.CountIf(Intersect([9:46], Target.EntireColumn), "*CAN")
            If (nCA + nCAJ + nRPM) > 12 Or (nCA + nCAN + nRPM) > 12 Then
        MsgBox "Le nombre maximal de 12 CA total est déjà atteint !", vbCritical, "Saisie CA"
        Target.Interior.Color = RGB(255, 255, 255)
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub"
 
* Et le 2ème qui n'autorise pas plus de 5 12h par jour
 
"Public Flag As Boolean
Dim n12h&
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect([C9:M46], Target) Is Nothing Then Exit Sub
    n12h = Application.CountIf(Intersect([9:46], Target.EntireColumn), "12h")
    If n12h > 5 Then
        MsgBox "Le nombre maximal de 12h pour ce jour est déjà atteint !", vbCritical, "Saisie 12h"
        Target.Interior.Color = RGB(255, 255, 255)
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub

Dans mon exemple je ne l'ai essayé que sur le mois de décembre mais je ne sais pas comment les associer.
Un code seul sur la page fonctionne mais comment dois-je m'y prendre pour associer les 2 codes afin qu'ils fonctionnent comme ci-dessus?

Merci par avance

[anasecu]

Bonjour,

mais je ne sais pas comment les associer.

Simplement comme ceci, cela devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nCA&, nCAJ&, nCAN&, n12h&
Dim n12h&
 
    If Intersect([C9:M46], Target) Is Nothing Then Exit Sub
    nCA = Application.CountIf(Intersect([9:46], Target.EntireColumn), "CA")
    nRPM = Application.CountIf(Intersect([9:46], Target.EntireColumn), "RPM")
    nCAJ = Application.CountIf(Intersect([9:46], Target.EntireColumn), "CAJ*")
    nCAN = Application.CountIf(Intersect([9:46], Target.EntireColumn), "*CAN")
 
    If (nCA + nCAJ + nRPM) > 12 Or (nCA + nCAN + nRPM) > 12 Then
 
 
        MsgBox "Le nombre maximal de 12 CA total est déjà atteint !", vbCritical, "Saisie CA"
        Target.Interior.Color = RGB(255, 255, 255)
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
    End If
    n12h = Application.CountIf(Intersect([9:46], Target.EntireColumn), "12h")
    If n12h > 5 Then
        MsgBox "Le nombre maximal de 12h pour ce jour est déjà atteint !", vbCritical, "Saisie 12h"
        Target.Interior.Color = RGB(255, 255, 255)
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub

[Philippe Tulliez]

Bonjour,
Quand je lis rapidement le code que tu publies, je me demande quelle est la raison qui te pousse à passer par le VBA.
Organise tes données dans un tableau structuré, utilise les fonctions natives d'excel et les fonctionnalités et outils natifs d'excel comme par exemple les tableaux croisés dynamiques et tu obtiendras le même résultat sans aucun problème

[manjul1]

Merci