Microsoft 365 ComboBox dans une Formule

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
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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:

PORCHER

XLDnaute Occasionnel
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.
 

Discussions similaires

Réponses
4
Affichages
182

Statistiques des forums

Discussions
312 229
Messages
2 086 423
Membres
103 206
dernier inscrit
diambote