XL 2019 Couplé mixte un pair un impair

[Hoareau]

Bonjour

Je voudrais les couplés mixtes un pair, un impair
Compteur_Mixte est sensé me donner cela, mais le comte n'est pas bon

merci

If N_1 Mod 2 = 0 And N_2 Mod 2 = 0 Then
Compteur_Pair = Compteur_Pair + 1
c.Offset(0, 5) = 1 'Compteur_Pair
End If
If N_1 Mod 2 <> 0 And N_2 Mod 2 <> 0 Then
Compteur_Impairs = Compteur_Impairs + 1
c.Offset(0, 6) = 1 'Compteur_Impairs
End If
If N_1 Mod 2 = 0 Or N_2 Mod 2 = 0 Then
Compteur_Mixte = Compteur_Mixte + 1
c.Offset(0, 7) = 1 ' Compteur_Mixte
End If

 

[JHA]

Bonjour à tous,

Un essai par formule

Edit: Changement fichier

JHA

 

[sylvanu]

Bonjour Hoareau, JHA,
Un essai en PJ en VBA.

 

[Dranreb]

Bonjour.
Je pense que je l'écrirais comme ça :

Option Explicit
Sub StatsCoup20P()
   Dim RngDon As Range, TDon(), TDét(), L As Long
   Set RngDon = [C5].Resize([C1000000].End(xlUp).Row - 4, 2)
   TDon = RngDon.Value
   ReDim TDét(1 To UBound(TDon, 1), 1 To 3)
   For L = 1 To UBound(TDon, 1)
      TDét(L, IIf((TDon(L, 1) + TDon(L, 2)) Mod 2, 3, TDon(L, 1) Mod 2 + 1)) = 1
      Next L
   With Intersect([H:J], RngDon.EntireRow)
      .Value = TDét
      [H3:J3].FormulaR1C1 = "=SUM(" & .Columns(1).Address(True, False, xlR1C1, False, .Columns(1)) & ")"
      End With
   [K3].FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
   End Sub

 

[Hoareau]

merci

je voulais d'abord compléter mon code, en vba, mais cela semble plus compliqué

J'avais aussi pensé, ou quelque chose du genre,combin(20,2)- (compteurpair+compteimpair)
mais cela ne me donne pas mes 1 dans la colonne

 

[Hoareau]

Impeccable merci
je pensais qu'i fallait juste modifier la syntaxe, mais c'était plus compliqué

 

[Hoareau]

serait-il possible de transformer la procédure en fonction, qui mettrait chaque décompte dans un tableau, transposable sur la feuille
merci

 

[sylvanu]

Ne sachant pas à qui vous vous adressiez, un ex en PJ avec la fonction :

Function Stat(Plage As Range, TypeStat As String)
Dim Pair As Integer, Impair As Integer, Mixte As Integer, tablo
Pair = 0: Impair = 0: Mixte = 0
tablo = Plage
For c = 1 To UBound(tablo)
N_1 = tablo(c, 1)
N_2 = tablo(c, 2)
If (N_1 And 1) And (N_2 And 1) Then
    Pair = Pair + 1
ElseIf (N_1 And 1) = 0 And (N_2 And 1) = 0 Then
    Impair = Impair + 1
Else
    Mixte = Mixte + 1
End If
Next
Select Case TypeStat
    Case "Pair"
        Stat = Pair
    Case "Impair"
        Stat = Impair
    Case "Mixte"
        Stat = Mixte
    Case "Total"
        Stat = Pair + Impair + Mixte
    Case Else
        Stat = "Erreur"
End Select
End Function

 

[Hoareau]

Bonjour
C'est presque que cela, j'aurai souhaité :
1) que la sortie se fasse en bloc, pour l'affichage sur la feuille
ex: tabl_2(Pair, Impair, Mixte)
2) Ne pas mettre typstat, de façon à avoir les trois décomptes affichés ensembles
Mais cette version m'intéresse aussi

J'ai aussi constaté, voir feuille, que si les couplés ne sont pas complets ou si blanc dans cellules de la plage, le décompte est faux
La plage de référence n'est pas sensée avoir des vides, mais fonction destinée à une boucle sur un grand nombre de lignes, qui peuvent avoir des anomalies

merci

 

[sylvanu]

Bonjour,
Une fonction ne peut pas modifier autre chose que la cellule qui l'appelle, ou du moins je ne connais pas.
Ensuite, si la matrice a des erreurs, alors le résultat est erroné.
Là non plus je ne sais pas comment faire. Sauf à remonter Erreur si une cellule est vide, si elle est négative, si elle a un caractère alpha ...
Pour les cellules vides vous pouvez rajouter ces 4 lignes de codes :

N_1 = tablo(c, 1)
N_2 = tablo(c, 2)
'-----Sécurisation si vide
If N_1 = "" Or N_2 = "" Then
    Stat = "Erreur"
    End Function
End If

 

[Hoareau]

pas pu répondre plus tôt, c'est déjà beaucoup
merci

Bonjour,
Une fonction ne peut pas modifier autre chose que la cellule qui l'appelle, ou du moins je ne connais pas.
Ensuite, si la matrice a des erreurs, alors le résultat est erroné.
Là non plus je ne sais pas comment faire. Sauf à remonter Erreur si une cellule est vide, si elle est négative, si elle a un caractère alpha ...
Pour les cellules vides vous pouvez rajouter ces 4 lignes de codes :

N_1 = tablo(c, 1)
N_2 = tablo(c, 2)
'-----Sécurisation si vide
If N_1 = "" Or N_2 = "" Then
    Stat = "Erreur"
    End Function
End If