GNT sans publicité, site mobile, fonctionnalitées exclusives...

SOS

Le
alcove Hors ligne
Bonjour,
j'ai un fichier où je marque tous les mouvements de mon stock et j'aimerai bien faire une feuille récapitulative des sorties et des entrées si vous pouvez m'aider je vous en serai reconnaissant
Lire les 7 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
h2so4
Le #24185831
bonjour,

dis-nous comment se présentent les mouvements du stock et les infos souha itées sur la récap.

Si tu peux mettre un exemple via cijoint, c'est encore mieux.
alcove Hors ligne
Le #24186041
h2so4 a écrit le 22/01/2012 à 16h23 :
bonjour,

dis-nous comment se présentent les mouvements du stock et les infos
souha itées sur la récap.

Si tu peux mettre un exemple via cijoint, c'est encore mieux.


Merci beaucoup de m'avoir répondu

mon tableau se présente de la facon suivante : Date, désignation quantité ( positive si c'est une entrée stock et négative dans le cas contraire) et type de machine.

Je veux un tableau récapitulatif sur une autre feuille qui comporte : Désignation Total entrées et Total sorties
h2so4
Le #24186491
On Sunday, January 22, 2012 5:37:43 PM UTC+1, alcove wrote:
h2so4 a écrit le 22/01/2012 à 16h23 :


bonjour,

cette macro copie les désignations de la feuille mouvement (2ème colonn e) dans la feuille recap (1ere colonne) et fait le total des entrées (mou vement >0 en colonne3) dans la recap colonne 2 et le total des sorties (mou vement

Sub recap()

' adapter les 2 variables suivantes si nécessaires
' feuilmouvement contient le nom de la feuille contenant les mouvements
' feuilrecap contient le nom de la feuille recap (doit exister !)

feuilmouvement = "Mouvement"

feuilrecap = "recap"

With Worksheets(feuilmouvement)
i = 2
a = 1
'selectionner tous les désignations
While .Cells(i, 2) <> ""
trouvé = False
For j = 2 To a
If Worksheets(feuilrecap).Cells(j, 1) = .Cells(i, 2) Then trouvé = Tr ue: Exit For
Next j
If Not (trouvé) Then
a = a + 1
Worksheets(feuilrecap).Cells(a, 1) = .Cells(i, 2)
End If
i = i + 1

Wend
i = i - 1
' faire le total des entrées et des sorties
For k = 2 To a
For j = 2 To i
If Worksheets(feuilrecap).Cells(k, 1) = .Cells(j, 2) Then
If .Cells(j, 3) > 0 Then
Worksheets(feuilrecap).Cells(k, 2) = Worksheets(feuilrecap).Cells(k, 2) + .Cells(j, 3)
Else
Worksheets(feuilrecap).Cells(k, 3) = Worksheets(feuilrecap).Cells(k, 3) + .Cells(j, 3)
End If
End If
Next j
Next k
End With
End Sub
Maude Este
Le #24186761
Bonsour®

"alcove" a écrit
merci beaucoup
est ce qu il n y a pas une formule trés simple que je peux appliquer car je
suis nul en informatique.
j'ai essayé avec la formule SOMMEPROD mais ça uniquement sur une seule feuille
parcontre moi je veux le tableau récap sur une autre feuille


Voir du cote des tableaux croisés dynamique
consulter l'aide à ce sujet...
Jacky
Le #24186901
Bonsoir,

faire une feuille récapitulative des sorties et des entrées


Ceci fait ce que tu demandes; mais je ne suis pas certain que ce soit la bonne méthode pour gérer un stock
Voi ici
http://cjoint.com/?BAwuctpCn1F
--
Salutations
JJ


"alcove"
Bonjour,
j'ai un fichier où je marque tous les mouvements de mon stock et j'aimerai bien
faire une feuille récapitulative des sorties et des entrées si vous pouvez
m'aider je vous en serai reconnaissant
Publicité
Suivre les réponses
Poster une réponse
Anonyme