Discussion :

[stéphanie123]

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

[laetitia]

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

Code :

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

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

[stéphanie123]

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

[laetitia]

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 :

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

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 :

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

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

en cell c11 feuil1

Code :

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

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

[Qwazerty]

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

[stéphanie123]

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à