[réglé] Application.WorksheetFunction.CountIf

youky(BJ)

XLDnaute Barbatruc

• 7 Janvier 2019

• #2

Hello,
TrucMuche=application.COUNTIFS([Q2:Q10000],"Atelier A",[M2:M10000],"Mauvais")
Bruno

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 7 Janvier 2019

• #3

Bonjour,
Par exemple, dans une cellule
=SOMMEPROD((Q5:Q495="Atelier A")*(M5:M495="Mauvais"))
En VBA

VB:

Sub test()
      TrucMuch = [SUMPRODUCT((Q5:Q495="Atelier A")*(M5:M495="Mauvais"))]
      MsgBox TrucMuch
End Sub

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 7 Janvier 2019

• #4

Bonsoir, Jacky67, Youky(bj), jefekoi,

je l'ai fait je le joins.

 

Pièces jointes

• jefekoi.xlsm

  27.6 KB · Affichages: 21

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 7 Janvier 2019

• #5

Merci messieurs je vais étudier ça

Bonne soirée

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 8 Janvier 2019

• #6

les 3 solutions fonctionnent merci

Question je voudrais remplacer Q2:Q10000 par son nom "Station" c'est une plage .

Comment puis-je procéder pour la colonne M c'est la plage "Status"

Merci

Bonne journée

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 8 Janvier 2019

• #7

Bonjour, remplacer q5 par q2

VB:

Option Explicit

Sub test()
   Dim dl As Integer, c As Range, i As Integer
   With Sheets("Report")
      dl = .Range("Q" & Rows.Count).End(xlUp).Row
      For Each c In .Range("Q2:Q" & dl)
         If c.Value = .Range("S1") Then
            If c.Offset(, -4).Value = "Mauvais" Then
               i = i + 1
            End If
         End If
      Next
      MsgBox "Pour l'" & .Range("S1") & " il y a " & i & " mauvais"
   End With
  
End Sub

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 8 Janvier 2019

• #8

Jefekoi à dit:

les 3 solutions fonctionnent merci

Question je voudrais remplacer Q2:Q10000 par son nom "Station" c'est une plage .
Merci

Bonne journée

Cliquez pour agrandir...

Re..
Dans ce cas, pour que les 2 plages aient la même longueur (obligatoire), il vaut mieux nommer les deux plages
Exemple avec les deux plages nommées dynamiquement en PJ

 

Pièces jointes

• exemple TrucMuch.xlsm

  54.5 KB · Affichages: 17

Dernière édition: 8 Janvier 2019

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 8 Janvier 2019

• #9

Bonjour tous,
Perso je ne suis pas pour nommer chaque plages.
Je préfère insérer direct un tableau et le tour est joué rien d'autre à gérer.
[Tableau1[nom de entête de colonne]].select 'suffit pour sélectionner la bonne plage
Ceci même si on décale le tableau. (ajout de colonne ou de ligne avant l'entête)
Fichier avec exemple de Tableau1
Bruno

 

Pièces jointes

• exemple (Y).xlsm

  32.5 KB · Affichages: 22

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 8 Janvier 2019

• #10

Merci Messieurs vous êtes super

J'ai une question :
Si je choisi cette formule :
OP = [SUMPRODUCT((Status<>"")*(Station="Atelier A"))]
Le résultat est correct

Par contre si je fais comme cela :
Dim Poste As Variant
Poste = Array("Atelier A")
OP = [SUMPRODUCT((Status<>"")*(Station=Poste(0)))]
Le résultat ne fonctionne pas j'ai : #NOM?

Pourtant il me semble que c'est bon comme syntaxe .

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Janvier 2019

• #11

Bonsoir.
S'il y a des parties variables dans l'argument de la méthode Evaluate on ne peut pas utiliser sa syntaxe par crochets droits.
Il faut Evaluate("SUMPRODUCT((Status<>"""")*(Station=""" & Poste(0) & """))")

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 8 Janvier 2019

• #12

Super merci beaucoup

 

Vote positif 0 Vote négatif