Discussion :

[gnedea]

Bonjour le forum,
j'ai petit soucis en vba.
je veux faire la somme des nombres de chaque cellule.
J'ai 3 colonnes de A à C puis une 4è colonne D pour le calcul de chaque somme et 20 lignes (A1 à A20);(B1 à B20);(C1 à C20);(D1 : D20)pour le calcul des sommes . Je voudrais que si on saisi des nombres dans les colonnes un bouton commande permette de calculer une somme dans chaque cellule de la colonne D.
voici le code que j'utilise qui me donne des résultats qui se ressembles . Aidez moi à corriger:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub somme  ()
Dim A as Range, B as Range, C as Range, somme as Range
For Each A in Range ("A1:A20")
For Each B in Range ("B1:B20")
For Each C in Range ("C1:C20")
For Each somme in Range ("D1 : D20")
somme =A+B+C
Next
Next
Next
Next
End sub

J'espère avoir bien donné le code sans erreur.
Merci pour votre aide.

[MarcelG]

Bonjour et Bienvenu,

S'il te plaît.
Retourne tout code balisé par #

Est-il nécessaire de passer par VBA?

Quand bien même

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public Sub essai_som()
With Worksheets(1).Range("D1:D20")
        .FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
        'collage spécial de valeurs
        .Value = .Value
End With
End Sub

[Igloobel]

Bonjour,

Envois un capture écran de tes cellules A1 à D20 ce qui permettera de mieux t'orienté.

Mais comme ça en jetant un coup d'oeil il me semble que tu fais beaucoup trop de boucle pour obtenir ton résultat

à moins que j'ai pas compris mais une seule boucle devrais suffir

[Algoplus]

Bonjour,

en D1 attend-on la somme A1+B1+C1 ?

si oui , une solution serait de faire une boucle For Each sur colonne D et de récupérer les valeurs de A B et C par offset

Code :

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

somme.value =   somme.Offset(, -3).Value + ...

par une boucle indicée (i) de 1 à 20:

Edit : correction :

Code :

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

cells(i,4) = cells(i,1) + ...

si non, à préciser

A+

[MarcelG]

Salut,

A mon avis, il est plus performant d'éviter les boucles tant que faire se peut.
Le code tient en moins de lignes et reste plus facile à rédiger.
C'est ici le cas. Non?

[Algoplus]

Salut,

A mon avis, il est plus performant d'éviter les boucles tant que faire se peut.
Le code tient en moins de lignes et reste plus facile à rédiger.
C'est ici le cas. Non?

Je prends cette remarque pour moi. J'ai proposé une solution avec boucle parce qu' il était question de boucle dans le post de départ et non pas pour apporter une meilleure solution que celles proposées. D'ailleurs quand j'ai commencé à rédiger, il n'y avait encore aucune réponse (...j'ai pris mon temps).

@gnedea:c'est bien ce qui me semblait avoir compris . pour chaque cellule de D la somme des A B et C de la même ligne. et je me suis mal exprimé en limitant mon exemple à D1=A1+B1+C1.
D'ailleurs toutes les propositions vont dans ce sens!

[MarcelG]

J'ai proposé une solution avec boucle parce qu' il était question de boucle dans le post de dép

Je ne suis pas d'accord sur ce principe.
Lors d'une discussion, ceux qui y répondent se doivent de donner des indications qui, à leur sens, vont améliorer le code du demandeur.
Chacun, bien entendu, à son niveau (Je ne suis, pour ma part, ni Theze, ni mercatog). Si une réponse, par sa technicité, est plus pertinente, alors tant mieux. Tout un chacun apprendra.
C'est d'ailleurs ce qui fait l'intérêt des échanges.
Et ce d'autant qu'il y a, le plus souvent, un certain nombre de lecteurs qui peuvent y trouver un certain intérêt, si ce n'est un intérêt certain.

C'est juste mon avis.

[Algoplus]

Je ne suis pas d'accord sur ce principe.
Lors d'une discussion, ceux qui y répondent se doivent de donner des indications qui, à leur sens, vont améliorer le code du demandeur.
Chacun, bien entendu, à son niveau.../...

Je ne veux pas créer de polémique, mais...
N'ayant pas connaissance des réponses des autres intervenants à la validation de ma réponse, ma proposition répond exactement à tes préceptes:
-ma proposition améliorait le code initial (vu qu'il ne faisait pas ce qui était souhaité)
-elle est faite selon mon niveau ( c'est à dire proche de 1.....)

[gnedea]

Non Algoplus.
Je veux une somme dans chaque cellule de la colonne D

Bonjour MarcelG
Je veux passer par VBA

[MarcelG]

Salut,

Ok.
Teste mon code et reviens si nécessaire.

[gnedea]

Bonjour MarcelG

Voici un exemple de mon tableau avec des nombres en A B C et en D les sommes:

A	B	C	D
3	3	1	A+B+C
3	1	5	A+B+C
2	2	7	A+B+C
0	4	2	A+B+C
1	4	2	A+B+C
2	5	1	A+B+C
etc...

[MarcelG]

Oui?

Regarde ce que j'ai reporté plus haut.

[gnedea]

MarcelG j'ai essayé ça ne marche pas
Voici le fichier