Eric4709
XLDnaute Nouveau
Bonjour à tous,
Je me tourne une nouvelle fois vers la communauté pour résoudre un problème que je rencontre.
J'ai un tableau comprenant plus de 6000 ligne et 70 colones. Ce tableau contient des dates en colonne BN et des montants en AE.
Ce que je voudrai faire ici c'est afficher dans une TextBox1 (renommée CA_Réalisé) que j'ai créé, le sous total des montants livrés (Colonne AE) dans le mois en cours (en fonction des dates de la colonne BN).
J'ai tenté ce code mais visiblement il ne fonctionne pas :
Private Sub CA_Réalisé_Change()
Dim NoCol As Integer
NoCol = Application.Match("Date TP système", Range("1:1"), 0) ' recherche de la bonne colonne
ActiveSheet.ListObjects("Suivi_M53").Range.AutoFilter Field:=NoCol, Criteria1 _
:=xlFilterThisMonth, Operator:=xlFilterDynamic
CA_Réalisé.FormulaLocal = "=sous.total(9;AE1:AEl0000)"
End Sub
Je ne peux malheureusement pas mettre le fichier en ligne car il contient des données confidentielles.
J'espère que ma demande n'est pas trop brouillonne.
Merci d'avance pour vos retour.
Bien cordialement à tous.
Je me tourne une nouvelle fois vers la communauté pour résoudre un problème que je rencontre.
J'ai un tableau comprenant plus de 6000 ligne et 70 colones. Ce tableau contient des dates en colonne BN et des montants en AE.
Ce que je voudrai faire ici c'est afficher dans une TextBox1 (renommée CA_Réalisé) que j'ai créé, le sous total des montants livrés (Colonne AE) dans le mois en cours (en fonction des dates de la colonne BN).
J'ai tenté ce code mais visiblement il ne fonctionne pas :
Private Sub CA_Réalisé_Change()
Dim NoCol As Integer
NoCol = Application.Match("Date TP système", Range("1:1"), 0) ' recherche de la bonne colonne
ActiveSheet.ListObjects("Suivi_M53").Range.AutoFilter Field:=NoCol, Criteria1 _
:=xlFilterThisMonth, Operator:=xlFilterDynamic
CA_Réalisé.FormulaLocal = "=sous.total(9;AE1:AEl0000)"
End Sub
Je ne peux malheureusement pas mettre le fichier en ligne car il contient des données confidentielles.
J'espère que ma demande n'est pas trop brouillonne.
Merci d'avance pour vos retour.
Bien cordialement à tous.