Discussion :

[NujWex]

Bonjour,

J'ai une base de donné avec des infos qui s'ajoute horizontalement sur 5 lignes et ainsi de suite vers le bas de 5 lignes en 5 lignes. La 5ème ligne contient des prix. J'aimerais que la 1er cellule (colonne A) de cette 5e ligne face la somme de toute la ligne et arrondisse la valeur à 2 décimales.

La solution que j'ai trouvée est :

Code :

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

ActiveCell = ActiveCell.Offset(0, 1).Value + ActiveCell.Offset(0, 2).Value + ActiveCell.Offset(0, 3).Value + ActiveCell.Offset(0, 4).Value + ActiveCell.Offset(0, 5).Value + ...

Et je continue comme ça jusqu'à 30 et puis je ne peux plus écrire. Ca marche mais à mon avis il y a plusieurs cours et le jour où j'aurai plus de 30 infos je serai coincé.

Pour ne garder que 2 chiffres après la virgule j'ai essayé

Code :

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

ActiveCell.NumberFormat = "0.00"

Mais ça ne marche pas.

Si quelqu'un a une solution.

Merci d'avance.

Cordialement.

[anasecu]

Bonjour,

J'aimerais que la 1er cellule (colonne A) de cette 5e ligne face la somme de toute la ligne et arrondisse la valeur à 2 décimales

Utilises la fonction somme d'excel sur la plage

Code :

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

1
2
3
4
With ActiveCell
    .Value = Application.Sum(.Offset(0, 1).Resize(1, Cells(.Row, Columns.Count).End(xlToLeft).Column))
    .NumberFormat = "0.00"
End With

[NujWex]

Merci pour ta réponse pour la somme c'est parfait, ça marche nickel
La cellule affiche bien 2 chiffres après la virgule mais par contre quand je récupère cette valeur dans mon formulaire ça remet toutes les décimales.

Peut-on limiter le nombre de décimale d'une textebox?

[anasecu]

re

Comme par définition TextBox c'est du texte il faut formater et là tu perds les décimales au delà de 2.

Code :

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

TextBox1.Value = Format([A1].Value, "0.00")

[NujWex]

Merci c'est parfait.