info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Formule à modifier
6 views
Skip to first unread message
Frédéric Ponsinet
Jul 30, 2021, 3:45:38 AM7/30/21
to
Bonjour,
Je ne parviens pas à faire fonctionner en VBA cette formule qui est
correcte mise en règle conditionnelle
:=ET($CR1>0;SOMME(NB.SI($Z1:$AB1;$BE1:$BH1)*1)>=3)
Les deux plages Z:AB et BE:BH sont attribuées de nombres, le but et de
contrôler si la seconde contient au moins 3 nombres identiques avec la
première.
For i = 2 To 4000
If Cells(i, "CR") > 0 Then
If Evaluate("sum(count.if(Z" & i & ":AB" & i & ",BE" & i &
":BH" & i & ")*1)>=3") Then
TT = TT + Cells(i, "CR")
End If
End If
Next
également essayé:
Evaluate("sum(count.if(Z" & i & ":AB" & i & ",BE" & i & ":BH" & i &
")*1)") >= 3
Je ne parviens pas à faire fonctionner en VBA cette formule qui est
correcte mise en règle conditionnelle
:=ET($CR1>0;SOMME(NB.SI($Z1:$AB1;$BE1:$BH1)*1)>=3)
Les deux plages Z:AB et BE:BH sont attribuées de nombres, le but et de
contrôler si la seconde contient au moins 3 nombres identiques avec la
première.
For i = 2 To 4000
If Cells(i, "CR") > 0 Then
If Evaluate("sum(count.if(Z" & i & ":AB" & i & ",BE" & i &
":BH" & i & ")*1)>=3") Then
TT = TT + Cells(i, "CR")
End If
End If
Next
également essayé:
Evaluate("sum(count.if(Z" & i & ":AB" & i & ",BE" & i & ":BH" & i &
")*1)") >= 3
Frédéric Ponsinet
Jul 30, 2021, 4:38:58 AM7/30/21
to
Je viens de trouver l'erreur, le point entre Count & if est de trop.
0 new messages