Discussion :

[manjul1]

Bonjour

J'ai créé un code mais je souhaiterais que Application.CountIf ne compte pas seulement un nom (ici CA) mais tous les noms compris dans une liste (ex: colonne P et Q).

voici mon code:

je souhaiterais que pour toute les fois à la place de "CA" il y ait une liste de nom (ex:liste dans une colonne)

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
33
34
35
Dim nABSSOG&, nABSINC2&, nABSINC1&
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nABSSOG As Double
Dim nABSINC2 As Double
Dim nABSINC1 As Double
If Intersect([C9:M29], Target) Is Nothing Then Exit Sub
nABSSOG = Application.CountIf(Intersect([9:11], Target.EntireColumn), "CA")    
nABSINC2 = Application.CountIf(Intersect([9:17], Target.EntireColumn), "CA")
nABSINC1 = Application.CountIf(Intersect([9:29], Target.EntireColumn), "CA")
If nABSSOG > 2 Then
    MsgBox "Le nombre maximal de SOG absent est atteint !", vbCritical, "Absence"
    Target.Interior.Color = RGB(255, 255, 255)
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
End If
 
If nABSINC2 > 4 Then
    MsgBox "Le nombre maximal d'INC2 absent est atteint !", vbCritical, "Absence"
    Target.Interior.Color = RGB(255, 255, 255)
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
End If
 
If nABSINC1 > 10 Then
    MsgBox "Le nombre maximal d'INC1 est atteint !", vbCritical, "Absence"
    Target.Interior.Color = RGB(255, 255, 255)
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
End If
 
End Sub

Merci par avance

Manu

[Menhir]

J'ai créé un code mais je souhaiterais que Application.CountIf ne compte pas seulement un nom (ici CA) mais tous les noms compris dans une liste (ex: colonne P et Q).

Il suffit de faire une boucle qui, à chaque tour, fasse un CointIf sur un élément de la liste et l'ajoute aux résultats précédents dans une variable.

[manjul1]

Merci pour cette idée comment le retranscrire dans mon code vba?

pour faire simple je souhaiterais que dans mon code:

Code :

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

nABSSOG = Application.CountIf(Intersect([9:11], Target.EntireColumn), "CA")

qui compte uniquement les cellules contenant "CA"
changer "CA" pour que ce code compte les "CA" + les "ST" + toutes les autres valeurs comprise dans la colonne P.


Pour ne pas avoir à faire un travail laborieux:

Code :

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

1
2
3
4
5
6
nABSSOGca = Application.CountIf(Intersect([9:11], Target.EntireColumn), "CA")
nABSSOGcaj = Application.CountIf(Intersect([9:11], Target.EntireColumn), "CAJ")
nABSSOGst = Application.CountIf(Intersect([9:11], Target.EntireColumn), "ST")
.....
 
(nABSSOGca + nABSSOGcaj + nABSSOGst + .....)  > 2