Evaluate boucle

[Hoareau]

Bonjour

si je mets dans la cellule

=SOMME((F3:I3>=1)*(F3:I3<=5))

cela fonctionnne


Si je fais une boucle avec evaluate, cela ne fonctionne pas

merci


Sub Tranches()

For i = 3 To 367

Tranche_1 = Range("F" & i & ":I" & i)

'Ne fonctionne pas
Cells(i, 31) = Evaluate("=sum((Tranche_1 >= 1)*(Tranche_1 <= 5))")

'Fonctionne pour test
Range("af" & i & ":ai" & i) = Tranche_1

Next

End Sub

 

[kjin]

Re : Evaluate boucle

Bonjour,
Peut-être

c = Range("F" & i & ":I" & i).Address
x = Evaluate("SUM((" & c & ">=1)*(" & c & "<=5))")

A+
kjin

 

[pierrejean]

Re : Evaluate boucle

bonsoir hoareau

Salut kjin

Pas sur d'avoir compris

A tester

Sub Tranches()
For i = 3 To 367
Tranche_1 = Range("F" & i & ":I" & i).Address
'Ne fonctionne pas
Cells(i, 31) = Evaluate("=sumproduct((" & Tranche_1 & ">= 1)*(" & Tranche_1 & "<= 5))")
'Fonctionne pour test
'Range("af" & i & ":ai" & i) = Tranche_1
Next
End Sub

 

[Hoareau]

Re : Evaluate boucle

Impeccable

les deux fonctionnent comme je le voulais

Explication de la syntaxe et pourquoi ma formule ne passe passes pas svp

merci

 

[pierrejean]

Re : Evaluate boucle

Re

Essentiellement parceque Tranche_1 etant entre les " " est compris comme un texte et non comme un Range
La meilleure façon de proceder est d'ecrire la formule voulue dans la feuille puis d'aller chercher la façon de l'ecrire en faisant un msgbox(range("cellule ou est la formule").formula)
Ensuite traduire en remplacant du texte par une variable qui se trouvera ainsi: "..." & var & "..."

 

[Hoareau]

Re : Evaluate boucle

Merci pour les explications, J'ai essayé d'appliquer les conseils, mais toujours ce problème de variable.

ajouté T_1_Inf pour tranche inférieure
ajouté T_1_Supp pour tranche suppérieure



Sub Tranches()

T_1_Inf = 1
T_1_Supp = 10

For i = 3 To 367

Plage = Range("F" & i & ":I" & i).Address

'Ne fonctionne pas
Cells(i, 31) = Evaluate("=sumproduct((" & Plage & " >= T_1_Inf) * (" & Plage & " <= T_1_Supp))")

'Fonctionne
Cells(i, 32) = Evaluate("=sumproduct((" & Plage & ">= 1)*(" & Plage & "<= 10))")

Next

End Sub

 

[ChTi160]

Re : Evaluate boucle

Salut
Bonjour le fil

peut être en modifiant comme ceux ci

[SIZE=1]Cells(i, 7) = Evaluate("=sumproduct((" & Plage & ">=[COLOR=red]"[/COLOR][COLOR=red] &[/COLOR] T_1_Inf [COLOR=red]&[/COLOR] [COLOR=red]"[/COLOR]) _[/SIZE]
[SIZE=1]                                       * (" & Plage & " <=[COLOR=red]" &[/COLOR] T_1_Supp [COLOR=red]&[/COLOR] [COLOR=red]"[/COLOR]))")[/SIZE]

toujours ce problème de variables Texte Lol
bonne journée

 

[Hoareau]

Re : Evaluate boucle

Je m'emmêle à chaque fois avec les & et les "

pourtant la réponse était dans le post de pierrejean


merci

 

[kjin]

Re : Evaluate boucle

Re, bonjour Bebere 🙂
Ecrire d'abord en formule pour vérifier, puis transformer en valeur

Sub Tranches()
a = 1
b = 10

For i = 3 To 367
    rng = Range("F" & i & ":I" & i).Address
    With Cells(i, 1)
        .FormulaLocal = "=SOMMEPROD((" & rng & ">=" & a & ")*(" & rng & "<=" & b & "))"
        .Value = .Value
    End With
Next

End Sub

A+
kjin

 

[Bebere]

Re : Evaluate boucle

bonjour Kjin,Hoareau?chti,pierre-Jean
que tu beau monde et salutations amicales
en suivant l'idée de Chti
Sub Tranches()
a = 1
b = 4

For I = 3 To 367
Set rng = Range("F" & I & ":I" & I)
rng.Name = "LigneI"
With Cells(I, 1)
.FormulaLocal = Evaluate("SUMPRODUCT((ligneI>=" & a & ")*(ligneI<=" & b & "))")
' .Value = .Value
End With
Next

end sub

à bientôt

 

[Staple1600]

Re : Evaluate boucle

Bonjour à tous


Pourquoi passer par une boucle ?

Sub Macro5()
Dim a, b
a = 1
b = 10
With Range("A3:A367")
.FormulaR1C1 = "=SUMPRODUCT((RC[5]:RC[8]>=" & a & ")*(RC[5]:RC[8]<=" & b & "))"
.Value=.Value
End with
End Sub

 

[Hoareau]

Re : Evaluate boucle

Merci pour toutes vos réponse, je vais essayer de comprendre la formulation de chacun.