Additionner et soustraire dans excel

Résolu
mondeo41 -  
Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous ,

Je voudrais savoir qu'elle est la formule pour additionner des quantités dans une meme cellule de la meme colonne sur excel c'est a dire.
Je rentre le 20/08/2011 dans la cellule de la colonne B4 une quantité de 30 pièces, le 30/08/2011 je rentre dans la meme cellule de la colonne B4 une nouvelle quantité de 70 pièces, je voudrais que la somme de ces deux entrées soit égale à 100 pièces c'est à dire 30+70 et ainsi de suite.
Et je voudrais aussi la formule qui fasse la même chose mais pour les sorties c'est a dire Je fais une sortie de 20 pièces le 4/09/2011 dans une autre cellule et colonne B5, je fais une nouvelle sortie le 06/09/2011 de 30 pièces toujours dans la cellule et colonne B5 et avoir un total de sortie de 50 pièces c'est à dire 20+30 et ainsi de suite .
D'avance un grand merci à tous ceux qui me répondront.
Philippe

7 réponses

  1. mondeo41
     
    Je te remercie pour la réponse,je comprends, alors il y a t-il un autre moyen dans excel? avec d'autres cellules et colonnes? car lorsque l'on utilise un logiciel de gestion des stocks là il n'y a pas de probleme cela fait les additions des entrées et les soustractions des sorties.
    merci d'avance
    5
    1. mondeo41
       
      Je te remercie Mike-31
      Mais en francais cela donne quoi?
      0
    2. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
       
      mondeo41, si tu veux travailler comme avec les logiciels de gestion, il ne faut pas utiliser un tableur, comme Excel, mais un gestionnaire de base de données, comme Access.
      0
  2. mondeo41
     
    Je vous remercie tous les deux mais en francais cela donne quoi
    1
    1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      C'est du visual basic colle simplement le code tel qu'on te le donne. Le code de Michel_m que je salu, est certainement mieux adapté en limitant l'action à une seule cellule B5

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim Nouveau As Single
      If Not Intersect(Target, Range("B5")) Is Nothing Then
      Nouveau = Target
      With Application
      .EnableEvents = False
      .Undo
      Target = Target + Nouveau
      .EnableEvents = True
      End With
      End If
      End Sub
      0
  3. eljojo_e Messages postés 1255 Statut Membre 155
     
    Bonjour, pour faire des calcul dans excel, il faut taper "=" dans la cellule concerné, ensuite cliquer sur une première cellule (dans ce cas, cellule qui contient 30 pièces) ensuite taper "+", ensuite cliquer sur la 2ème cellule (cellule de 70 pièce) faire entrer et le calcul est fait.
    0
  4. mondeo41 Messages postés 17 Statut Membre
     
    Je vous remercie pour votre réponse mais ce n'est pas ce que je recherche car ça je sais le faire, peut etre que je n'ai pas été assez clair dans mon message donc j'ai rajouté des points d'explications
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
     
    C'est très clair maintenant, et la réponse est NON ! ce n'est pas ainsi que fonctionne un tableur !
    C'est comme si tu voulais monter une échelle en utilisant toujours le même barreau ...
    0
  7. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Oui en VBA et en mettant en oeuvre deux cellules.
    exemple résultat en B4 mais il faut au moins une cellule de saisie exemple B2
    pour que les valeurs s'ajoutent il suffit de saisir exemple 70 et la valeur s'ajoute automatiquement et pour enlever une valeur el suffit de saisir en B2 -20 (le signe moins et valeur)

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
    [B4] = Range("B4").Value + Target.Value
    End If
    End Sub


    ou avec deux cellule de saisie, une pour les valeurs à ajoutées B2 et une pour les valeurs à enlever C2

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
    [B4] = Range("B4").Value + Target.Value
    End If
    If Not Application.Intersect(Target, Range("C2")) Is Nothing Then
    [B4] = Range("B4").Value - Target.Values
    End If
    End Sub


    clic droit sur l'onglet de ta feuille/Visualiser le code et colle un de ces deux codes en gras
    0
    1. mondeo41 Messages postés 17 Statut Membre
       
      Bonjour Mike
      Non ce n'est pas ça
      Aujourd'hui dans mon tableau j'ai 100 en date du stock, en entrée j'ai 100, en stock total j'ai 200 (B8+C8) en sortie j'ai 50 et en stock final 150 qui est bien= à (B8+C8-E8).
      Ce que je voudrais date du stock 100 comme actuellement, j'ai une entrée le 30/08 de 100 et que si le 5/09je refais une entrée de 50 je voudrais que le total fasse 250 et non pas 150, c'est à dire 100 du 25/08 +100 du 30/08 +50 du 5/9 =250
      Et je voudrais la même fonction pour les sorties
      C'est à dire aujourd'hui dans mon tableau j'ai retiré 50 le 22/08 il m'en reste en stock final 150 le 28/08 j'en retire 80 donc 50 du 22/08 +80 du 23/08 = 130 de sortie ce qui fait un stock final de 70 = 200 de stock total - 130 de sortie =70

      Si tu peux me mettre les formules dans mon tableau car je fais comme tu m'as expliqué avec le code mais cela me le recopie mais je ne sais pas comment le mettre dans le tableau

      Je te remercie encore une fois c'est super sympa de ta part de m'aider
      Peut etre est -il possible que je te donne mon adresse mail
      afin d'aller plus loin....

      Philippe
      0
  8. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    Lorsque tu écris un nombre dans B4(pe 10)une deuxième fois un nombre dans B4(pe 25),etc l'addition s'effectue en B4(35); m^me punition pour B5

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

    pour insérer, voir méthode sur le post de Mike31(bonjour, ca va?); il faut que ton excel soit pâram^tré pour autoriser les macros.
    Michel
    0
    1. mondeo41 Messages postés 17 Statut Membre
       
      Excuse moi mais je n'arrive pas je dois etre trop n...
      voici mon tableau
      INVENTAIRE TREILLIS SOUDÉ

      DATE STOCK: 25/08/2011 ENTRÉE STOCK TOTAL SORTIE STOCK FINAL
      100 x+x =toutes les entrees x-x = entrees- sorties
      0
    2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      Re,

      est il possible d'avoir ton fichier sans notes confidentielles à joindre avec un de ces deux liens

      https://www.cjoint.com/ ou http://www.cijoint.fr/
      0
    3. mondeo41 Messages postés 17 Statut Membre
       
      Rebonjour,
      Je t'ai envoyé le fichier sur les deux liens , les as tu reçu?
      0
    4. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      Re,

      Non, pas de fichier.
      pour joindre ton fichier, clic sur un des liens de mon post,
      puis clic sur parcourir pour sélectionner ton fichier,
      clic sur créer le lien
      un lien sera généré en haut de la feuille
      colle le dans un post en faisant un copier/coller de ce lien
      0
    5. mondeo41 Messages postés 17 Statut Membre
       
      http://www.cijoint.fr/cjlink.php?file=cj201109/cijtAASPt3.xlsx
      0