Discussion :

[clobern]

Bonjour, j'ai la valeur 5 dans une cellule, je veux quelle passe à 5+2=7 dans la meme cellule lorsque j'entre 2 dans une autre cellule. Merci

[QuestVba]

Bonjour,

Dans ta cellule A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A2=2;7;5)

Mais à mon avis, tu vas revenir en disant que tu as d'autres conditions.

[Pierre Fauconnier]

Salut.

Pour généraliser la réponse de QuestVBA, car je suppose que tu vas vouloir ajouter la valeur de la cellule à 5, et pas uniquement 2.... En supposant que la cellule dans laquelle tu mets la valeur à ajouter soit B1, tu pourrais avoir quelque chose du genre comme formule
=5+b1
Cela dit, en procédant ainsi, tu mets une constante dans ta formule. Je soupçonne un défaut de conception. Tu aurais selon moi intérêt à mettre 5 dans une cellule (A1 par exemple), 2 dans une autre (B1 par exemple) et à additionner dans une troisième (C1 par exemple) avec une simple formule du style =a1+b1

[excfl]

Bonsoir le forum,

Proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("B3:B10")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Val(Target.Offset(0, 1).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
End Sub

[clobern]

Merci à tous,
je pense que je me suis mal exprimé:
Voici mon problème: j'ai une valeur X dans la cellule A2, je dois entrer la valeur Y dans la cellule A1, je veux que la valeur de A2 passe à X+Y. C'est que je travaille sur un projet ou je dois cumuler les résultats.
MERCI

[excfl]

Cela correspond bien à ma proposition.

Il suffit d'adapter le code aux cellules indiquées.

[Menhir]

Utiliser une macro pour ça, c'est un peu comme utiliser un char d'asseau pour écraser une mouche.
En plus, avec une macro, chaque fois que A1 va changer, elle se rajoutera au résultat précédent, ce qui fera un cumul.

Soit tu mets en A2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1+5

Soit tu mets dans une autre cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1+A2

[Pierre Fauconnier]

Il faudrait mieux expliquer ce que tu veux.

Veux-tu cumuler à chaque saisie? Remplacer la valeur précédente par la nouvelle?

Quoi qu'il en soit:
Je n'aime pas la solution de Menhir (que je salue au passage ) car elle te contraint à mettre une constante dans une formule, ce qui n'est jamais l'idéal.
On peut s'orienter vers du VBA, mais je persiste en disant qu'il y a un problème de conception et d'organisation du classeur.

[clobern]

OK, je résume ce que je veux:
j'ai deux cellules A1 et A2;
chaque jour, je dois entrer une valeur X dans A1, cette valeur X doit se cumuler dans la valeur Y contenue dans A2 pour former X+Y dans A2.
par exemple, j'ai 8 dans A2, si j'entre 10 dans A1, j'obtiens 18 dans A2.

[excfl]

chaque jour, je dois entrer une valeur X dans A1, cette valeur X doit se cumuler dans la valeur Y contenue dans A2 pour former X+Y dans A2.

Suite de ma dernière image jointe :

[Menhir]

Ok, c'est plus clair.
Donc Pierre avait raison : oublie ma solution, il faut passer par une macro.
Quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target as Range)
    If Target.Address <> "$A$1" Then Exit Sub
    Range("A2").Value = Range("A2").Value + Target.Value
End Sub

A placer dans l'espace de ta feuille de calcul de VBA.

Mais je pense que c'est dangereux car si tu valides plusieurs fois la cellule, celle-ci sera à chaque fois incrémentée.
Il faudrait mettre une protection. Par exemple, si tu ne fais cette saisie une fois pas jour, mettre dans une cellule voisine la date de la dernière incrémentation et vérifier dans la macro que cette date est différente de la date du jour avant de la déclencher.

En supposant que tu mets cette date en A3, ça donnerait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target as Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If Day(Range("A3").Value) = Day(Now) Then Exit Sub
    Range("A2").Value = Range("A2").Value + Target.Value
    Range("A3").Value = Now
End Sub

Une autre solution consisterait à mettre une valeur en A1 et ne réactualiser A2 qu'une fois par jour (à minuit par exemple) avec une instruction OnTime.

[clobern]

Merci pour vos contributions,
Ca marche, à plus
Merci une fois de plus...

[Pierre Fauconnier]

Il faut toujours éviter les Exit Sub... Règle de base: une seule sortie de procédure ou de fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target as Range)
    If Target.Address = "$A$1" Then
      Range("A2").Value = Range("A2").Value + Target.Value
    End If
End Sub

C'est une bonne habitude à prendre car dans le cas d'un code comme celui qui suit, ça pose problème, les sorties multiples

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MySub()
  Application.DisplayAlerts = False
  ...
  ...
  If ...then Exit Sub
  ...
  Application.DisplayAlerts = True ' <=== On n'est pas certain de passer par cette ligne!!
End Sub

P.S.: Ne pas oublier si c'est ok.

[Menhir]

En début de code, ce cas ne risque pas d'arriver.

Perso, j'ai plutôt pour règle de limiter au maximum les instructions comme DisplayAlerts, ScreenUpdating et autres On Error.
Quand je les utilise, c'est vraiment pour une zone très limitée du code (idéalement en encadrement d'une seule ligne).

Le codage, c'est comme la peinture : chacun son style.

[Pierre Fauconnier]

Mwouais, question de style, on va dire cela comme cela. Cela dit, pour moi, un code sale, c'est d'abord un code sale avant d'être un style de code

Il faudrait, au moins, tester que la valeur à ajouter est numérique, sinon l'utilisateur va se prendre soit une erreur non gérée soit une belle ligne jaune dans le VBE, selon les options de gestion d'erreur