compter avec condition

bonjour,

j'ai un petit souci avec la fonction compter , j'ai cherchée dans le forum mais je n'arrive pas à trouver l'aide attendu,,,,

j'ai une feuil 1 ou j'ai mon bouton de commande et mon taleau ou je desire rentrer les cellules compter de la feuil2

j'ai plusieur colonnes dans ma feuil 2, je souhaiterai donc compter le nombre de fois le mot"voiture dans la colonne D si dans la colonne B il y a le mot "france" et en meme temps compter le mot vélo toujours dans la colonne D sil il y a le mot "hollande " dans la colonne b
et afficher le nombre pour voiture en C10 et vélo en C11 feuil 1

ce n'est pas compliqué mais je patoge

bonjour stéphanie123 le forum pour simplifier tu peus utiliser l'instruction with

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit Sub es() Dim i As Long, x As Long, y As Long Application.ScreenUpdating = False Sheets("feuil2").Activate For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(i, 4) = "voiture" And Cells(i, 2) = "france" Then x = x + 1 If Cells(i, 4) = "velo" And Cells(i, 2) = "hollande" Then y = y + 1 Next i Sheets("feuil1").Activate [c10] = x: [c11] = y End Sub

---

bonjour,

j'ai placé ton code dns mon programme et sa ne m'affiche 0 aors que la colonne d est bien fourni,,
je continue à regarder ou sa coince

re, bizarre je viens de tester pas de souci

tu es sur que le nom des feuilles est bien ecrit idem voiture velo hollande france ?? MAJUSCULE ?minuscule ?
essai comme cela avec with +option compare text au debut du module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Option Compare Text Sub es() Dim i As Long, x As Long, y As Long Application.ScreenUpdating = False With Feuil2 For i = 1 To .Cells(Rows.Count, 4).End(xlUp).Row If .Cells(i, 4) = "voiture" And .Cells(i, 2) = "france" Then x = x + 1 If .Cells(i, 4) = "velo" And .Cells(i, 2) = "hollande" Then y = y + 1 Next i With Feuil1 .Cells(10, 3) = x .Cells(11, 3) = y End With: End With End Sub

---

eventuellement passer par une formule beaucoup plus simple

en cell c10 feuil1

Code:

---

=SOMMEPROD((Feuil2!D1:D65000="voiture")*(Feuil2!B1:B65000="france"))

---

en cell c11 feuil1

Code:

---

=SOMMEPROD((Feuil2!D2:D65001="velo")*(Feuil2!B2:B65001="hollande"))

---

Salut
Pour completer les fomules données par Leati (coucou) tu peux mettre a la place du mot voiture et france des references a des cellules, ainsi dans les cellules pointées tu mets 2 listes (créées par validation).
A l'utilisation tu choisi ce que tu souhaites rechercher via les listes, les formules font le reste.
A++
Qwaz

merci pour votre aide

ça marche inpécablement bien,,,,

pour la possibilité de mettre des liste type combox c'est inutile pour ce que je veux faire là,,,

maintenant j'ai un autre programme à finaliser avec des listes type combox,,,voilà