Discussion :

[sab_info]

Bonjour,

Je souhaite faire la somme d'une colonne qui a un nombre de ligne variant.

J'ai nommé la première cellule de cette colonne là j'ai fait pas mal de test pour sommer les valeurs des lignes mais j'y arrive pas.

Quel est la meilleure solution pour résoudre ce problème ?

Merci

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.Sum(Columns(X))

Avec 'X' le numéro de colonne.

[jfontaine]

Bonjour,

2 méthodes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.Sum(Columns(Range("monnom").Column))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evaluate("sum(" & Range(Range("monnom"), Cells(Rows.Count, Range("monnom").Column).End(xlUp)).Address & ")")

[Ashireon]

Hello,

Tu veux faire la somme d'une colonne don le nombre de lignes occupées est variable ?

quel est la forme de tes valeurs entiers , double ???

Dans quelle cellule veux tu le resultat?

[sab_info]

Hello,

Tu veux faire la somme d'une colonne don le nombre de lignes occupées est variable ?

quel est la forme de tes valeurs entiers , double ???

Dans quelle cellule veux tu le resultat?

Bonjour,

Ces des valeurs avec des virgule " single "

Oui je veux sommer les lignes occupées et variables

Je veux mettre la somme dans une cellule que j'ai nommé

[Invité]

Dans ce cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("nom_2").Value = Application.WorksheetFunction.Sum(Columns(Range("nom_1").Column))

Avec:
'nom_1' La cellule de la plage à sommer
'nom_2' La cellule de destination

[Ashireon]

Si ce qui a été donné au dessus ne fonctionne pas c'est que tout simplement tu as un probleme avec tes valeurs dans les cellules. elles sont consiferées comme du texte et non des nombres

[sab_info]

Bonjour,

2 méthodes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.Sum(Columns(Range("monnom").Column))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evaluate("sum(" & Range(Range("monnom"), Cells(Rows.Count, Range("monnom").Column).End(xlUp)).Address & ")")

Merci beaucoup pour ta réponse je viens d'essayer cette instruction et ça à l'air de marcher.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.Sum(Columns(Range("monnom").Column))

Mais par contre pourrais tu nous expliquer les deux solution ?

La première solution somme telle toute les valeurs de la colonne ? car ma feuille pourrait contenir des valeurs dans la même colonne mais qui ne sont pas considéré dans la somme

Merci

Dans ce cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("nom_2").Value = Application.WorksheetFunction.Sum(Columns(Range("nom_1").Column))

Avec:
'nom_1' La cellule de la plage à sommer
'nom_2' La cellule de destination

Ta solution somme toute la colonne et moi je veux juste sommer quelque lignes d'un tableau et non pas la totalité des ligne de cette colonne.

je m'explique si j'ai un tableau avec 10 ligne alors je ne sommerai que ces 10 lignes là

or dans mon cas j'ai d'autre données en dessous de mon tableau. J'ai des valeurs dans la colonne concernée mais elle ne doivent pas être sommées

[jfontaine]

Une troisième méthode qui est plus adapté a ta demande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("monnom").Select
MsgBox Evaluate("sum(" & Range(Range("monnom"), Range("monnom").Offset(Selection.CurrentRegion.Rows.Count - 1, 0)).Address & ")")

EDIT
Ou toujours avec worksheetfunction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.WorksheetFunction.Sum(Range(Range("monnom"), Range("monnom").Offset(Selection.CurrentRegion.Rows.Count - 1, 0)))

[sab_info]

merci pour ton aide

Je viens d'essayer avec la worksheetfunction et ça à l'air de marcher mais je veux tout de même un peu d'explication car la formule est assez compliquée

cette selection " Selection.CurrentRegion.Rows.Count - 1 " retourne quoi ?

[jfontaine]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.CurrentRegion

Sélectionne un tableau autour de la cellule sélectionnée. Ce tableau s'arrete aux colonnes et lignes vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.CurrentRegion.Rows.Count

Retourne le nombre de ligne du tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("monnom").Offset(Selection.CurrentRegion.Rows.Count - 1, 0)

on part de la cellule "MonNom" et on descend du nombre de ligne du tableau (-1 ligne correspondant à la ligne de départ)

[sab_info]

Je te remercie beaucoup