Addition avec une constante

Version imprimable

bonjour
jai des valeurs de colonne J jusque AC donc 20 colonnes
mais que sur la ligne 8
j'essaye humblement à mon niveau "ras de terre" additionner les valeurs de chaque cellule de colonne J jusque AC sur la ligne 8 uniquement , avec une constante de cellule
J17 ou j18
pas toujours facile de bien exprimer

bien sur sur il y a des erreurs
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Private Sub CommandButton1_Click() Dim j As Integer Dim i As Integer Dim un As Integer Dim deux As Integer ' et on continue jusqu'à 20 For i = 10 To 29 For j = 8 To Cells(8, i) If Cells(j, i) = Value and Cells(17, j) = Value Then Cells(j, i) + Cells(17, j) un = un + 1 ElseIf Cells(j, i) = Value and Cells(18, j) = Value Then Cells(j, i) + Cells(18, j) deux = deux + 1 End If Next Next Range("J33").Value = un Range("k33").Value = deux 'et on continue jusqu'à 20 End Sub
l'ensemble du tableau de résultat me convient

17/04/2015, 13h00
Invité

bonjour,
tu ne stock pas le résultât de l'opération?

Code:

Cells(j, i) + Cells(17, j)
17/04/2015, 13h28
Philippe Tulliez

Bonjour,
Pourquoi passes-tu par une boucle pour faire une somme ?
Exemple

Code:

MsgBox "La somme est égal à " & Application.Sum(Range("B3:G3"))
17/04/2015, 13h41
pilounet54

Citation:

Envoyé par rdurupt

bonjour,
tu ne stock pas le résultât de l'opération?

Code:

Cells(j, i) + Cells(17, j)

je dois mettre quoi avant "un="
si dans le

Code:

Range("J33").Value = un

pour le résultat de la première cellule i 8 + cells 17 J

Code:

Range("k33").Value = deux

pour le résultat de la deuxième cellule i 9 + cells 18 J
ainsi de suite
i étant une variable de colonne

je cherche aussi en faisant

Code:

Application.WorksheetFunction.Sum (Range("i" & 8 & ";" & "10" & 17))

mais sans résultat

mais le tableau résultat est très très simple et rapide et pratique pour moi
Le problème je pense et simple mais je n'ai jamais fait de vba
cordialement
17/04/2015, 13h54
Philippe Tulliez
Bonjour,
Pour faire la somme d'une plage à l'aide de l'objet Range si nous reprenons cet exemple de la plage "B3:G3", il faut une chaîne de caractères
Donc soit "B3:G3" soit "B" & 3 & ":" & "G" & 3, etc. mais pas ce que tu as écrit là

Citation:

"i" & 8 & ";" & "10" & 17

Exemple

Code:

Variable = Application.Sum(Range("B" & 3 & ":" & "G" & 3))

où la constante 3 peut être remplacée pas la variable d'un boucle pour faire la somme de plusieurs lignes
Exemple de l'affichage des sommes des B à G des lignes 3 à 5
Code:

1 2 3 4 Dim r As Long For r = 3 To 5 MsgBox "La somme de la ligne " & r & " est égal à " & Application.Sum(Range("B" & r & ":" & "G" & r)) Next
On peut bien entendu également utiliser les objets Cells imbriqués à Range
17/04/2015, 14h05
pilounet54

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Pourquoi passes-tu par une boucle pour faire une somme ?
Exemple

Code:

MsgBox "La somme est égal à " & Application.Sum(Range("B3:G3"))

pour moi dans mon cas ,avec ce tableau de résultat en utilisant

Code:

Application.WorksheetFunction.Sum (Range("i" & 8 & ";" & "10" & 17))

cela donnerai quoi dans son intégralité mais je ne pense pas ,que pour des problèmes plus compliqué que je puisse modifier facilement ou du moins pas si facilement

moi petit niveau
cordialement
17/04/2015, 14h22
Philippe Tulliez

Bonjour,
Je viens d'expliquer dans ma réponse précédente comment le faire.
Ta syntaxe doit provoquer inévitablement une erreur. Manifestement, tu ne l'as même pas testée
17/04/2015, 14h46
pilounet54

