Private Sub CommandButton1_Click()
Dim Ligne As Long
With ActiveSheet()
Ligne =3D .[a65536].End(xlUp)(5).Row
With ActiveSheet()
.Range("Q16").Value =3D Evaluate("=3DSUMPRODUCT((MONTH _
($A$5:$A$" & Ligne & ")=3D12)*($H$5:$H$" & Ligne & "<0))* _
($H$5:$H$" & Ligne & ")")
etc...
end with
end sub
Voil=E0... Excel ne me donne comme r=E9sultat que la valeur en=20
H5...
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
Denis Michon
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre quillemets, excel ne signale pas nécessairement la faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120$ Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
Z'avez une idée pourquoi???
Merci
Denys
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre quillemets, excel ne signale pas nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _
Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de news:019d01c3c0f5$b6e53120$a501280a@phx.gbl...
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[a65536].End(xlUp)(5).Row
With ActiveSheet()
.Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _
($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _
($H$5:$H$" & Ligne & ")")
etc...
end with
end sub
Voilà... Excel ne me donne comme résultat que la valeur en
H5...
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre quillemets, excel ne signale pas nécessairement la faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120$ Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
Z'avez une idée pourquoi???
Merci
Denys
Denys
Bonsoir Denis,
Super!!! Tout fonctionne à merveille!!!! Je suis vraiment chanceux que tu passais par là!!!!
Bonne fin de semaine...(maintenant la mienne peut commencer!!)
Denys
-----Original Message----- Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre quillemets, excel ne signale pas
nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
..Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))* ($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120
$
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
Z'avez une idée pourquoi???
Merci
Denys
.
Bonsoir Denis,
Super!!! Tout fonctionne à merveille!!!! Je suis vraiment
chanceux que tu passais par là!!!!
Bonne fin de semaine...(maintenant la mienne peut
commencer!!)
Denys
-----Original Message-----
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme
tout ceci est entre quillemets, excel ne signale pas
nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
..Range("Q16").Value = _
Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & ")=12)*
($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:019d01c3c0f5$b6e53120
$a501280a@phx.gbl...
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[a65536].End(xlUp)(5).Row
With ActiveSheet()
.Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _
($A$5:$A$" & Ligne & ")=12)*($H$5:$H$" & Ligne & "<0))* _
($H$5:$H$" & Ligne & ")")
etc...
end with
end sub
Voilà... Excel ne me donne comme résultat que la valeur en
H5...
Super!!! Tout fonctionne à merveille!!!! Je suis vraiment chanceux que tu passais par là!!!!
Bonne fin de semaine...(maintenant la mienne peut commencer!!)
Denys
-----Original Message----- Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre quillemets, excel ne signale pas
nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
..Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))* ($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120
$
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
Z'avez une idée pourquoi???
Merci
Denys
.
Jacquouille
Bonsoir Denis La solution préconisée par Alain ne pourrait-elle pas s'appliquer ici pour ce qui est du : .Range("Q16").Value qui serait remplacé par : [Q16] Kwa twa penser ? -- Jacquouille conseille : http://www.excelabo.net
"Denis Michon" <denis a écrit dans le message news: xArCb.54244$
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre quillemets, excel ne signale pas nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120$
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
Z'avez une idée pourquoi???
Merci
Denys
Bonsoir Denis
La solution préconisée par Alain ne pourrait-elle pas s'appliquer ici pour
ce qui est du :
.Range("Q16").Value qui serait remplacé par :
[Q16] Kwa twa penser ?
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Denis Michon" <denis michon@cgocable.ca> a écrit dans le message news:
xArCb.54244$7C.9648@charlie.risq.qc.ca...
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre
quillemets, excel ne signale pas nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _
Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne
& "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:019d01c3c0f5$b6e53120$a501280a@phx.gbl...
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[a65536].End(xlUp)(5).Row
With ActiveSheet()
.Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _
($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _
($H$5:$H$" & Ligne & ")")
etc...
end with
end sub
Voilà... Excel ne me donne comme résultat que la valeur en
H5...
Bonsoir Denis La solution préconisée par Alain ne pourrait-elle pas s'appliquer ici pour ce qui est du : .Range("Q16").Value qui serait remplacé par : [Q16] Kwa twa penser ? -- Jacquouille conseille : http://www.excelabo.net
"Denis Michon" <denis a écrit dans le message news: xArCb.54244$
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre quillemets, excel ne signale pas nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120$
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
Z'avez une idée pourquoi???
Merci
Denys
Denys Perreault
Bonsoir Jacquouille,
Je vais essayer, et je te laisserai savoir...sûrement que cela fonctionne...Merci pour ton idée
Bonne soirée....(Ici c'est bientôt l'heure d'aller souper)
Denys
"Jacquouille" wrote in message news:%
Bonsoir Denis La solution préconisée par Alain ne pourrait-elle pas s'appliquer ici pour ce qui est du : .Range("Q16").Value > qui serait remplacé par : [Q16] > Kwa twa penser ? -- Jacquouille conseille : http://www.excelabo.net
"Denis Michon" <denis a écrit dans le message news: xArCb.54244$
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre
quillemets, excel ne signale pas nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne
& "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120$
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
Z'avez une idée pourquoi???
Merci
Denys
Bonsoir Jacquouille,
Je vais essayer, et je te laisserai savoir...sûrement que cela
fonctionne...Merci pour ton idée
Bonne soirée....(Ici c'est bientôt l'heure d'aller souper)
Denys
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> wrote in message
news:%23bFuaeawDHA.1872@TK2MSFTNGP09.phx.gbl...
Bonsoir Denis
La solution préconisée par Alain ne pourrait-elle pas s'appliquer ici pour
ce qui est du :
.Range("Q16").Value > qui serait remplacé par :
[Q16] > Kwa twa penser ?
--
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Denis Michon" <denis michon@cgocable.ca> a écrit dans le message news:
xArCb.54244$7C.9648@charlie.risq.qc.ca...
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est
entre
quillemets, excel ne signale pas nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _
Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" &
Ligne
& "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:019d01c3c0f5$b6e53120$a501280a@phx.gbl...
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click()
Dim Ligne As Long
With ActiveSheet()
Ligne = .[a65536].End(xlUp)(5).Row
With ActiveSheet()
.Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _
($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _
($H$5:$H$" & Ligne & ")")
etc...
end with
end sub
Voilà... Excel ne me donne comme résultat que la valeur en
H5...
Je vais essayer, et je te laisserai savoir...sûrement que cela fonctionne...Merci pour ton idée
Bonne soirée....(Ici c'est bientôt l'heure d'aller souper)
Denys
"Jacquouille" wrote in message news:%
Bonsoir Denis La solution préconisée par Alain ne pourrait-elle pas s'appliquer ici pour ce qui est du : .Range("Q16").Value > qui serait remplacé par : [Q16] > Kwa twa penser ? -- Jacquouille conseille : http://www.excelabo.net
"Denis Michon" <denis a écrit dans le message news: xArCb.54244$
Bonjour Denys,
Tu as seulement des problèmes de parenthèses... comme tout ceci est entre
quillemets, excel ne signale pas nécessairement la
faute ....
Essaie ceci : (Une seule ligne - la formule)
.Range("Q16").Value = _ Evaluate("SUMPRODUCT((MONTH($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne
& "<0)*($H$5:$H$" & Ligne & "))")
Salutations!
"Denys" a écrit dans le message de news:019d01c3c0f5$b6e53120$
Bonjour à tous,
Commence à faire noir ici....
Voici un petit code VBA;
Private Sub CommandButton1_Click() Dim Ligne As Long With ActiveSheet() Ligne = .[a65536].End(xlUp)(5).Row With ActiveSheet() .Range("Q16").Value = Evaluate("=SUMPRODUCT((MONTH _ ($A$5:$A$" & Ligne & "))*($H$5:$H$" & Ligne & "<0))* _ ($H$5:$H$" & Ligne & ")")
etc... end with end sub
Voilà... Excel ne me donne comme résultat que la valeur en H5...
