Bonjour à toutes et à tous,
mon problème est le suivant :
colonne A : modèle
colonne B : diamètre
colonne C : espacement
colonne F : poids
un même modèle peut avoir plusieurs diamètres,
le même modèle, même diamètre peut avoir plusieurs espacements.
Comment faire pour additionner la colonne F, en vérifiant que les 3
premiers critères sont les mêmes?
Doit y avoir une histoire de "SUMPRODUCT", mais je rame lamentablement ;-(o
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
FUXI
As-tu essayé un tableau croisé dynamique ?
Bonjour à toutes et à tous, mon problème est le suivant : colonne A : modèle colonne B : diamètre colonne C : espacement colonne F : poids un même modèle peut avoir plusieurs diamètres, le même modèle, même diamètre peut avoir plusieurs espacements. Comment faire pour additionner la colonne F, en vérifiant que les 3 premiers critères sont les mêmes? Doit y avoir une histoire de "SUMPRODUCT", mais je rame lamentablement ;-(o
Merci pour votre aide
As-tu essayé un tableau croisé dynamique ?
Bonjour à toutes et à tous,
mon problème est le suivant :
colonne A : modèle
colonne B : diamètre
colonne C : espacement
colonne F : poids
un même modèle peut avoir plusieurs diamètres,
le même modèle, même diamètre peut avoir plusieurs espacements.
Comment faire pour additionner la colonne F, en vérifiant que les 3
premiers critères sont les mêmes?
Doit y avoir une histoire de "SUMPRODUCT", mais je rame lamentablement ;-(o
Bonjour à toutes et à tous, mon problème est le suivant : colonne A : modèle colonne B : diamètre colonne C : espacement colonne F : poids un même modèle peut avoir plusieurs diamètres, le même modèle, même diamètre peut avoir plusieurs espacements. Comment faire pour additionner la colonne F, en vérifiant que les 3 premiers critères sont les mêmes? Doit y avoir une histoire de "SUMPRODUCT", mais je rame lamentablement ;-(o
"Pollux" a écrit dans le message de news: % Bonjour à toutes et à tous, mon problème est le suivant : colonne A : modèle colonne B : diamètre colonne C : espacement colonne F : poids un même modèle peut avoir plusieurs diamètres, le même modèle, même diamètre peut avoir plusieurs espacements. Comment faire pour additionner la colonne F, en vérifiant que les 3 premiers critères sont les mêmes? Doit y avoir une histoire de "SUMPRODUCT", mais je rame lamentablement ;-(o
"Pollux" <tchum@ifrance.com> a écrit dans le message de news: %233E53ZiqFHA.2604@TK2MSFTNGP14.phx.gbl...
Bonjour à toutes et à tous,
mon problème est le suivant :
colonne A : modèle
colonne B : diamètre
colonne C : espacement
colonne F : poids
un même modèle peut avoir plusieurs diamètres,
le même modèle, même diamètre peut avoir plusieurs espacements.
Comment faire pour additionner la colonne F, en vérifiant que les 3
premiers critères sont les mêmes?
Doit y avoir une histoire de "SUMPRODUCT", mais je rame lamentablement ;-(o
"Pollux" a écrit dans le message de news: % Bonjour à toutes et à tous, mon problème est le suivant : colonne A : modèle colonne B : diamètre colonne C : espacement colonne F : poids un même modèle peut avoir plusieurs diamètres, le même modèle, même diamètre peut avoir plusieurs espacements. Comment faire pour additionner la colonne F, en vérifiant que les 3 premiers critères sont les mêmes? Doit y avoir une histoire de "SUMPRODUCT", mais je rame lamentablement ;-(o
Çà marche super bien dans Excel, mais quelle est l'astuce pour mettre la formule dans une macro VBA
michdenis
Bonjour Pollux,
2 façons de faire, selon que tes plages sont dynamiques et que tu veuilles aussi modifier les critères de ta fonction. La formule est écrite pour quatre colonnes adjacentes.
Adapte le nom de la feuille et des plages de cellules ...!
'---------------------------------- Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String Dim Adr2 As String, Adr3 As String Dim Rg As Range, A As Variant Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
'si tu n'as pas besoin de modifier les variables, tu peux utiliser ceci:
A = [SumProduct((A1:A5="Modèle")*(B1:B5=Diamètre)*(C1:C5=Espacement)*(D1:D5))] MsgBox A
End Sub '----------------------------------
Salutations!
"Pollux" a écrit dans le message de news: % Çà marche super bien dans Excel, mais quelle est l'astuce pour mettre la formule dans une macro VBA
Bonjour Pollux,
2 façons de faire, selon que tes plages sont dynamiques et que tu veuilles aussi modifier les critères de ta fonction.
La formule est écrite pour quatre colonnes adjacentes.
Adapte le nom de la feuille et des plages de cellules ...!
'----------------------------------
Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String
Dim Adr2 As String, Adr3 As String
Dim Rg As Range, A As Variant
Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
'si tu n'as pas besoin de modifier les variables, tu peux utiliser ceci:
A = [SumProduct((A1:A5="Modèle")*(B1:B5=Diamètre)*(C1:C5=Espacement)*(D1:D5))]
MsgBox A
End Sub
'----------------------------------
Salutations!
"Pollux" <tchum@ifrance.com> a écrit dans le message de news: %23i3LZJjqFHA.2876@TK2MSFTNGP12.phx.gbl...
Çà marche super bien dans Excel, mais quelle est l'astuce pour mettre
la formule dans une macro VBA
2 façons de faire, selon que tes plages sont dynamiques et que tu veuilles aussi modifier les critères de ta fonction. La formule est écrite pour quatre colonnes adjacentes.
Adapte le nom de la feuille et des plages de cellules ...!
'---------------------------------- Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String Dim Adr2 As String, Adr3 As String Dim Rg As Range, A As Variant Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
'si tu n'as pas besoin de modifier les variables, tu peux utiliser ceci:
A = [SumProduct((A1:A5="Modèle")*(B1:B5=Diamètre)*(C1:C5=Espacement)*(D1:D5))] MsgBox A
End Sub '----------------------------------
Salutations!
"Pollux" a écrit dans le message de news: % Çà marche super bien dans Excel, mais quelle est l'astuce pour mettre la formule dans une macro VBA
michdenis
Attention, j'ai utilisé le TYPE STRING pour les variables Crit , selon tes données, il se peut que tu doivent utiliser le type double ... selon ce que sont tes données !
2 façons de faire, selon que tes plages sont dynamiques et que tu veuilles aussi modifier les critères de ta fonction. La formule est écrite pour quatre colonnes adjacentes.
Adapte le nom de la feuille et des plages de cellules ...!
'---------------------------------- Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String Dim Adr2 As String, Adr3 As String Dim Rg As Range, A As Variant Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
'si tu n'as pas besoin de modifier les variables, tu peux utiliser ceci:
A = [SumProduct((A1:A5="Modèle")*(B1:B5=Diamètre)*(C1:C5=Espacement)*(D1:D5))] MsgBox A
End Sub '----------------------------------
Salutations!
"Pollux" a écrit dans le message de news: % Çà marche super bien dans Excel, mais quelle est l'astuce pour mettre la formule dans une macro VBA
Attention, j'ai utilisé le TYPE STRING pour les variables Crit , selon tes données, il se peut que tu doivent utiliser le type
double ... selon ce que sont tes données !
2 façons de faire, selon que tes plages sont dynamiques et que tu veuilles aussi modifier les critères de ta fonction.
La formule est écrite pour quatre colonnes adjacentes.
Adapte le nom de la feuille et des plages de cellules ...!
'----------------------------------
Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String
Dim Adr2 As String, Adr3 As String
Dim Rg As Range, A As Variant
Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
'si tu n'as pas besoin de modifier les variables, tu peux utiliser ceci:
A = [SumProduct((A1:A5="Modèle")*(B1:B5=Diamètre)*(C1:C5=Espacement)*(D1:D5))]
MsgBox A
End Sub
'----------------------------------
Salutations!
"Pollux" <tchum@ifrance.com> a écrit dans le message de news: %23i3LZJjqFHA.2876@TK2MSFTNGP12.phx.gbl...
Çà marche super bien dans Excel, mais quelle est l'astuce pour mettre
la formule dans une macro VBA
Attention, j'ai utilisé le TYPE STRING pour les variables Crit , selon tes données, il se peut que tu doivent utiliser le type double ... selon ce que sont tes données !
2 façons de faire, selon que tes plages sont dynamiques et que tu veuilles aussi modifier les critères de ta fonction. La formule est écrite pour quatre colonnes adjacentes.
Adapte le nom de la feuille et des plages de cellules ...!
'---------------------------------- Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String Dim Adr2 As String, Adr3 As String Dim Rg As Range, A As Variant Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
