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

2 réponses

  1.
    via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
    1. 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
      1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > 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
      2. moufette641 Messages postés 4 Statut Membre > via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention  
         
        merci pour cette réponse, cela fonctionne parfaitement

        mille mercis

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

Discussions similaires

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

10 réponses
Les liens s'ouvrent dans un nouvel onglet
morganesque__ -
Geo -

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

5 réponses
alt+entrée ne fonctionne plus
Maryse1973 -
BestTheYo -

12 réponses