Discussion :

[ValentinD78310]

Bonjour,

Je cherche à mettre en place la formule nb si ens en VBA en utilisant des plages variables.

Avec l'enregistreur j'obtiens cela et c'est parfait en revanche je ne parviens pas à l'adapter avec des variables pour que la formule s'adapter à la taille des plages.
Tout en sachant que les critères sont situés sur la même ligne sur une colonne différente.

Merci d'avance pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub Macro4()
'
' Macro4 Macro
'
 
'
   Range("AJ2").Select
   Selection.FormulaR1C1 = "=COUNTIFS(R2C3:R170C3,RC[-33],R2C35:R170C35,RC[-1])"
 
End Sub

[a_diard]

par exemple

Option Explicit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim aa As Integer, j As Integer, k As Integer, l As Integer
Dim ValeurCherchee
Dim myRange As Range
With Sheets("Feuil1")
ValeurCherchee = "toto"
j = 5 ' N° de colonne
k = 1 'PremiereLligne
l = 20 'DerniereLigne
Set myRange = .Range(.Cells(k, j), .Cells(l, j))
End With
aa = Application.WorksheetFunction.CountIf(myRange, ValeurCherchee)
MsgBox aa
End Sub

[ValentinD78310]

Pour compléter mon premier message, je souhaite compter le nombre de "true" par article, en VBA.

Ci-joint un fichier exemple
Avec en colonne H, le résultat attendu.Exemple.xlsx

[hyperion13]

Salut
Un début de piste. J'ai remplacé True par Ok

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
Sub test()
Dim xlwbk As Workbook, xlwbs As Worksheet
Dim rng As Range, rngCritere1 As Range, rngCritere2 As Range
Dim dernLigneA As Long, dernLigneDoublon As Long, countLigne As Long, countLigneDoublon As Long, indexLigneA As Long, indexLigneDoublon As Long
Dim i As Long
Dim strDoublon As String, valCritere1 As String, valCritere2 As String
Dim cValeur As Variant
 
Set xlwbk = ThisWorkbook
Set xlwbs = Worksheets("Feuil1")
 
dernLigneA = xlwbs.Cells(Rows.Count, 1).End(xlUp).Row
dernLigneDoublon = xlwbs.Cells(Rows.Count, 3).End(xlUp).Row
 
Set rng = xlwbs.Range(Cells(2, 1), Cells(dernLigneA, 1))
 
countLigne = 0
indexLigneDoublon = dernLigneDoublon + 1
 
For Each cValeur In rng.Cells
countLigneDoublon = 0
    If InStr(1, strDoublon, "|" & cValeur.Value & "|") = 0 Then
        For indexLigneA = 1 To dernLigneA
            If rng.Cells(indexLigneA, 1).Value = cValeur.Value Then
                countLigneDoublon = countLigneDoublon + 1
            End If
        Next indexLigneA
        If countLigneDoublon > 1 Then
            xlwbs.Cells(indexLigneDoublon, 3).Value = cValeur.Value
            xlwbs.Cells(indexLigneDoublon, 4).Value = countLigneDoublon
            indexLigneDoublon = indexLigneDoublon + 1
            strDoublon = strDoublon & "|" & cValeur.Value & "|"
        End If
    End If
Next cValeur
 
dernLigneDoublon = Cells(Rows.Count, 3).End(xlUp).Row
 
Set rngCritere1 = xlwbs.Range(Cells(2, 1), Cells(dernLigneA, 1))
Set rngCritere2 = xlwbs.Range(Cells(2, 2), Cells(dernLigneA, 2))
 
For i = 2 To dernLigneDoublon
    valCritere1 = xlwbs.Range(Cells(i, 3), Cells(i, 3)).Value
    valCritere2 = "ok"
    xlwbs.Range(Cells(i, 5), Cells(i, 5)) = WorksheetFunction.CountIfs(rngCritere1, "=" & valCritere1, rngCritere2, "=" & valCritere2)
Next i
 
Set rngCritere2 = Nothing
Set rngCritere1 = Nothing
Set rng = Nothing
Set xlwbs = Nothing
Set xlwbk = Nothing
End Sub

[Philippe Tulliez]

Bonjour,
Si vous utilisiez les tableaux structurés d'excel, vous ne devriez pas vous préoccuper de la taille variable de votre liste. Le raccourci clavier pour convertir une plage classique en tableau est Ctrl + L)

S'il s'agit de compter le nombre de TRUE dans une seule colonne, la fonction COUNTIF suffit.
Soit pour compter le nombre de TRUE dans la colonne nommée Status de la table nommée myTable =COUNTIF(myTable[Status],TRUE)

[EDIT]
En relisant votre premier post, je constate que vous avez effectivement deux critères et donc l'usage de COUNTIFS est requis

Voici un code insérant la formule =NB.SI.ENS([Ref];[@Ref];[Status];VRAI) dans la colonne nommée Compter en prenant comme critère 1 la colonne nommée Ref et comme critère 2 celle nommée Status et dans celle-ci, il y a comme valeur VRAI ou FAUX


Le code

Code :

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

1
2
3
4
5
6
Sub T()
  Dim oList As ListObject
  Set oList = Range("t_Data").ListObject
  oList.ListColumns("Compter").DataBodyRange.Cells(1, 1).Formula = "=COUNTIFS([Ref],[@Ref],[Status],TRUE)"
  Set oList = Nothing
End Sub

Une autre solution est d'utiliser un tableau croisé dynamique