Somme d'1 colonne

[Adamev]

Bonjour;
Dans la PJ, tout est expliqué.
Merci d'avance.

 

[R@chid]

Re : Somme d'1 colonne

Bonjour,
une formule si tu veux bien,

=SOMME(INDEX(aaaa;;2))

Amicalement

 

[Adamev]

Re : Somme d'1 colonne

Bonjour R@chid

Merci bien pour la réponse ultra rapide.
Oui, ça donne le résultat souhaité, pour le tableau aaaa. par formule.
Je voudrais, en plus, savoir le bout de code correspondant.
cordialement

 

[Adamev]

Re : Somme d'1 colonne

Bonsoir à tous;

Est-il possible de m'aider à rédiger un bout de code me permettant de calculer la somme d'une colonne d'un tableau. ( Voir post 1)
Merci d'avance.

 

[Victor21]

Re : Somme d'1 colonne

Re,

En utilisant l'enregistreur de macro, comme je vous l'ai indiqué ici, j'obtiens, avec la formule de R@chid (que je salue à l'occasion 🙂 ) :

ActiveCell.FormulaR1C1 = "=SUM(INDEX(aaaa,,2))"

 

[Paritec]

Re : Somme d'1 colonne

bonjour à tous
a+
Papou🙂

MsgBox Application.WorksheetFunction.Sum(Feuil1.Range("B1:B10"))

 

[Adamev]

Re : Somme d'1 colonne

Re,

En utilisant l'enregistreur de macro, comme je vous l'ai indiqué ici, j'obtiens, avec la formule de R@chid (que je salue à l'occasion 🙂 ) :

Merci Victor, de m'avoir accordé une partie de ton temps...
Mais ce que je voudrais c'est le bout de code qui ressemble à:
WorksheetFunction.sum(WorksheetFunction.index(MyTab,,2)
où MyTab est le nom du tableau interne ,issu de aaaa. Voir le code de Feuil1 da la PJ.
Merci

 

[Adamev]

Re : Somme d'1 colonne

MsgBox Application.WorksheetFunction.Sum(Feuil1.Range("B1:B10"))

merci Paritec;
Peux tu me "traduire" la formule de Rachid, de la même façon.
Je l'ai traduite comme ça:
WorksheetFunction.sum(WorksheetFunction.index(MyTa b,,2)
mais ça n'a pas marché...

 

[JCGL]

Re : Somme d'1 colonne

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Somme_Col()
Dim Col%
Col = InputBox("Choisir la colonne", "Quelle colonne ?", 1)
Cells(1, 9) = Application.WorksheetFunction.Sum(Feuil1.Columns(Col))
End Sub

A+ à tous

Edition : Si tu souhaites utiliser ton MyTab :

Option Explicit

Sub Somme_Col()
Dim Col%
Dim MyTab
Set MyTab = Range("aaaa")
Col = InputBox("Choisir la colonne", "Quelle colonne", 1)
Cells(1, 9) = Application.WorksheetFunction.Sum(MyTab.Columns(Col))
End Sub

 

[Adamev]

Re : Somme d'1 colonne

Peux-tu essayer :

Option Explicit

Sub Somme_Col()
Dim Col%
Col = InputBox("Choisir la colonne", "Quelle colonne ?", 1)
Cells(1, 9) = Application.WorksheetFunction.Sum(Feuil1.Columns(Col))
End Sub

Bonsoir JCGL,
Merci pour la réponse,
Oui, cette élégante macro, me donne la somme de la colonne qu'on choisit.
Mais ce n'est pas tout à fait ce que je souhaite.
En fait, mon souhait et d'avoir le bout de code qui utilise mon tableau interne MyTab, (Voir le code de la Feui1).
L'idéal serait la traduction en langage VBA de la formule de Rachid ci-dessus.
Cordialement

 

[JCGL]

Re : Somme d'1 colonne

Bonjour à tous,

Voir mon édition de 18 h 32

Mise en couleur de la colonne sommée :

Option Explicit

Sub Somme_Col()
Dim Col%
Dim MyTab
Set MyTab = Range("Plage")
MyTab.Interior.ColorIndex = 36
Col = InputBox("Choisir la colonne", "Quelle colonne ?", 1)
MyTab.Columns(Col).Interior.ColorIndex = 44
Cells(1, 9) = Application.WorksheetFunction.Sum(MyTab.Columns(Col))
End Sub

A + à tous

 

[Adamev]

Re : Somme d'1 colonne

Edition : Si tu souhaites utiliser ton MyTab :

Option Explicit

Sub Somme_Col()
Dim Col%
Dim MyTab
Set MyTab = Range("aaaa")
Col = InputBox("Choisir la colonne", "Quelle colonne", 1)
Cells(1, 9) = Application.WorksheetFunction.Sum(MyTab.Columns(Col))
End Sub

Re,
Oui. ça me donne une idée-clé, qui répond exactement à mon attente.
un grand merci à toi GCGL.
Toutefois s'il est possible de me "traduire" en langage VBA, la formule de Rachid, ci-dessus, je te serais trés reconnaissant, et surtout en corrigeant l’éventuelle erreur que j'ai commise en l'écrivant:
WorksheetFunction.sum(WorksheetFunction.index(MyTa b,,2)
Cordialement

 

[Adamev]

Re : Somme d'1 colonne

Bonjour GCGL;

Une modification que tu as effectué dans ma première macro:
MyTab est défini en tant que tableau dynamique par:
Dim MyTab()

Alors que dans la macro modifiée, MyTab est défini comme "Range" par:
Set MyTab = Range("aaaa").

Est-ce qu'il est possible de modifier les macros données, en définissant MyTab comme tableau dynamique, comme il était dans la pj.
Merci infiniment GCGL.