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.
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
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:
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.
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" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: euIO3LqeHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour.
Quelqu'un peut-il m'aider à simplifier la formule suivante en E1:
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.
'-------------- 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:
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.
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:
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.
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" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: euIO3LqeHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour.
Quelqu'un peut-il m'aider à simplifier la formule suivante en E1:
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.
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:
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.
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:
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.
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" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: er8LjcueHHA.1388@TK2MSFTNGP05.phx.gbl...
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" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: euIO3LqeHHA.1240@TK2MSFTNGP04.phx.gbl...
Bonjour.
Quelqu'un peut-il m'aider à simplifier la formule suivante en E1:
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.
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:
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.