Augmenter résultat à chaque nouvelle entrée

Résolu
moufette641 Messages postés 4 Statut Membre -  
moufette641 Messages postés 4 Statut Membre -
Bonjour
Voilà c'est simple, j'ai une valeur à atteindre (exemple 90 000 unité (cellule A3)), en cellule A2 le nombre d'unité qui entre ( elles varie à chaque fois exemple : 2158, 6584,3696,...) et en cellule A1 le résulta de chaque unité qui s'ajoute . Quelle formule ou macro dois mettre en A1 pour que la valeur augmente du nombre d'unité entrée en A2 ?

Merci à vous
A voir également:

2 réponses

Réponse 1 / 2
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonjour

Macro à mettre dans le worsheet de la feuille (ouvrir editeur avec ALR F11, double clic sur la feuille concernée dans l'arborescence puis copier et coller la macro dans la page de droite et fermer editeur) 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then Range("A1") = Range("A1") + Range("A2")
End Sub

Cdlmnt
0
moufette641 Messages postés 4 Statut Membre
 
encore une dernière question comment puis-je répéter cette instruction sur plusieurs dizaine de cellules ? voici ma compilation (trop grande):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b6")) Is Nothing Then Range("b5") = Range("b5") + Range("b6")
If Not Intersect(Target, Range("c6")) Is Nothing Then Range("c5") = Range("c5") + Range("c6")
If Not Intersect(Target, Range("d6")) Is Nothing Then Range("d5") = Range("d5") + Range("d6")
If Not Intersect(Target, Range("e6")) Is Nothing Then Range("e5") = Range("e5") + Range("e6")
If Not Intersect(Target, Range("f6")) Is Nothing Then Range("f5") = Range("f5") + Range("f6")
If Not Intersect(Target, Range("g6")) Is Nothing Then Range("g5") = Range("g5") + Range("g6")
If Not Intersect(Target, Range("h6")) Is Nothing Then Range("h5") = Range("h5") + Range("h6")
If Not Intersect(Target, Range("i6")) Is Nothing Then Range("i5") = Range("i5") + Range("i6")
If Not Intersect(Target, Range("j6")) Is Nothing Then Range("j5") = Range("j5") + Range("j6")
If Not Intersect(Target, Range("k6")) Is Nothing Then Range("k5") = Range("k5") + Range("k6")
If Not Intersect(Target, Range("l6")) Is Nothing Then Range("l5") = Range("l5") + Range("l6")
If Not Intersect(Target, Range("m6")) Is Nothing Then Range("m5") = Range("m5") + Range("m6")
If Not Intersect(Target, Range("n6")) Is Nothing Then Range("n5") = Range("n5") + Range("n6")
If Not Intersect(Target, Range("o6")) Is Nothing Then Range("o5") = Range("o5") + Range("o6")
If Not Intersect(Target, Range("p6")) Is Nothing Then Range("p5") = Range("p5") + Range("p6")
If Not Intersect(Target, Range("q6")) Is Nothing Then Range("q5") = Range("q5") + Range("q6")
If Not Intersect(Target, Range("r6")) Is Nothing Then Range("r5") = Range("r5") + Range("r6")
If Not Intersect(Target, Range("s6")) Is Nothing Then Range("s5") = Range("s5") + Range("s6")
If Not Intersect(Target, Range("b9")) Is Nothing Then Range("b8") = Range("b8") + Range("b9")
If Not Intersect(Target, Range("c9")) Is Nothing Then Range("c8") = Range("c8") + Range("c9")
If Not Intersect(Target, Range("d9")) Is Nothing Then Range("d8") = Range("d8") + Range("d9")
If Not Intersect(Target, Range("e9")) Is Nothing Then Range("e8") = Range("e8") + Range("e9")
If Not Intersect(Target, Range("f9")) Is Nothing Then Range("f8") = Range("f8") + Range("f9")
If Not Intersect(Target, Range("g9")) Is Nothing Then Range("g8") = Range("g8") + Range("g9")
If Not Intersect(Target, Range("h9")) Is Nothing Then Range("h8") = Range("h8") + Range("h9")
If Not Intersect(Target, Range("i9")) Is Nothing Then Range("i8") = Range("i8") + Range("i9")
If Not Intersect(Target, Range("j9")) Is Nothing Then Range("j8") = Range("j8") + Range("j9")
If Not Intersect(Target, Range("k9")) Is Nothing Then Range("k8") = Range("k8") + Range("k9")
If Not Intersect(Target, Range("l9")) Is Nothing Then Range("l8") = Range("l8") + Range("l9")
If Not Intersect(Target, Range("m9")) Is Nothing Then Range("m8") = Range("m8") + Range("m9")
If Not Intersect(Target, Range("n9")) Is Nothing Then Range("n8") = Range("n8") + Range("n9")
If Not Intersect(Target, Range("o9")) Is Nothing Then Range("o8") = Range("o8") + Range("o9")
If Not Intersect(Target, Range("p9")) Is Nothing Then Range("p8") = Range("p8") + Range("p9")
If Not Intersect(Target, Range("q9")) Is Nothing Then Range("q8") = Range("q8") + Range("q9")
If Not Intersect(Target, Range("r9")) Is Nothing Then Range("r8") = Range("r8") + Range("r9")
If Not Intersect(Target, Range("s9")) Is Nothing Then Range("s8") = Range("s8") + Range("s9")
If Not Intersect(Target, Range("b12")) Is Nothing Then Range("b11") = Range("b11") + Range("b12")
If Not Intersect(Target, Range("c12")) Is Nothing Then Range("c11") = Range("c11") + Range("c12")
If Not Intersect(Target, Range("d12")) Is Nothing Then Range("d11") = Range("d11") + Range("d12")
If Not Intersect(Target, Range("e12")) Is Nothing Then Range("e11") = Range("e11") + Range("e12")
If Not Intersect(Target, Range("f12")) Is Nothing Then Range("f11") = Range("f11") + Range("f12")
If Not Intersect(Target, Range("g12")) Is Nothing Then Range("g11") = Range("g11") + Range("g12")
If Not Intersect(Target, Range("h12")) Is Nothing Then Range("h11") = Range("h11") + Range("h12")
If Not Intersect(Target, Range("i12")) Is Nothing Then Range("i11") = Range("i11") + Range("i12")
If Not Intersect(Target, Range("j12")) Is Nothing Then Range("j11") = Range("j11") + Range("j12")
If Not Intersect(Target, Range("k12")) Is Nothing Then Range("k11") = Range("k11") + Range("k12")
If Not Intersect(Target, Range("l12")) Is Nothing Then Range("l11") = Range("l11") + Range("l12")
If Not Intersect(Target, Range("m12")) Is Nothing Then Range("m11") = Range("m11") + Range("m12")
If Not Intersect(Target, Range("n12")) Is Nothing Then Range("n11") = Range("n11") + Range("n12")
If Not Intersect(Target, Range("o12")) Is Nothing Then Range("o11") = Range("o11") + Range("o12")
If Not Intersect(Target, Range("p12")) Is Nothing Then Range("p11") = Range("p11") + Range("p12")
If Not Intersect(Target, Range("q12")) Is Nothing Then Range("q11") = Range("q11") + Range("q12")
If Not Intersect(Target, Range("r12")) Is Nothing Then Range("r11") = Range("r11") + Range("r12")
If Not Intersect(Target, Range("s12")) Is Nothing Then Range("s11") = Range("s11") + Range("s12")
If Not Intersect(Target, Range("b15")) Is Nothing Then Range("b14") = Range("b14") + Range("b15")
If Not Intersect(Target, Range("c15")) Is Nothing Then Range("c14") = Range("c14") + Range("c15")
If Not Intersect(Target, Range("d15")) Is Nothing Then Range("d14") = Range("d14") + Range("d15")
If Not Intersect(Target, Range("e15")) Is Nothing Then Range("e14") = Range("e14") + Range("e15")
If Not Intersect(Target, Range("f15")) Is Nothing Then Range("f14") = Range("f14") + Range("f15")
If Not Intersect(Target, Range("g15")) Is Nothing Then Range("g14") = Range("g14") + Range("g15")
If Not Intersect(Target, Range("h15")) Is Nothing Then Range("h14") = Range("h14") + Range("h15")
If Not Intersect(Target, Range("i15")) Is Nothing Then Range("i14") = Range("i14") + Range("i15")
If Not Intersect(Target, Range("j15")) Is Nothing Then Range("j14") = Range("j14") + Range("j15")
If Not Intersect(Target, Range("k15")) Is Nothing Then Range("k14") = Range("k14") + Range("k15")
If Not Intersect(Target, Range("l15")) Is Nothing Then Range("l14") = Range("l14") + Range("l15")
If Not Intersect(Target, Range("m15")) Is Nothing Then Range("m14") = Range("m14") + Range("m15")
If Not Intersect(Target, Range("n15")) Is Nothing Then Range("n14") = Range("n14") + Range("n15")
If Not Intersect(Target, Range("o15")) Is Nothing Then Range("o14") = Range("o14") + Range("o15")
If Not Intersect(Target, Range("p15")) Is Nothing Then Range("p14") = Range("p14") + Range("p15")
If Not Intersect(Target, Range("q15")) Is Nothing Then Range("q14") = Range("q14") + Range("q15")
If Not Intersect(Target, Range("r15")) Is Nothing Then Range("r14") = Range("r14") + Range("r15")
If Not Intersect(Target, Range("s15")) Is Nothing Then Range("s14") = Range("s14") + Range("s15")
If Not Intersect(Target, Range("b18")) Is Nothing Then Range("b17") = Range("b17") + Range("b18")
If Not Intersect(Target, Range("c18")) Is Nothing Then Range("c17") = Range("c17") + Range("c18")
If Not Intersect(Target, Range("d18")) Is Nothing Then Range("d17") = Range("d17") + Range("d18")
If Not Intersect(Target, Range("e18")) Is Nothing Then Range("e17") = Range("e17") + Range("e18")
If Not Intersect(Target, Range("f18")) Is Nothing Then Range("f17") = Range("f17") + Range("f18")
If Not Intersect(Target, Range("g18")) Is Nothing Then Range("g17") = Range("g17") + Range("g18")
If Not Intersect(Target, Range("h18")) Is Nothing Then Range("h17") = Range("h17") + Range("h18")
If Not Intersect(Target, Range("i18")) Is Nothing Then Range("i17") = Range("i17") + Range("i18")
If Not Intersect(Target, Range("j18")) Is Nothing Then Range("j17") = Range("j17") + Range("j18")
If Not Intersect(Target, Range("k18")) Is Nothing Then Range("k17") = Range("k17") + Range("k18")
If Not Intersect(Target, Range("l18")) Is Nothing Then Range("l17") = Range("l17") + Range("l18")
If Not Intersect(Target, Range("m18")) Is Nothing Then Range("m17") = Range("m17") + Range("m18")
If Not Intersect(Target, Range("n18")) Is Nothing Then Range("n17") = Range("n17") + Range("n18")
If Not Intersect(Target, Range("o18")) Is Nothing Then Range("o17") = Range("o17") + Range("o18")
If Not Intersect(Target, Range("p18")) Is Nothing Then Range("p17") = Range("p17") + Range("p18")
If Not Intersect(Target, Range("q18")) Is Nothing Then Range("q17") = Range("q17") + Range("q18")
If Not Intersect(Target, Range("r18")) Is Nothing Then Range("r17") = Range("r17") + Range("r18")
If Not Intersect(Target, Range("s18")) Is Nothing Then Range("s17") = Range("s17") + Range("s18")
If Not Intersect(Target, Range("b21")) Is Nothing Then Range("b20") = Range("b20") + Range("b21")
If Not Intersect(Target, Range("c21")) Is Nothing Then Range("c20") = Range("c20") + Range("c21")
If Not Intersect(Target, Range("d21")) Is Nothing Then Range("d20") = Range("d20") + Range("d21")
If Not Intersect(Target, Range("e21")) Is Nothing Then Range("e20") = Range("e20") + Range("e21")
If Not Intersect(Target, Range("f21")) Is Nothing Then Range("f20") = Range("f20") + Range("f21")
If Not Intersect(Target, Range("g21")) Is Nothing Then Range("g20") = Range("g20") + Range("g21")
If Not Intersect(Target, Range("h21")) Is Nothing Then Range("h20") = Range("h20") + Range("h21")
If Not Intersect(Target, Range("i21")) Is Nothing Then Range("i20") = Range("i20") + Range("i21")
If Not Intersect(Target, Range("j21")) Is Nothing Then Range("j20") = Range("j20") + Range("j21")
If Not Intersect(Target, Range("k21")) Is Nothing Then Range("k20") = Range("k20") + Range("k21")
If Not Intersect(Target, Range("l21")) Is Nothing Then Range("l20") = Range("l20") + Range("l21")
If Not Intersect(Target, Range("m21")) Is Nothing Then Range("m20") = Range("m20") + Range("m21")
If Not Intersect(Target, Range("n21")) Is Nothing Then Range("n20") = Range("n20") + Range("n21")
If Not Intersect(Target, Range("o21")) Is Nothing Then Range("o20") = Range("o20") + Range("o21")
If Not Intersect(Target, Range("p21")) Is Nothing Then Range("p20") = Range("p20") + Range("p21")
If Not Intersect(Target, Range("q21")) Is Nothing Then Range("q20") = Range("q20") + Range("q21")
If Not Intersect(Target, Range("r21")) Is Nothing Then Range("r20") = Range("r20") + Range("r21")
If Not Intersect(Target, Range("s21")) Is Nothing Then Range("s20") = Range("s20") + Range("s21")
If Not Intersect(Target, Range("b24")) Is Nothing Then Range("b23") = Range("b23") + Range("b24")
If Not Intersect(Target, Range("c24")) Is Nothing Then Range("c23") = Range("c23") + Range("c24")
If Not Intersect(Target, Range("d24")) Is Nothing Then Range("d23") = Range("d23") + Range("d24")
If Not Intersect(Target, Range("e24")) Is Nothing Then Range("e23") = Range("e23") + Range("e24")
If Not Intersect(Target, Range("f24")) Is Nothing Then Range("f23") = Range("f23") + Range("f24")
If Not Intersect(Target, Range("g24")) Is Nothing Then Range("g23") = Range("g23") + Range("g24")
If Not Intersect(Target, Range("h24")) Is Nothing Then Range("h23") = Range("h23") + Range("h24")
If Not Intersect(Target, Range("i24")) Is Nothing Then Range("i23") = Range("i23") + Range("i24")
If Not Intersect(Target, Range("j24")) Is Nothing Then Range("j23") = Range("j23") + Range("j24")
If Not Intersect(Target, Range("k24")) Is Nothing Then Range("k23") = Range("k23") + Range("k24")
If Not Intersect(Target, Range("l24")) Is Nothing Then Range("l23") = Range("l23") + Range("l24")
If Not Intersect(Target, Range("m24")) Is Nothing Then Range("m23") = Range("m23") + Range("m24")
If Not Intersect(Target, Range("n24")) Is Nothing Then Range("n23") = Range("n23") + Range("n24")
If Not Intersect(Target, Range("o24")) Is Nothing Then Range("o23") = Range("o23") + Range("o24")
If Not Intersect(Target, Range("p24")) Is Nothing Then Range("p23") = Range("p23") + Range("p24")
If Not Intersect(Target, Range("q24")) Is Nothing Then Range("q23") = Range("q23") + Range("q24")
If Not Intersect(Target, Range("r24")) Is Nothing Then Range("r23") = Range("r23") + Range("r24")
If Not Intersect(Target, Range("s24")) Is Nothing Then Range("s23") = Range("s23") + Range("s24")
If Not Intersect(Target, Range("b27")) Is Nothing Then Range("b26") = Range("b26") + Range("b27")
If Not Intersect(Target, Range("c27")) Is Nothing Then Range("c26") = Range("c26") + Range("c27")
If Not Intersect(Target, Range("d27")) Is Nothing Then Range("d26") = Range("d26") + Range("d27")
If Not Intersect(Target, Range("e27")) Is Nothing Then Range("e26") = Range("e26") + Range("e27")
If Not Intersect(Target, Range("f27")) Is Nothing Then Range("f26") = Range("f26") + Range("f27")
If Not Intersect(Target, Range("g27")) Is Nothing Then Range("g26") = Range("g26") + Range("g27")
If Not Intersect(Target, Range("h27")) Is Nothing Then Range("h26") = Range("h26") + Range("h27")
If Not Intersect(Target, Range("i27")) Is Nothing Then Range("i26") = Range("i26") + Range("i27")
If Not Intersect(Target, Range("j27")) Is Nothing Then Range("j26") = Range("j26") + Range("j27")
If Not Intersect(Target, Range("k27")) Is Nothing Then Range("k26") = Range("k26") + Range("k27")
If Not Intersect(Target, Range("l27")) Is Nothing Then Range("l26") = Range("l26") + Range("l27")
If Not Intersect(Target, Range("m27")) Is Nothing Then Range("m26") = Range("m26") + Range("m27")
If Not Intersect(Target, Range("n27")) Is Nothing Then Range("n26") = Range("n26") + Range("n27")
If Not Intersect(Target, Range("o27")) Is Nothing Then Range("o26") = Range("o26") + Range("o27")
If Not Intersect(Target, Range("p27")) Is Nothing Then Range("p26") = Range("p26") + Range("p27")
If Not Intersect(Target, Range("q27")) Is Nothing Then Range("q26") = Range("q26") + Range("q27")
If Not Intersect(Target, Range("r27")) Is Nothing Then Range("r26") = Range("r26") + Range("r27")
If Not Intersect(Target, Range("s27")) Is Nothing Then Range("s26") = Range("s26") + Range("s27")
If Not Intersect(Target, Range("b30")) Is Nothing Then Range("b29") = Range("b29") + Range("b30")
If Not Intersect(Target, Range("c30")) Is Nothing Then Range("c29") = Range("c29") + Range("c30")
If Not Intersect(Target, Range("d30")) Is Nothing Then Range("d29") = Range("d29") + Range("d30")
If Not Intersect(Target, Range("e30")) Is Nothing Then Range("e29") = Range("e29") + Range("e30")
If Not Intersect(Target, Range("f30")) Is Nothing Then Range("f29") = Range("f29") + Range("f30")
If Not Intersect(Target, Range("g30")) Is Nothing Then Range("g29") = Range("g29") + Range("g30")
If Not Intersect(Target, Range("h30")) Is Nothing Then Range("h29") = Range("h29") + Range("h30")
If Not Intersect(Target, Range("i30")) Is Nothing Then Range("i29") = Range("i29") + Range("i30")
If Not Intersect(Target, Range("j30")) Is Nothing Then Range("j29") = Range("j29") + Range("j30")
If Not Intersect(Target, Range("k30")) Is Nothing Then Range("k29") = Range("k29") + Range("k30")
If Not Intersect(Target, Range("l30")) Is Nothing Then Range("l29") = Range("l29") + Range("l30")
If Not Intersect(Target, Range("m30")) Is Nothing Then Range("m29") = Range("m29") + Range("m30")
If Not Intersect(Target, Range("n30")) Is Nothing Then Range("n29") = Range("n29") + Range("n30")
If Not Intersect(Target, Range("o30")) Is Nothing Then Range("o29") = Range("o29") + Range("o30")
If Not Intersect(Target, Range("p30")) Is Nothing Then Range("p29") = Range("p29") + Range("p30")
If Not Intersect(Target, Range("q30")) Is Nothing Then Range("q29") = Range("q29") + Range("q30")
If Not Intersect(Target, Range("r30")) Is Nothing Then Range("r29") = Range("r29") + Range("r30")
If Not Intersect(Target, Range("s30")) Is Nothing Then Range("s29") = Range("s29") + Range("s30")
If Not Intersect(Target, Range("b33")) Is Nothing Then Range("b32") = Range("b32") + Range("b33")
If Not Intersect(Target, Range("c33")) Is Nothing Then Range("c32") = Range("c32") + Range("c33")
If Not Intersect(Target, Range("d33")) Is Nothing Then Range("d32") = Range("d32") + Range("d33")
If Not Intersect(Target, Range("e33")) Is Nothing Then Range("e32") = Range("e32") + Range("e33")
If Not Intersect(Target, Range("f33")) Is Nothing Then Range("f32") = Range("f32") + Range("f33")
If Not Intersect(Target, Range("g33")) Is Nothing Then Range("g32") = Range("g32") + Range("g33")
If Not Intersect(Target, Range("h33")) Is Nothing Then Range("h32") = Range("h32") + Range("h33")
If Not Intersect(Target, Range("i33")) Is Nothing Then Range("i32") = Range("i32") + Range("i33")
If Not Intersect(Target, Range("j33")) Is Nothing Then Range("j32") = Range("j32") + Range("j33")
If Not Intersect(Target, Range("k33")) Is Nothing Then Range("k32") = Range("k32") + Range("k33")
If Not Intersect(Target, Range("l33")) Is Nothing Then Range("l32") = Range("l32") + Range("l33")
If Not Intersect(Target, Range("m33")) Is Nothing Then Range("m32") = Range("m32") + Range("m33")
If Not Intersect(Target, Range("n33")) Is Nothing Then Range("n32") = Range("n32") + Range("n33")
If Not Intersect(Target, Range("o33")) Is Nothing Then Range("o32") = Range("o32") + Range("o33")
If Not Intersect(Target, Range("p33")) Is Nothing Then Range("p32") = Range("p32") + Range("p33")
If Not Intersect(Target, Range("q33")) Is Nothing Then Range("q32") = Range("q32") + Range("q33")
If Not Intersect(Target, Range("r33")) Is Nothing Then Range("r32") = Range("r32") + Range("r33")
If Not Intersect(Target, Range("s33")) Is Nothing Then Range("s32") = Range("s32") + Range("s33")
If Not Intersect(Target, Range("b36")) Is Nothing Then Range("b35") = Range("b35") + Range("b36")
If Not Intersect(Target, Range("c36")) Is Nothing Then Range("c35") = Range("c35") + Range("c36")
If Not Intersect(Target, Range("d36")) Is Nothing Then Range("d35") = Range("d35") + Range("d36")
If Not Intersect(Target, Range("e36")) Is Nothing Then Range("e35") = Range("e35") + Range("e36")
If Not Intersect(Target, Range("f36")) Is Nothing Then Range("f35") = Range("f35") + Range("f36")
If Not Intersect(Target, Range("g36")) Is Nothing Then Range("g35") = Range("g35") + Range("g36")
If Not Intersect(Target, Range("h36")) Is Nothing Then Range("h35") = Range("h35") + Range("h36")
If Not Intersect(Target, Range("i36")) Is Nothing Then Range("i35") = Range("i35") + Range("i36")
If Not Intersect(Target, Range("j36")) Is Nothing Then Range("j35") = Range("j35") + Range("j36")
If Not Intersect(Target, Range("k36")) Is Nothing Then Range("k35") = Range("k35") + Range("k36")
If Not Intersect(Target, Range("l36")) Is Nothing Then Range("l35") = Range("l35") + Range("l36")
If Not Intersect(Target, Range("m36")) Is Nothing Then Range("m35") = Range("m35") + Range("m36")
If Not Intersect(Target, Range("n36")) Is Nothing Then Range("n35") = Range("n35") + Range("n36")
If Not Intersect(Target, Range("o36")) Is Nothing Then Range("o35") = Range("o35") + Range("o36")
If Not Intersect(Target, Range("p36")) Is Nothing Then Range("p35") = Range("p35") + Range("p36")
If Not Intersect(Target, Range("q36")) Is Nothing Then Range("q35") = Range("q35") + Range("q36")
If Not Intersect(Target, Range("r36")) Is Nothing Then Range("r35") = Range("r35") + Range("r36")
If Not Intersect(Target, Range("s36")) Is Nothing Then Range("s35") = Range("s35") + Range("s36")
If Not Intersect(Target, Range("b39")) Is Nothing Then Range("b38") = Range("b38") + Range("b39")
If Not Intersect(Target, Range("c39")) Is Nothing Then Range("c38") = Range("c38") + Range("c39")
If Not Intersect(Target, Range("d39")) Is Nothing Then Range("d38") = Range("d38") + Range("d39")
If Not Intersect(Target, Range("e39")) Is Nothing Then Range("e38") = Range("e38") + Range("e39")
If Not Intersect(Target, Range("f39")) Is Nothing Then Range("f38") = Range("f38") + Range("f39")
If Not Intersect(Target, Range("g39")) Is Nothing Then Range("g38") = Range("g38") + Range("g39")
If Not Intersect(Target, Range("h39")) Is Nothing Then Range("h38") = Range("h38") + Range("h39")
If Not Intersect(Target, Range("i39")) Is Nothing Then Range("i38") = Range("i38") + Range("i39")
If Not Intersect(Target, Range("j39")) Is Nothing Then Range("j38") = Range("j38") + Range("j39")
If Not Intersect(Target, Range("k39")) Is Nothing Then Range("k38") = Range("k38") + Range("k39")
If Not Intersect(Target, Range("l39")) Is Nothing Then Range("l38") = Range("l38") + Range("l39")
If Not Intersect(Target, Range("m39")) Is Nothing Then Range("m38") = Range("m38") + Range("m39")
If Not Intersect(Target, Range("n39")) Is Nothing Then Range("n38") = Range("n38") + Range("n39")
If Not Intersect(Target, Range("o39")) Is Nothing Then Range("o38") = Range("o38") + Range("o39")
If Not Intersect(Target, Range("p39")) Is Nothing Then Range("p38") = Range("p38") + Range("p39")
If Not Intersect(Target, Range("q39")) Is Nothing Then Range("q38") = Range("q38") + Range("q39")
If Not Intersect(Target, Range("r39")) Is Nothing Then Range("r38") = Range("r38") + Range("r39")
If Not Intersect(Target, Range("s39")) Is Nothing Then Range("s38") = Range("s38") + Range("s39")
If Not Intersect(Target, Range("b42")) Is Nothing Then Range("b41") = Range("b41") + Range("b42")
If Not Intersect(Target, Range("c42")) Is Nothing Then Range("c41") = Range("c41") + Range("c42")
If Not Intersect(Target, Range("d42")) Is Nothing Then Range("d41") = Range("d41") + Range("d42")
If Not Intersect(Target, Range("e42")) Is Nothing Then Range("e41") = Range("e41") + Range("e42")
If Not Intersect(Target, Range("f42")) Is Nothing Then Range("f41") = Range("f41") + Range("f42")
If Not Intersect(Target, Range("g42")) Is Nothing Then Range("g41") = Range("g41") + Range("g42")
If Not Intersect(Target, Range("h42")) Is Nothing Then Range("h41") = Range("h41") + Range("h42")
If Not Intersect(Target, Range("i42")) Is Nothing Then Range("i41") = Range("i41") + Range("i42")
If Not Intersect(Target, Range("j42")) Is Nothing Then Range("j41") = Range("j41") + Range("j42")
If Not Intersect(Target, Range("k42")) Is Nothing Then Range("k41") = Range("k41") + Range("k42")
If Not Intersect(Target, Range("l42")) Is Nothing Then Range("l41") = Range("l41") + Range("l42")
If Not Intersect(Target, Range("m42")) Is Nothing Then Range("m41") = Range("m41") + Range("m42")
If Not Intersect(Target, Range("n42")) Is Nothing Then Range("n41") = Range("n41") + Range("n42")
If Not Intersect(Target, Range("o42")) Is Nothing Then Range("o41") = Range("o41") + Range("o42")
If Not Intersect(Target, Range("p42")) Is Nothing Then Range("p41") = Range("p41") + Range("p42")
If Not Intersect(Target, Range("q42")) Is Nothing Then Range("q41") = Range("q41") + Range("q42")
If Not Intersect(Target, Range("r42")) Is Nothing Then Range("r41") = Range("r41") + Range("r42")
If Not Intersect(Target, Range("s42")) Is Nothing Then Range("s41") = Range("s41") + Range("s42")
End Sub
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750 > moufette641 Messages postés 4 Statut Membre
 
Bonsoir

Tu peux utiliser la logique de l'emplacement des cellules (toutes les lignes de n° divisible par 3 depuis la ligne 6 jusqu'à la ligne 42 - cellule à incrémenter étant celle du dessus) pour composer une macro de ce style : 
Private Sub Worksheet_Change(ByVal Target As Range)
'sortie sans rien faire si colonne non comprise entre 2 et 19
If Target.Column < 2 Or Target.Column > 19 Then Exit Sub
'sortie sans rien faire si ligne non comprise entre 6 et 42
If Target.Row < 6 Or Target.Row > 42 Then Exit Sub
'sortie sans rien faire si n° de ligne non divisible par 3 (resultat différent entre division par 3 et arrondi)
If Target.Row / 3 <> Round(Target.Row / 3) Then Exit Sub
'cellule au dessus de la cellule cible est incrémentée de la valeur entrée en cellule cible
Cells(Target.Row - 1, Target.Column) = Cells(Target.Row - 1, Target.Column) + Target.Value
End Sub


Cdlmnt
0
moufette641 Messages postés 4 Statut Membre > via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention  
 
merci pour cette réponse, cela fonctionne parfaitement

mille mercis

cordialement
0
Réponse 2 / 2
moufette641 Messages postés 4 Statut Membre
 
Merci via55 c'est exactement cela
0

Discussions similaires

Darkino se métamorphose en DarkiWorld avec un nouveau design et plus de contenus
LaRedaction -
Pierr10 -

12 réponses
Trouver application résultat loterie Azerb Bulgarie Autriche
PoussinRassurant87 -
georges97 -

3 réponses
Tableau (croisé dynamique?) à 3 entrées
ClementH3o -
ClementH3o -

10 réponses
Améliorer débit Freebox Pop Fibre trop lent+accès Freebox OS
Alexfleur88 -
JC -

5 réponses