VBA Faire somme dans une procédure évènementielle

[Arpette]

Bonsoir à toutes et à tous, je souhaiterais faire une somme évènementielle sur mon fichier joint. A savoir, toutes saisies faites dans les colonnes S1 renvoient le total en Tot S1 et la même chose pour S2. Je l'ai fait en formule, mais ils arrivent à tout casser, et je ne veux pas de protection.
Merci de votre de votre aide.
@+

 

[KenDev]

Re : VBA Faire somme dans une procédure évènementielle

Bonsoir Arpette,

Les utilisateurs sont des malfaisants... 🙄 Ton fichier en retour, à tester.

Cordialement

KD

Edit : modifié pour éviter les changements manuels en colonne 9 ou 10

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Bonsoir KenDev, merci nickel, ah!! je ne sais pas si sont des malfaisants, quelques fois je me dis sans eux, plus de question plus de problème...ça serait triste ? Non 🙂
@+ et merci

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Bonsoir, cette fois ci, j'aimerais la même chose, mais avoir le total sur la dernière ligne de chaque colonne.
Merci de votre aide
@+

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Bonjour à toutes et à tous, quelqu'un peut-il m'aider.
Merci d'avance.
@+

 

[Gorfael]

Re : VBA Faire somme dans une procédure évènementielle

Salut Arpette et le forum
Sans protection, difficile de protéger 🙂
Une formule à recopier sur la plage H2:H5 :

=SOMMEPROD(($C5:$H5)*($C$1:$H$1=DROITE(I$1;2)))

A+

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Bonsoir Gorfael, merci, mais je souhaite en code VBA de façon évènementielle, car mon nombre de ligne n'est jamais le même.
Merci de ton aide.
@+

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Rebonsoir, j'ai modifié mon code pour qu'il calcule les colonnes mais ça ne fonctionne pas.
Merci de votre aide
@+

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Bonsoir à tous, quelqu'un aurait-il une petite idée.
Merci de votre aide.
@+

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Rebonsoir à tous, je suis étonné que personne ne puisse me répondre, j'arrive à faire cette somme sauf que ma macro ne s'arrête plus,comme je l'ai incluse avec mon next (pas dans mon fichier joint, mais à force de bricoler).
Merci de votre aide
@+

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Re..bonsoir à tous, je vois que cela ne doit pas être possible, donc je vais rester avec bonne vieille formule.
Merci quand même et à bientôt.
@+

 

[Softmama]

Re : VBA Faire somme dans une procédure évènementielle

Bonjour Arpette,

En regardant ton code, il y a un pb avec la variable derligne que tu déclares comme Range mais que tu utilises comme un entier Long la plupart du temps et comme une object Range parfois. Un autre souci, c'est que ta macro est évènementielle et qu'à chaque modif de ta feuille, la macro se lance, Y COMPRIS lorsque c'est la macro elle même qui change les valeurs... du coup, tu ne sors jamais de ta macro qui s'auto lance ! Il suffit de lui dire d'interrompre le traintement des évènements pdt le temps de la macro en début et de réactiver le tout à la fin. Je t'ai remis tout ça bien et ça devrait fonctionner. (sauf tu fais les sommes à partir de la ligne 3, c'est normal ?)

Par contre, ta macro me parait compliquée pour ce qu'elle essaie de faire, aussi je te l'ai réécrite en plus concentrée :

Sub Worksheet_Change(ByVal Target As Range)
Dim derlig As Long
Application.EnableEvents = False 'désactive les évènements
derlig = Range("A65000").End(xlUp).Row ' détermine la dernière ligne
    Cells(derlig, 3).Formula = "=SUM(C2:C" & derlig - 1 & ")" 'colle la somme sur la col C
    Cells(derlig, 3).AutoFill Destination:=Range("C" & derlig & ":J" & derlig), Type:=xlFillDefault 'recopie cette formule de somme jusqu'à col J
    Range("C" & derlig & ":J" & derlig) = Range("C" & derlig & ":J" & derlig).Value 'garde que les valeurs
Application.EnableEvents = True 'réactve le déclenchement des évènements
End Sub

cf. ton fichier en retour

 

[KenDev]

Re : VBA Faire somme dans une procédure évènementielle

Bonsoir,

A tester. Cordialement

KD

Edit : insuffisamment testé, peut être à plus tard...

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Bonsoir Softmama, et merci pour tes explications, c'est nickel.
A bientôt

 

[Arpette]

Re : VBA Faire somme dans une procédure évènementielle

Re, Softmama, bonsoir KenDev, il ne faut pas tenir compte du fichier attaché à mon post 8 (c'est n'importe quoi), mais partir de celui du post 7 avec la solution de KenDev pour le calcul en ligne qui fonctionne très bien. C'est là où je demande la même chose en colonne.
Mais avec vos deux codes je pense pouvoir alléger, mais bon...surtout n'hésitez pas 🙂
Merci à tous les deux pour votre aide .
A bientôt.