Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sommeprod en VBA

Sommeprod en VBA

4 réponses
Avatar
Vincent
Bonjour.

Je souhaite avoir dans le label10, la formule :
=sommeprod(fichier_type)=ComboBox4.Value)*(fichier_genre)=ComboBox1.Value))

Private Sub ComboBox4_Change()
Label18 = Application.CountIf([fichier_type], ComboBox4.Value)
End Sub
Private Sub ComboBox1_Change()
Label22 = Application.CountIf([fichier_genre], ComboBox1.Value)
End Sub

Merci beaucoup
Vincent
Signaler un problème avec ce contenu

4 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
Vincent
C'est moi ;-)
En fait; je pense que cela devrait ressembler à cela.
Mais naturellement cela ne fonctionne pas !

Label10 = sommeproduct(([fichier_type]=ComboBox4.Value)*([fichier_genre]) ComboBox1.Value))

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

Je souhaite avoir dans le label10, la formule :

=sommeprod(fichier_type)=ComboBox4.Value)*(fichier_genre)=ComboBox1.Value))


Private Sub ComboBox4_Change()
Label18 = Application.CountIf([fichier_type], ComboBox4.Value)
End Sub
Private Sub ComboBox1_Change()
Label22 = Application.CountIf([fichier_genre], ComboBox1.Value)
End Sub

Merci beaucoup
Vincent




Avatar
Philippe.R
Bonjour Vincent,
Fais l'essai de cette variante :
Label10 = Application.WorksheetFunction.SumProduct(([fichier_type] = ComboBox4.Value) * ([fichier_genre]
= ComboBox1.Value))
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Vincent" a écrit dans le message de news:
C'est moi ;-)
En fait; je pense que cela devrait ressembler à cela.
Mais naturellement cela ne fonctionne pas !

Label10 = sommeproduct(([fichier_type]=ComboBox4.Value)*([fichier_genre]) > ComboBox1.Value))

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

Je souhaite avoir dans le label10, la formule :

=sommeprod(fichier_type)=ComboBox4.Value)*(fichier_genre)=ComboBox1.Value))


Private Sub ComboBox4_Change()
Label18 = Application.CountIf([fichier_type], ComboBox4.Value)
End Sub
Private Sub ComboBox1_Change()
Label22 = Application.CountIf([fichier_genre], ComboBox1.Value)
End Sub

Merci beaucoup
Vincent








Avatar
Vincent
Merci Philippe, pour l'instant cela ne fonctionne pas, mais grâce à toi,
j'ai déjà la syntaxe.
Je te remercie, je continue...
Vincent

"Philippe.R" a écrit dans le message de
news:
Bonjour Vincent,
Fais l'essai de cette variante :
Label10 = Application.WorksheetFunction.SumProduct(([fichier_type] ComboBox4.Value) * ([fichier_genre]
= ComboBox1.Value))
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Vincent" a écrit dans le message de
news:

C'est moi ;-)
En fait; je pense que cela devrait ressembler à cela.
Mais naturellement cela ne fonctionne pas !

Label10 sommeproduct(([fichier_type]=ComboBox4.Value)*([fichier_genre]) > > ComboBox1.Value))

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

Je souhaite avoir dans le label10, la formule :



=sommeprod(fichier_type)=ComboBox4.Value)*(fichier_genre)=ComboBox1.Value))



Private Sub ComboBox4_Change()
Label18 = Application.CountIf([fichier_type], ComboBox4.Value)
End Sub
Private Sub ComboBox1_Change()
Label22 = Application.CountIf([fichier_genre], ComboBox1.Value)
End Sub

Merci beaucoup
Vincent












Avatar
Philippe.R
Bienvenue !
--
Amicales Salutations

"Vincent" a écrit dans le message de news:
Merci Philippe, pour l'instant cela ne fonctionne pas, mais grâce à toi,
j'ai déjà la syntaxe.
Je te remercie, je continue...
Vincent

"Philippe.R" a écrit dans le message de
news:
Bonjour Vincent,
Fais l'essai de cette variante :
Label10 = Application.WorksheetFunction.SumProduct(([fichier_type] > ComboBox4.Value) * ([fichier_genre]
= ComboBox1.Value))
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Vincent" a écrit dans le message de
news:

C'est moi ;-)
En fait; je pense que cela devrait ressembler à cela.
Mais naturellement cela ne fonctionne pas !

Label10 > sommeproduct(([fichier_type]=ComboBox4.Value)*([fichier_genre]) > > > ComboBox1.Value))

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

Je souhaite avoir dans le label10, la formule :



=sommeprod(fichier_type)=ComboBox4.Value)*(fichier_genre)=ComboBox1.Value))



Private Sub ComboBox4_Change()
Label18 = Application.CountIf([fichier_type], ComboBox4.Value)
End Sub
Private Sub ComboBox1_Change()
Label22 = Application.CountIf([fichier_genre], ComboBox1.Value)
End Sub

Merci beaucoup
Vincent