Formule

Résolu
Bonjour,

voici mon problème:

H I J
sortie stock valeur sortie stock quantité sortie du stock/an
10 0€ 10

ce que j'aimerai c'est que quand je rajoute 10 dans" sortie de stock" ma valeur dans "qté sortie stock/an" est 10, et si je rajoute à nouveau 10 sa m'affiche 20 etc....

merci pour vos réponses.

jipe

9 réponses

  1. Bonjour,

    Essaye en j2 =somme($h:$h) a condition que h ne concerne que les sorties.

    Crdlmt
    0
    1. C'est presque ça...
      Seulement il faudrait dans sortie stock quand je remets 10 quantité de stock augmente. Car là admettons que j'ai 50 en qte sortie stock et que je remets 10 dans sortie de stock, qte de sortie stock met 10 aussi, alors qu'il faudrait que ça se rajoute.....
      Merci pour votre aide.
      0
      1. Bonjour,

        D'après ce que je comprends, tu as par exemple 50 dans la cellule B1 et tu veux saisir 10 dans cette cellule B1 et que cette valeur s'ajoute au contenu précédent pour donner 60, es ce cela !
        0
        1. Oui c'est cela.
          0
      2. Re,

        alors ce que tu veux faire ne peut se faire que par VBA si tu as quelques notions.
        ensuite il faut être très précis et connaitre exactement la plage à traiter pour ne pas écrire des codes inadaptés et travailler pour rien
        0
        1. non je n'y connais rien en VBA.

          Sortie du Stock Valeur Sortie du Stock Quantité sortie du stock/an
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0
          0
        2. @Rjp62non je n'y connais rien en VBA.

          Ci-joint le tableau de ma demande.
          et il faut que toute la colonne H et J est le même principe pas qu'une ligne mais jusqu''à 1500.

          H I J
          Sortie du Stock Valeur Sortie du Stock Quantité sortie du stock/an
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0
          0 0,00 € 0

          merci pour ton aide
          0
      3. Re,

        Alors ça va être difficile de se comprendre si tu ne connais pas ce langage

        D'après ce que je comprends, plage H2:H1500 tu as ton stock et c'est dans cette plage que tu veux additionner la valeur existante à la valeur saisie, c'est bien ça !

        plage I2:I1500 tu doit avoir une formule qui multiplie le stock colonne H par un prix unitaire

        et plage J2:J1500 que veux tu faire ou es ce le contraire, c'est dans cette plage que tu veux ajouter la valeur saisie
        0
        1. exactement c'est ça, tu as très bien comprit.
          0
      4. Re,

        On va essayer, clic droit sur ton onglet de feuille concerné/Visualiser le code

        dans la partie blanche colle ce code

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim Nouveau As Single
        If Not Intersect(Target, Range("H2:H1500")) Is Nothing Then
        Nouveau = Target
        With Application
        .EnableEvents = False
        .Undo
        Target = Target + Nouveau
        .EnableEvents = True
        End With
        End If
        End Sub


        reviens sur ta feuille et ajoute des valeurs sur ta plage colonne H
        0
        1. ok, pas vraiment ça.

          en fait quand je mets une quantité dans H ça ne me la met pas en J.
          Par contre dans H ça se rajoute et on arrive plus à remettre à zéro.
          0
        2. Re,

          et oui la on est dans la programmation, pour remettre ta cellule à zéro, si elle affiche par exemple 50 il te suffit de saisir dans la cellule -50

          par contre je ne comprends pas quand je mets une quantité dans H ça ne me la met pas en J
          que veux tu exactement, après avoir saisi la valeur en colonne H tu veux la même valeur en conne J ou tu veux que cette valeur s'ajoute à la valeur colonne J qui est différente !
          0
      5. ok pour la remise à zéro.

        oui je voudrais quand tu entres la valeur dans H que J augmente à chaque rentrer dans J.

        Exemple : H10 J10
        si encore H10 J20
        si encore H30 J50

        Et si H0 alors aucune valeur ne rentre dans J reste à 50 dans l'exemple, jusqu'à qu'une autre valeur dans H entre à nouveau.

        Tu vois ce que je veux dire ?
        0
        1. Re,

          remplace le code par celui ci
          Private Sub Worksheet_Change(ByVal Target As Range)
          Dim Nouveau As Single
          On Error Resume Next
          If Not Intersect(Target, Range("H2:H1500")) Is Nothing Then
          Nouveau = Target
          With Application
          .EnableEvents = False
          .Undo
          Target = Target + Nouveau
          If Target + Nouveau > 0 Then Target(1, 3) = Target(1, 3) + Nouveau
          .EnableEvents = True
          End With
          End If
          End Sub

          0
          1. super mike, ça marche.
            encore un gros merci à toi.
            passe de bonnes fêtes de fin d'année.
            0
        2. Re,

          Merci bonne fête à toi également
          je passe le statut de la discussion en résolu
          0