Compteurs multiples

Bonjour,

J'ai trouvé ce post sur le forum qui me convient pour faire un cumul avec un compteur. Par contre, je ne sais pas comment faire mettre plusieurs compteurs à la suite.

Dans l'exemple, la zone de saisie est en A5 et cumul en A6. si je veux mettre 5 compteurs en B4, B5, B6?B7 et B8, comment doit-on compléter le VBE de la feuille.

De plus, dans la partie "remise à zéro ", pouvez-vous m'expliquer comment cela fonctionne.

Merci par avance pour vos éléments de réponse.

Bien cordialement

Message non lupar dubois » Jeu Jan 27, 2011 11:36 am

Bonjour à tous,

Pour le compteur, dans le VBE de la feuille

Code: Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("a5")) Is Nothing Then

Range("a6") = Range("a6") + Target

End If

End Sub

Pour remise à zéro du compteur, dans un module

Code: Tout sélectionner

Sub CompteurAzéro()

Range("a6").ClearContents

End Sub

Amicalement

Claude

Salut,

Le code que tu nous présentes n'est pas du tout adapté à ton fichier ; lorsque tu inscrits un chiffre en A5, il vient s'additionner à celui déjà présent en A6 (voir le fichier ci-joint).

Que désires-tu réaliser exactement dans ton fichier ?

Cordialement.

Bonjour Yvouille,

Ma demande concerne un cumul dans une cellule. Pour mon exemple, je rentre dans A4 la valeur 10 => affichage dans B4, la valeur 10. Ensuite, je rentre dans A4 la valeur 5 => affichage dans B4 de la somme, soit 15.

Il faut que dans B4, la valeur précédente. reste en mémoire et cumul les nouvelles entrées.

Ainsi de suite pour toutes les cellules des colonnes " Cumul ".

Je te remercie par avance pour tes recherches.

Cordialement

Voici une macro qui devrait répondre à ton attente :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

 If Not Application.Intersect(Target, Range("A4:A8 , C4:C8, E4:E8")) Is Nothing Then
    Target.Offset(0, 1) = Target.Offset(0, 1) + Target
 End If
 End Sub

Pour la peine, j'ai tout de suite élargi aux colonnes C et E.

Amicalement.

Yvouille,

c"est exactement mon besoin et je t'en remercie vivement. Avec la macro, je comprends comment l'appliquer à mon fichier.

Bien à toi.