? pas testée !
si je le mets sur le forum c'est qui y a des erreurs pour l'avoir testée , autrement je n'ai pas besoin du forum
je chercher un résultat simple pour un problème simple et que je puisse modifier facilement

j'essaye d'adapter et de modifier un programme
cordialement
17/04/2015, 14h52
Philippe Tulliez

Bonjour,
Et dans mon explication, tu ne trouves pas le moyen d'y arriver ?

Ton avant dernière intervention fait référence à ma première réponse or entre-temps, je te donne une explication.

Dans ton explication à l'ouverture de la discussion

Citation:

additionner les valeurs de chaque cellule de colonne J jusque AC sur la ligne 8 uniquement

Dans cette phrase, "Chaque cellule de la colonne J jusqu'à AC" est en contradiction avec "uniquement sur la ligne 8" parce-que une cellule se trouve à l'intersection Ligne/Colonne.
17/04/2015, 15h26
pilounet54

j'ai un tableau donnée ligne 8 ,colonne J jusqu’à AC et cellule que j'appelerai "constante" soit elle est cells 17,10 ou cells 18,10
je souhaite addition J8 + cells 17,10= résultat "un" Range("J33").Value = un
k8 + cells 18,10 =résultat "deux" Range("k33").Value = deux
L8 + cells 17,10= résultat "trois" Range("L33").Value = trois
m8 + cells 18,10= résultat "quatre" Range("M33").Value = quatre

ainsi de suite
très certainement et comme d'habitude je me suis mal exprimé mais je pensais être clair
cette base du début, m’intéresse car j'ai plein de problème dans le même sens un fois une division ...
et je pourrai modifier
cordialement

[

Dans le résultat c'est juste ! par contre j 'utilise pas la boucle colonne For i = 10 To 29 comment je pourrai l' utiliser pour avoir le même résultat
et simplifier si vous en juger utile merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Click()
 
Dim j As Integer
Dim i As Integer
Dim un As Integer
Dim deux As Integer
Dim trois As Integer
 
For i = 10 To 29
 
j = 8
 
            If Cells(j, i).Value Then
 
                  un = Cells(j, 10) + Cells(17, 10)
 
            End If
 
 
            If Cells(j, i).Value Then
 
                 deux = Cells(j, 11) + Cells(18, 10)
            End If
 
            If Cells(j, i).Value Then
 
                 trois = Cells(j, 12) + Cells(17, 10)
            End If
 
 
 
Next
 
    Range("J33").Value = un
    Range("k33").Value = deux
    Range("l33").Value = trois
End Sub

Salut.

Si j'ai bien compris, tu souhaites avoir en ligne 33 la somme de la ligne 8 et d'une "constante" qui est alternativement J17 ou J18 (cells 17,10 ou cells 18,10).

1. Tu n'as pas besoin de VBA pour cela, une formule Excel permet de réaliser cela sans complication, à placer en J33 et à tirer jusqu'en AC33

Code:

=SI(EST.PAIR(COLONNE());J8+$J$17;J8+$J$18)

Si tu veux le faire par VBA, alors, il faut reprendre la très bonne idée de Philippe Tulliez (que je salue au passage) et "faire de l'Excel" en VBA (cfr ma signature)
Code:

1 2 3 4 5 6 7 8 9 Sub SommeCellules() Dim Formula As String Formula = "=IF(ISEVEN(COLUMN()),J8+$J$17,J8+$J$18)" Range("j33:ac33").Formula = Formula Range("j33:ac33").Copy Range("j33:ac33").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub
Les trois dernières lignes sont facultatives. Elles servent à figer le résultat (copier/coller spécial valeurs), c'est-à-dire à remplacer les formules par leur résultat.

18/04/2015, 16h52
pilounet54

c'est la somme d'une cellule de la ligne 8 avec la "constante" et ainsi suite , la somme de la deuxième cellule ligne 8 avec la constante
je ne sais pas si je m'exprime mal
je ne souhaite pas du tout rentrer dans une formule j'ai plein plein de formules que je souhaite supprimer totalement 5 pages de formules c'est ingérable

c'est un programme intéressant ou de temps en temps j'en supprime une partie avec toutes l'aide que vous m'apportez merci à tous en attendant

cordialement
18/04/2015, 20h06
Pierre Fauconnier

Les idées que nous t'avons proposées ne consistent pas en l'ajout de formules.

Elles utilisent des formules au sein du code VBA pour simplifier celui-ci.

As-tu lu et testé ce que je t'ai proposé? Les trois dernières lignes suppriment les formules qui ont été nécessaires aux calculs, ne laissant que les résultats.
Pour ce qui est de ceux-ci, et donc de la compréhension de ton problème, manifestement mal exposé puisque 13 messages n'en sont pas venus à bout ;), il faudrait le réexpliquer clairement, avec autre chose que des un, deux, trois quatre et des cells 17,10.

J'ai essayé de résumer ce que j'avais compris de ton problème. Une bonne façon de continuer la discussion serait de dire si j'étais dans le bon ou pas. Cela ferait avancer le schmilblick, car tu parles de constantes cells 17,10 et cells 18,10 (ce ne sont donc déjà pas des constantes) et le résultat que tu souhaites semble, au vu de tes explications, alterner avec ces "constantes"...

Si tu souhaites que l'on t'aide, tu vas devoir expliquer mieux ton problème, et peut-être tester les solutions proposées, plutôt que les rejeter parce que ce sont "des formules"... ;)

