XL 2016 Calculer un sous total dans une TextBox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Juillet 2020

• #2

Bonjour Eric,
En conservant la structure de votre macro :

VB:

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

 

Vote positif 0 Vote négatif

Eric4709

XLDnaute Nouveau

• 15 Juillet 2020

• #3

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 :-(

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Juillet 2020

• #4

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

VB:

' 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.

 

Vote positif 0 Vote négatif

Eric4709

XLDnaute Nouveau

• 16 Juillet 2020

• #5

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 .

Code:

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #6

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

VB:

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

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

Code:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 16 Juillet 2020

• #7

Bonsoir Eric4709
Bonsoir sylvanu
pourquoi dans cette procédure ?

VB:

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Juillet 2020

• #8

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 16 Juillet 2020

• #9

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

 

Vote positif 0 Vote négatif

Eric4709

XLDnaute Nouveau

• 20 Juillet 2020

• #10

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é.

 

Vote positif 0 Vote négatif

Eric4709

XLDnaute Nouveau

• 20 Juillet 2020

• #11

sylvanu à dit:

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

VB:

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

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

Code:

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

Cliquez pour agrandir...

Sylvanu,

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

 

Vote positif 0 Vote négatif

Eric4709

XLDnaute Nouveau

• 20 Juillet 2020

• #12

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

 

Pièces jointes

• Test.xlsx

  45.1 KB · Affichages: 9

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2020

• #13

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.

 

Vote positif 0 Vote négatif

Eric4709

XLDnaute Nouveau

• 20 Juillet 2020

• #14

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

 

Pièces jointes

• Test.xlsm

  56.4 KB · Affichages: 7

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Juillet 2020

• #15

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

VB:

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

jean marie

 

Vote positif 0 Vote négatif