Augmenter résultat à chaque nouvelle entrée

Résolu

moufette641 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
moufette641 Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 25 déc. 2014 à 23:56

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

Afficher la suite

A voir également:

Augmenter résultat à chaque nouvelle entrée
Darkino nouvelle adresse - Guide
Extreme download nouvelle adresse - Accueil - Outils
Resultat foot - Télécharger - Vie quotidienne
Augmenter vitesse pc windows 10 - Guide
Darkino : le grand site pirate change d'adresse et d'interface - Accueil - Services en ligne

2 réponses

Réponse 1 / 2

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

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

moufette641 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746 > moufette641 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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

moufette641 Messages postés 4 Date d'inscription Statut Membre Dernière intervention > via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention

merci pour cette réponse, cela fonctionne parfaitement

mille mercis

cordialement

Réponse 2 / 2

moufette641 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Merci via55 c'est exactement cela

Discussions similaires

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

Améliorer débit Freebox Pop Fibre trop lent+accès Freebox OS

Votre réponse

Discussions similaires