compter avec des boucles [Résolu]

[bilou_12]

Bonjour,

Dans le cadre de mon travail, je travaille sur 2 feuilles Excel: Feuil1 et Récap.

Je souhaite passer en revue toutes les cellules de la colonne B de la Feuil1, puis s'il y a écrit 1995 dedans, alors que je regarde si la cellule de la même ligne et de la colonne J contient AAA. Si c'est le cas, je souhaite additionner 1 à la cellule B2 de ma feuille récap pour compter le nbre de fois que cela s'est produit.

Voila le bout de code que j'ai écrit jusqu'à mnt mais il ne fonctionne pas. Pouvez-vous m'indiquer les qqes erreurs svp?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Compte()
 
Dim i As Integer
Dim j As Integer
 
j = 0
 
For i = 2 To 4001
 
If Feuil1.Cells(i, "B") = 1995 Then
    If Feuil1.Cells(i, "L") = "AAA" Then
    Récap.Cells(2, "B").Value = j
    j = j + 1
    End If
End If
 
 
 
Next
 
End Sub

Merci d'avance

[Daniel.C]

Bonsoir,

En conservant ta logique :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Compte()
 
Dim i As Integer
Dim j As Integer
 
j = 0
With Sheets("Récap").Cells(2, "B")
    For i = 2 To 4001
 
        If Sheets("Feuil1").Cells(i, "B") = 1995 Then
            If Sheets("Feuil1").Cells(i, "J") = "AAA" Then
            .Value = .Value + 1
            End If
        End If
 
    Next
    End With
End Sub

Tu peux également filtrar les données et compter les lignes visibles, ce qui évite une boucle :

Code :

1
2
3
4
5
6
7
8
Sub Compte2()
    With Sheets("Feuil1")
        .AutoFilterMode = False
        .[B1:J4001].AutoFilter 1, 1995
        .[B1:J4001].AutoFilter 9, "AAA"
        Sheets("Récap").[B2] = .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows.Count - 1
    End With
End Sub

[bilou_12]

Super et merci Daniel!

[jfontaine]

Bonjour,

Pourquoi n'utilises tu pas les formules ?

A mettre dans la cellule B2 de l'onglet RECAP

Code :

=SOMMEPROD((Feuil1!B2:B4001=1995)*(Feuil1!J2:J4001="AAA"))

Ou en VBA en une seule ligne

Code :

Sheets("RECAP").Range("B2").Value = Evaluate("SumProduct((Feuil1!B3:B40 = 1995) * (Feuil1!J3:J40 = ""AAA""))")