Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Simplification de formule

Simplification de formule

3 réponses
Avatar
Patrick BASTARD
Bonjour.

Quelqu'un peut-il m'aider à simplifier la formule suivante en E1:

=INDEX(Table2;EQUIV(F2&E2;Table1;0))+INDEX(Table2;EQUIV(F3&E3;Table1;0))+.......+INDEX(Table2;EQUIV(F367&E367;Table1;0))

Je m'arrache les quelques cheveux qui me restent, car je souhaite ne pas
utiliser de colonne intermédiaire, et mes recherches sur Google.goup ne
m'ont pas avancé.
Matricielle ? quelle serait la syntaxe ?
Boucle VBA ?, mais comment affecter la valeur résultant du calcul de chaque
ligne à une variable ?


D'avance, merci

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,
Boucle VBA ?,
Ceci peut-être:

'--------------
Sub JJ()
For i = 2 To 367
x = Range("f" & i) & Range("e" & i)
If Not IsError(Application.Match(x, [Table1], 0)) Then
Y = Y + Application.Index([Table2], Application.Match(x, [Table1], 0))
End If
Next
MsgBox Y
[a1] = Y
End Sub
'-------------------
--
Salutations
JJ



"Patrick BASTARD" a écrit dans le
message de news:
Bonjour.

Quelqu'un peut-il m'aider à simplifier la formule suivante en E1:

=INDEX(Table2;EQUIV(F2&E2;Table1;0))+INDEX(Table2;EQUIV(F3&E3;Table1;0))+.......+INDEX(Table2;EQUIV(F367&E367;Table1;0))

Je m'arrache les quelques cheveux qui me restent, car je souhaite ne pas
utiliser de colonne intermédiaire, et mes recherches sur Google.goup ne
m'ont pas avancé.
Matricielle ? quelle serait la syntaxe ?
Boucle VBA ?, mais comment affecter la valeur résultant du calcul de
chaque ligne à une variable ?


D'avance, merci

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Avatar
Patrick BASTARD
Bonsoir, *Jacky*

C'est tout à fait ce que je cherchais.

Je te remercie infiniment.

J'en étais arrivé à rechercher comment créer un array pour faire les calculs
ligne par ligne. Galère...

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir,
Boucle VBA ?,
Ceci peut-être:

'--------------
Sub JJ()
For i = 2 To 367
x = Range("f" & i) & Range("e" & i)
If Not IsError(Application.Match(x, [Table1], 0)) Then
Y = Y + Application.Index([Table2], Application.Match(x, [Table1], 0))
End If
Next
MsgBox Y
[a1] = Y
End Sub
'-------------------

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour.

Quelqu'un peut-il m'aider à simplifier la formule suivante en E1:

=INDEX(Table2;EQUIV(F2&E2;Table1;0))+INDEX(Table2;EQUIV(F3&E3;Table1;0))+.......+INDEX(Table2;EQUIV(F367&E367;Table1;0))

Je m'arrache les quelques cheveux qui me restent, car je souhaite ne
pas utiliser de colonne intermédiaire, et mes recherches sur
Google.goup ne m'ont pas avancé.
Matricielle ? quelle serait la syntaxe ?
Boucle VBA ?, mais comment affecter la valeur résultant du calcul de
chaque ligne à une variable ?


D'avance, merci

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.




Avatar
Jacky
Re...
Attend demain qui sait peut-être que........
Si AV jette un regard sur ce fil, je suis persuadé qu'il a une belle formule
de caché dans un ouf de Pâques.
;o))
--
Salutations
JJ



"Patrick BASTARD" a écrit dans le
message de news:
Bonsoir, *Jacky*

C'est tout à fait ce que je cherchais.

Je te remercie infiniment.

J'en étais arrivé à rechercher comment créer un array pour faire les
calculs ligne par ligne. Galère...

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir,
Boucle VBA ?,
Ceci peut-être:

'--------------
Sub JJ()
For i = 2 To 367
x = Range("f" & i) & Range("e" & i)
If Not IsError(Application.Match(x, [Table1], 0)) Then
Y = Y + Application.Index([Table2], Application.Match(x, [Table1], 0))
End If
Next
MsgBox Y
[a1] = Y
End Sub
'-------------------

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour.

Quelqu'un peut-il m'aider à simplifier la formule suivante en E1:

=INDEX(Table2;EQUIV(F2&E2;Table1;0))+INDEX(Table2;EQUIV(F3&E3;Table1;0))+.......+INDEX(Table2;EQUIV(F367&E367;Table1;0))

Je m'arrache les quelques cheveux qui me restent, car je souhaite ne
pas utiliser de colonne intermédiaire, et mes recherches sur
Google.goup ne m'ont pas avancé.
Matricielle ? quelle serait la syntaxe ?
Boucle VBA ?, mais comment affecter la valeur résultant du calcul de
chaque ligne à une variable ?


D'avance, merci

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.