Application.CountIf compte pas un nom mais tous les noms compris dans une liste

Version imprimable

1 pièce(s) jointe(s)

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:

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

21/04/2020, 15h12
Menhir

Citation:

Envoyé par manjul1

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.

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

pour faire simple je souhaiterais que dans mon code:

Code:

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:

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