Calcul de sommes dans chaque cellule avec variable

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:

---

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.

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:

---

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

---

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

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:

---

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

---

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

Edit : correction :

Code:

---

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

---

si non, à préciser

A+

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?

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

Bonjour MarcelG
Je veux passer par VBA

Salut,

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

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

Oui?

Regarde ce que j'ai reporté plus haut.

Citation:

---

Envoyé par 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?

---

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 essayé ça ne marche pas
Voici le fichier

Citation:

---

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.

Citation:

---

Envoyé par MarcelG

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

Merci beaucoup MarcelG ça marche maintenant

De rien.

Retiens cette astuce pour coller des valeurs suite à formulation.
Par facilité :oops:, je m'en sers assez souvent, via l'enregistreur de macro, plutôt que de formuler en VBA
Pour ceux que cela intéresse, pour des formulations complexes, voir cete contribution de l'ami Philippe, que je salue

N'oublie pas de placer cette discussion en mode "Résolue"

Bonne continuation et à bientôt.

Marcel

Bonjour le forum
Je voudrais un exemple de macro commandé par un bouton qui obligera un utilisateur a saisir uniquement dix chifffres et une seule lettre à la fin sans espace dans chaque cellule de B1 a B20 (Exemple de saisie 2043265434A )
Merci pour votre aide

Bonjour,

Citation:

---

Envoyé par gnedea

Bonjour le forum
Je voudrais un exemple de macro commandé par un bouton qui obligera un utilisateur a saisir uniquement dix chifffres et une seule lettre à la fin sans espace dans chaque cellule de B1 a B20 (Exemple de saisie 2043265434A )
Merci pour votre aide

---

Pas besoin de macro pour ça, il suffit d'une validation de données personnalisée avec la formule :
=NON(ESTERREUR(GAUCHE(B1;10)/(NBCAR(B1)=11)/ET(CODE(DROITE(B1))>64;CODE(DROITE(B1))<91)))

bonjour Patrice
J'ai essayé votre code mais cela me ramène une erreur comment dois-je saisir votre code?
la longueur du code est-elle directement ou va t elle a la ligne

Bonjour,

Citation:

---

Envoyé par gnedea

bonjour Patrice
J'ai essayé votre code mais cela me ramène une erreur comment dois-je saisir votre code?
la longueur du code est-elle directement ou va t elle a la ligne

---

Il ne s'agit pas d'un code mais d'une formule de validation de données personnalisée.
Il suffit de la copier / coller
Exemple : Pièce jointe 524624

Bonjour le forum
Encore une fois je viens vers vous pour solliciter votre aide.
je souhaite obliger un utilisateur à saisir dans un textebox 9 caractères (des chiffres, des lettres et des symboles ) au moins une fois avec un bouton.
Exemple: 5hr@*rub4 ou g1gfdb $&÷
Un truc de ce genre.
Est ce possible?