pb de calcul d'une somme

H

Hervé

Guest

• 18 Janvier 2005

• #2

Bonjour

Une réponse par VBA en pièce jointe

Salut
Hervé

 

Pièces jointes

• erreurs.zip

  6.5 KB · Affichages: 18

Vote positif 0 Vote négatif

K

Kiel

Guest

• 19 Janvier 2005

• #3

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

 

Vote positif 0 Vote négatif

J

Jocelyn

Guest

• 19 Janvier 2005

• #4

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

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 19 Janvier 2005

• #5

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é

 

Vote positif 0 Vote négatif

J

Jocelyn

Guest

• 19 Janvier 2005

• #6

re bonjour,

merci Hervé mais en aidant on apprend 🙂 🙂

A+
Jocelyn

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 19 Janvier 2005

• #7

re jocelyn

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

Salut
Hervé

 

Vote positif 0 Vote négatif

K

kiel

Guest

• 19 Janvier 2005

• #8

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

 

Vote positif 0 Vote négatif