bonjour
pour le copy j'ai essayer merci beaucoup mais ce n'est pas du tout l'approche que j'ai exposé ,mais merci de proposer quelque chose
le code il y là devant nous celui là celui que je propose,mais peut être pas dans une forme normal ou optimum,puisque je n'utilise pas la boucle pour les colonnes

Code:

For i = 10 To 29

mais le résultat est juste ,mais pas juste quand je mets la boucle
es que l'on peu d’après ce code que je propose l'améliorer ou simplifier si nécessaire

je l'avoue la formule je ne l'ai pas essayer puisque j'essaye éradique ce problème
plein de formules à hautes dose c'est polluant
je mettrai des année cela me dérange pas, avec vos conseils , vos remarque je finirai pas comprendre j'ai bon espoir
ce n'est mais pas du tout mon métier encore moi mon niveau d’étude que voulez vous il faut de tout pour faire un monde
mais merci en attendant
cordialement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Private Sub CommandButton1_Click() Dim j As Integer Dim i As Integer Dim un As Integer Dim deux As Integer Dim trois As Integer For i = 10 To 29 j = 8 If Cells(j, 10).Value Then un = Cells(j, 10) + Cells(17, 10) End If If Cells(j, 10).Value Then deux = Cells(j, 11) + Cells(18, 10) End If ' If Cells(j, i).Value Then ' ' trois = Cells(j, i) + Cells(17, 10) ' End If ' Next Range("J33").Value = un Range("k33").Value = deux ' Range("l33").Value = trois End Sub
cordialement

19/04/2015, 21h47
Pierre Fauconnier
Je sais bien que mon approche n'est pas celle que tu as exposée, mais si tu poses une question au sujet de ton approche, c'est qu'elle ne fonctionne pas comme elle devrait. Et si elle ne fonctionne pas comme elle devrait, c'est parce qu'elle est mauvaise.

1. Tu ne dis toujours pas si j'ai compris ce que tu souhaites ou non. Est-ce que oui ou non l'explication que j'ai donnée correspond à ce que tu veux faire? Je ne parle pas ici de la solution, mais de la reformulation de ton problème.

2. Tu continues à me parler de formules alors que je viens de t'expliquer qu'il n'y avait pas de formules supplémentaires avec l'utilisation de mon code.

3. Dans ton cas, tu n'as pas besoin de boucles, puisque tu testes chaque cellule. Pour pouvoir récupérer tes vingt calculs, tu vas devoir te créer 20 variables (celles que tu nommes Un, Deux, Trois, ...). Heureusement que tu ne travailles pas sur les 16384 colonnes disponibles d'une feuille Excel ;)

