Evaluate boucle

K

kjin

XLDnaute Barbatruc

• 6 Février 2010

• #2

Re : Evaluate boucle

Bonjour,
Peut-être

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Février 2010

• #3

Re : Evaluate boucle

bonsoir hoareau

Salut kjin

Pas sur d'avoir compris

A tester

Code:

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

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 6 Février 2010

• #4

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Février 2010

• #5

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 & "..."

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 7 Février 2010

• #6

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Février 2010

• #7

Re : Evaluate boucle

Salut
Bonjour le fil

peut être en modifiant comme ceux ci

Code:

[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

 

Dernière édition: 7 Février 2010

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 7 Février 2010

• #8

Re : Evaluate boucle

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

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


merci

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 7 Février 2010

• #9

Re : Evaluate boucle

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

Code:

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Février 2010

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Février 2010

• #11

Re : Evaluate boucle

Bonjour à tous


Pourquoi passer par une boucle ?

Code:

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

 

Dernière édition: 7 Février 2010

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 7 Février 2010

• #12

Re : Evaluate boucle

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

 

Vote positif 0 Vote négatif