compter avec des boucles

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 :ccool:

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

---

Super et merci Daniel! :merci:

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""))")

---