Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Somme SI dans Textbox avec critere dans Combobox

  • Initiateur de la discussion Initiateur de la discussion Batou7
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Batou7

XLDnaute Nouveau
Bonjour à tous,

Je bloque actuellement sur un code VBA.
Via un formulaire vba, j'aimerai effectuer une somme si dans une textbox dont le critère est défini plus haut dans une combobox.

Private Sub ComboboxT1_Change()
Dim LaRecherche As String

LaRecherche = Application.WorksheetFunction.SumIf(Sheets("Budget 2016").Range("A:A"), "=ComboboxT1", Sheets("Budget 2016").Range("F:F"))
TextBoxOldFrom = LaRecherche
End Sub

Le problème est que la somme si m'affiche 0 et lorsque je change le critere à la "main" en mettant "2140", j'obtiens le bon résultat. Je ne vois pas ou je fais faux pas.

Je vous ai joins mon fichier pour une meilleur compréhension.

Merci pour vos aides et solutions 🙂
 

Pièces jointes

Re : Somme SI dans Textbox avec critere dans Combobox

Salut,

Je pense qu'il te faut déclarer ta ComboboxT1 en variable, essaie ça :

Private Sub ComboboxT1_Change()
Dim LaRecherche As String
Dim Val_T1

LaRecherche = Application.WorksheetFunction.SumIf(Sheets("Budget 2016").Range("A:A"), Val_T1, Sheets("Budget 2016").Range("F:F"))
TextBoxOldFrom = LaRecherche
End Sub
 
Re : Somme SI dans Textbox avec critere dans Combobox

Bonjour à tous

Comme le précise naru31, il faut utiliser une variable et non une chaine de caractères ("=ComboboxT1").


LaRecherche = Application.WorksheetFunction.SumIf(Sheets("Budget 2016").Range("A:A"), ComboboxT1, Sheets("Budget 2016").Range("F:F"))

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
751
Réponses
1
Affichages
741
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…