pb de calcul d'une somme

[kiel]

Bonjour,
J'ai besoin, pour calculer un nombre d'erreurs, de saisir chaque jour dans une meme cellule le nombre d'erreurs du jour, et dans un autre cellule le total du jour doit se cumuler avec le total précédent.
Je ne suis pas certain d'etre trés clair, mais comme mes tentatives d'explications précédentes l'étaient encore moins... voir le fichier joint. (Qui, je l'espère sera plus clair, lui)
Par avance merci de votre aide
Kiel

 

[Hervé]

Bonjour

Une réponse par VBA en pièce jointe

Salut
Hervé

 

[Kiel]

Bonjour Hervé,
C'est impeccable la macro, mais je ne parviens pas à la recopier pour qu'elle fonctionne avec les lignes en dessous. Je ne connais pas du tout VBA.
Cordialement
Kiel

 

[Jocelyn]

Bonjour le forum,
Bonjour Kiel, Hervé,

pour reproduire ce qui ce passe sur la ligne Chargement au nivo de la ligne Déchargement il suffit de changer la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Range("c3").Value = Range("c3").Value + Target.Value
End If
End Sub

par :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Range("c3").Value = Range("c3").Value + Target.Value
End If
If Target.Address = "$B$4" Then
Range("c4").Value = Range("c4").Value + Target.Value
End If
End Sub

et ainsi de suite pour des ligne supplémentaire

Voila

A+
Jocelyn

 

[Hervé]

Bonjour Kiel, jocelyn, le forum

En complément au message de Jocelyn :

Si tu veux appliquer cette macro à une plage ce cellule défini, et t'éviter ainsi la saisie de 10 fois la macro, utilise ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
'si la cellule active (target) se trouve dans la plage b3:b10
If Not Application.Intersect(Target, Range("b3:b10")) Is Nothing Then
'la cellule à droite de la cellule active= sa valeur + la valeur de la cellule active
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If
End Sub

cette macro fait la même chose que l'autre, mais pour la plage ("b3:b10")

Pour voir le code de la macro clique droit sur l'onglet, puis visualiser le code.

Tiens nous au courant

Salut à vous deux
Hervé

 

[Jocelyn]

re bonjour,

merci Hervé mais en aidant on apprend 🙂 🙂

A+
Jocelyn

 

[Hervé]

re jocelyn

Bien d'accord avec toi, je me le dis tout les jours .

Salut
Hervé

 

[kiel]

Bonjour Hervé, Jocelyn
Merci de votre aide à tous deux, les deux formules fonctionnent sans problème.
Sympa la traduction en Français des ligne de code, ça aide bien à comprendre comment fonctionne la macro.

C'est vrai, c'est en aidant qu'on apprend, et moi c'est en apprenant que je peux aider.

Encore merci à vous.
Cordialement,
Kiel