4. Tu testes if cells(j,8).value then.... Que veux-tu tester au juste? Ce test renverra vrai lorsque la valeur de la cellule sera numérique non nulle. Est-ce cela que tu veux?

5. Quel est le but de ton code? As-tu un besoin réel derrière (auquel cas, teste ma solution, je suis à 99% certain qu'elle te donne la solution. Ou bien souhaites-tu apprendre à manipuler des boucles?

6. Si tu tiens à le faire par boucle et sans formule, tu peux utiliser le code suivant (si tant est que j'ai bien compris le problème que tu t'entêtes à ne pas expliquer clairement!)
Code:

1 2 3 For Col = 10 To 29 Cells(33, Col).Value = Cells(8, Col).Value + IIf(Col Mod 2 = 0, Cells(17, 10).Value, Cells(18, 10)) Next Col

Bonjour,

je me permet cette médiation ? :aie:

je suis uniquement partie de ta manière de faire, et j'ai "fait fonctionner ton 10 a 29" comme tu le voulais : "sans formule supplémentaire"

voici la version sans les commentaires qui te sont spécialement dédiés

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim j As Integer
Dim i As Integer
 
j = 8
For i = 10 To 29
    Range("J33").Offset(0, i - 10).Value = Cells(j, i) + Cells(17 + (i Mod 2), 10)
Next
 
End Sub

ET VOILA LA VERSION POUR TOI

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Private Sub CommandButton1_Click()
 
Dim j As Integer
Dim i As Integer
Dim un As Integer
Dim deux As Integer
Dim trois As Integer
Dim quatre As Integer
Dim cing As Integer
Dim six As Integer
Dim sept As Integer
Dim huit As Integer
 
For i = 10 To 29
    j = 8
 
'    If Cells(j, i).Value Then
'        un = Cells(j, 10) + Cells(17, 10)
'    End If
'
'    If Cells(j, i).Value Then
'        deux = Cells(j, 11) + Cells(18, 10)
'    End If
'
'    If Cells(j, i).Value Then
'        trois = Cells(j, 12) + Cells(17, 10)
'    End If
 
    '[...]
    ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
 
    ' Cette condition "if" ne sert à rien du tout, tu n'as aucun test à faire dans ton code
    ' tu veux juste copier des cellules dont tu connais l'emplacement !
    ' alors tu dis à Excel que tu veux faire une copie, et tu te prend pas la tête
    'If Cells(j, i).Value Then
        ' on décale d'une colonne à chaque tour de boucle || i mod 2 va alterner entre 0 et 1 à chaque tour de boucle
        Range("J33").Offset(0, i-10).Value     =                   Cells(j, i) + Cells(17 + (i Mod 2), 10)
    'End If
 
    ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Next
     ' on en a plus besoin,
'    Range("J33").Value = un
'    Range("k33").Value = deux
'    Range("l33").Value = trois
 
End Sub

20/04/2015, 08h09
pilounet54

haha voila quelqu'un au top !
j'ai juste un question à quoi correspond dans ceci le -10 et le 10 à la fin stp

Code:

Range("J33").Offset(0, i-10).Value = Cells(j, i) + Cells(17 + (i Mod 2), 10)

pour moi bien comprendre , en tout les cas félicitations ,rationnel et modifiable
chapeau bas joe je suis fière de toi

@bientôt
20/04/2015, 09h36
pilounet54
Citation:
Envoyé par Pierre Fauconnier

Je sais bien que mon approche n'est pas celle que tu as exposée, mais si tu poses une question au sujet de ton approche, c'est qu'elle ne fonctionne pas comme elle devrait. Et si elle ne fonctionne pas comme elle devrait, c'est parce qu'elle est mauvaise.

1. Tu ne dis toujours pas si j'ai compris ce que tu souhaites ou non. Est-ce que oui ou non l'explication que j'ai donnée correspond à ce que tu veux faire? Je ne parle pas ici de la solution, mais de la reformulation de ton problème.

2. Tu continues à me parler de formules alors que je viens de t'expliquer qu'il n'y avait pas de formules supplémentaires avec l'utilisation de mon code.

3. Dans ton cas, tu n'as pas besoin de boucles, puisque tu testes chaque cellule. Pour pouvoir récupérer tes vingt calculs, tu vas devoir te créer 20 variables (celles que tu nommes Un, Deux, Trois, ...). Heureusement que tu ne travailles pas sur les 16384 colonnes disponibles d'une feuille Excel ;)

