XL 2016 Calculer un sous total dans une TextBox

[Eric4709]

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.

 

[sylvanu]

Bonjour Eric,
En conservant la structure de votre macro :

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.Range(Cells(1, NoCol), Cells(1000, NoCol)).AutoFilter Field:=1, Criteria1 _
:=xlFilterThisMonth, Operator:=xlFilterDynamic
' calcul du CA mensuel
CA_Réalisé = Application.Subtotal(9, Range("AE:AE"))
' suppression du filtre mensuel
ActiveSheet.Range(Cells(1, NoCol), Cells(1000, NoCol)).AutoFilter Field:=1
End Sub

 

[Eric4709]

Comme toujours merci pour ta réactivité Sylvanu.

Lorsque je lance la macro, le total ne s'affiche pas dans ma textbox. Elle reste vide :-(

 

[sylvanu]

Dans ma macro CA_Réalisé est une variable.
Pour un textbox dans la feuille, essayez :

' calcul du CA mensuel
ActiveSheet.CA_Réalisé.Text = Application.Subtotal(9, Range("AE:AE"))

sinon pour un textbox dans un userform précisez le nom du userform à la place de Worksheet.

 

[Eric4709]

Bonsoir Sylvanu,

Voici le Code tel que j'ai essayé de le retranscrire dans mon fichier. Mais lorsque j'active la macro, le sous total ne s'affiche toujours .

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.Range(Cells(1, NoCol), Cells(1000, NoCol)).AutoFilter Field:=1, Criteria1 _
:=xlFilterThisMonth, Operator:=xlFilterDynamic
' calcul du CA mensuel
ActiveSheet.Atterrissage_ROFO.CA_Réalisé.Text = Application.Subtotal(9, Range("AE:AE"))
' suppression du filtre mensuel
ActiveSheet.Range(Cells(1, NoCol), Cells(1000, NoCol)).AutoFilter Field:=1
End Sub

Merci d'avance pour ton aide.

 

[sylvanu]

Bonsoir,
Sans le fichier difficile à dire.
Si Atterrissage_ROFO est un userform alors faites simplement, (le userform n'est pas dans activesheet)

Atterrissage_ROFO.CA_Réalisé.Text = Application.Subtotal(9, Range("AE:AE"))

Vérifiez que le subtotal marche en faisant pour essai :

[A1]= Application.Subtotal(9, Range("AE:AE"))

 

[ChTi160]

Bonsoir Eric4709
Bonsoir sylvanu
pourquoi dans cette procédure ?

Private Sub CA_Réalisé_Change()

on entre des données dans CA_Réalisé et ensuite on va y afficher le Sous total ?
j'ai surement rien Compris Lol
jean marie

 

[sylvanu]

Eric cherche à afficher le SousTotal dans un TextBox nommé CA_Réalisé.
Tout du moins c'est ce que j'ai compris à la fin.

 

[ChTi160]

Re j'ai aussi compris ça (je pensais que c'était un récepteur) mais pourquoi la procédure dans le change de ce même TextBox?
Mais bon lol
Jean marie

 

[Eric4709]

Bonjour à tous et merci de l'intérêt que vous portez à cette discussion.

Je souhaite effectivement afficher le sous total d'une colonne dans un Userform, contenant plusieurs TextBox, que je fais apparaître via un bouton personnalisé.

 

[Eric4709]

Bonsoir,
Sans le fichier difficile à dire.
Si Atterrissage_ROFO est un userform alors faites simplement, (le userform n'est pas dans activesheet)

Atterrissage_ROFO.CA_Réalisé.Text = Application.Subtotal(9, Range("AE:AE"))

Vérifiez que le subtotal marche en faisant pour essai :

[A1]= Application.Subtotal(9, Range("AE:AE"))

Sylvanu,

Lorsque je teste subtotal dans A1 il fonctionne parfaitement.
Mais elle le sous total ne remonte dans le champs Text de ma UserForm

 

[Eric4709]

Pour faciliter la compréhension j'ai fait une version simplifiée et sans les informations sensibles de mon fichier.

 

[sylvanu]

Bonjour eric,
Mettez un fichier où apparaît votre Userform, ce sera plus simple à comprendre.
Et dites aussi quel sous total vous voulez obtenir dans quel champ.

 

[Eric4709]

Désolé je pensais avoir mis le bon fichier.
Je souhaiterai afficher le sous total en € de la colonne AE en fonction des dates du mois en cours de la colonne BN

 

[ChTi160]

Bonjour
Bonjour le Fil (sylvanu) ,le Forum
voilà ce que j'ai adapté et qui semble fonctionner.

Private Sub UserForm_Initialize()
Atterrissage_ROFO.CA_Réalisé.Text = Application.Subtotal(9, Feuil1.Range("AE:AE"))
End Sub

jean marie