XL 2016 Comptage dans un tableau

[Bruce68]

Bonjour à tous
Je cherche quelle formule mettre pour compter dans une ligne d'un Tableau "Tableau(4,7)" ou il y aura Pr et Pa ou que Pr, j'ai essayé avec cette formule mais cela ne fonctionne pas je n'ai que le chiffre 1

Private Sub ComboBox1_Change()
For k = 1 To 7
If ComboBox1 = Tableau(1, k) Then
Tableau(2, k) = "Pr"
End If
Next k
For k = 1 To 7
If ComboBox2 = Tableau(1, k) Then
Tableau(2, k) = "Pa"
End If
Next k
Nbjoueur = Application.CountIf((Tableau(2, 7)), "><""")
End Sub

Je vous remercie de votre aide

 

[Theze]

Bonjour,

J'ai un peu de peine à comprendre, tu cherches dans ton tableau si la valeur choisie dans le ComboBox s'y trouve ?
Regardes avec InStr() :

If InStr(ComboBox1.Text, Tableau(1, k)) > 0 Then
    Tableau(2, k) = "Pr"
End If

 

[Bruce68]

Bonsoir Theze et le forum
J'ai trouvé la solution pour compter Le nombre de Pr et de Pa en mettant une variable a

Private Sub ComboBox1_Change()
X = 1
For k = 1 To 7
If ComboBox1 = Tableau(1, k) Then
Tableau(2, k) = "Pr"
X = X +1
End If
Next k

For k = 1 To 7
If ComboBox2 = Tableau(1, k) Then
Tableau(2, k) = "Pa"
End If
X = X +1
Next k

End Sub