4. Tu testes if cells(j,8).value then.... Que veux-tu tester au juste? Ce test renverra vrai lorsque la valeur de la cellule sera numérique non nulle. Est-ce cela que tu veux?

5. Quel est le but de ton code? As-tu un besoin réel derrière (auquel cas, teste ma solution, je suis à 99% certain qu'elle te donne la solution. Ou bien souhaites-tu apprendre à manipuler des boucles?

6. Si tu tiens à le faire par boucle et sans formule, tu peux utiliser le code suivant (si tant est que j'ai bien compris le problème que tu t'entêtes à ne pas expliquer clairement!)

Code:

1 2 3 For Col = 10 To 29 Cells(33, Col).Value = Cells(8, Col).Value + IIf(Col Mod 2 = 0, Cells(17, 10).Value, Cells(18, 10)) Next Col
non non ! j'ai un formidable programme de statistiques sur 5 ou 6 pages avec en imbroglio de formules en tout genre je suis lancé à regrouper tous ceci en une seul page
donc patience et abnégation fera un très beau programme

je viens essayer aussi la boucle que vous proposez elle correspond bien Evidemment au problème exposé je vous remercie de la patience que vous m'accordez
je vous félicite du regard que vous porté ce le forum ,c'est formidable merci encore
cordialement
@bientot
20/04/2015, 11h22
joe.levrai
Bonjour,

ça y est, on avance enfin !

toutes les méthodes qui t'ont été proposées reviennent à la même chose.
AUCUNE N'ECRIVAIT DE FORMULE DANS LA CELULLE EXCEL : c'est VBA qui utilisait la formule pour restituer le résultat dans la cellule.

voici le petit stratagème que j'utilise pour que ne pas utiliser de formule dans VBA :
Code:

1 2 Range("J33").Offset(0, i-10).Value = Cells(j, i) + Cells(17 + (i Mod 2), 10)
1) L'instruction "Offset(x,j)" permet de se décaler de x lignes et de y cellules.
On doit écrire le premier résultat en J33 ... le second en K33... le troisième en L33 ...
Bref, on doit se décaler à chaque tour de boucle d'une colonne, soit .offset(0,1)

afin d'initialiser le décalage, le premier tour de boucle doit se décaler de 0 colonne (puisqu'on est déjà sur J33)
Donc je fais (i-10) pour avoir un décalage :

- de 0 au premier tour de boucle (i=10 donc i-10 = 0)
- de 1 au second tour de boucle (i = 11 donc i - 10 = 1)
- etc...

2) " X mod Y" est une opération mathématique, dont le résultat est le Reste de la Division entière de X par Y

par exemple, 10 Mod 3 = 1 : on a une division entière de 9 (9 / 3 = 3) et le reste de cette division entière est 1

on peut utiliser cette propriété à notre avantage quand on manipule des nombres pairs/impairs :

X mod 2 = 0 quand le nombre est pair
X mod 2 = 1 quand le nombre est impaire

tu alternes ta constante entre deux cellules : Cells(17, 10) et Cells(18, 10)
ton premier tour de boucle est un nombre pair (i = 10) et utilise la constante Cells(17, 10)
ton second tour de boucle est un nombre impair (i = 11) et utilise la constante Cells(18, 10)
ton troisième tour de boucle est un nombre pair (i = 12) et utilise la constante Cells(17, 10)
ton quatrième tour de boucle est un nombre impair (i = 13) et utilise la constante Cells(18, 10)

si on généralise, on a :

- si i est un nombre pair : la constante est Cells(17 + 0, 10)
- si est un nombre impair : la constante est Cells(17 + 1 , 10)

ce qui revient donc à dire que le "+1" ou le "+0" peut se calculer en utilisant l'était "pair" ou "impair" de ta variable i :

Cells(17 +(i Mod 2), 10)

Est-ce que tu comprend mieux la mécanique maintenant ?