Microsoft 365 ComboBox dans une Formule

  • Initiateur de la discussion Initiateur de la discussion PORCHER
  • 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 !

PORCHER

XLDnaute Occasionnel
Bonjour à tous,
Je souhaiterais une nouvelle fois votre aide.
J'ai dans une ComboBox un non de compte
ComboBox1 = frmAjoCompte.txtComptes ( frmAjoCompte est mon UserForm)

Je souhaiterais que ce non de compte s'inscrive dans cette formule :
Formule = "=sumifs(txtComptes!L:L,txtComptes!A:A,A:A,txtComptes!B:B," & Chr(34) & "Crédit" & Chr(34) & ")"
moShSyst.Range("C" & iLigSyst).Formula = Formule
Comment faire ?
Merci pour votre aide
 
Bonjour @PORCHER🙂,

Ceci devrait convenir (pas testé puisque pas de fichier) :
Je ne comprends pas bien ce : ComboBox1 = frmAjoCompte.txtComptes
Parlez-vous de ComboBox1 et d'un textbox nommé txtComptes ?
J'ai considéré que le nom du compte est dans le TextBox txtComptes alors :
VB:
Dim Par as string
Formule = "=sumifs(txtComptes!L:L,txtComptes!A:A,A:A,txtComptes!B:B," & Chr(34) & "Crédit" & Chr(34) & ")"
Par ="'" & txtComptes & "'"           'ajout de guillemets simples au cas où le compte comporte des espaces
Formule = replace(Formule,txtComptes,Par)
moShSyst.Range("C" & iLigSyst).Formula = Formule
 
Dernière édition:
Merci. Il s'agit de création d'un nouveau compte écrit dans la comboBox1.
Cette comboBox1 s'intitule "TxtComptes". A chaque création de compte dans les cellules "C" "D" et "E" j'ai des formules.
Recettes (colonne C) : =SOMME.SI.ENS(Ecritures!N:N;Ecritures!A:A;A:A;Ecritures!F:F;"Crédit")
Dépenses (colonne D) : =SOMME.SI.ENS(Ecritures!N:N;Ecritures!A:A;A:A;Ecritures!F:F;"Débit")
Solde (colonne E) : =B5-C5+D5
Ecritures étant un compte ouvert, si le compte change ou soit il est créé un nouveau alors Ecritures dans la formule change.
 
- 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
17
Affichages
800
Réponses
1
Affichages
182
Retour