Calcul par macro

Version imprimable

20/12/2017, 11h11
Corentin P

1 pièce(s) jointe(s)

Calcul par macro

Bonjour,

Je travaille dans le bâtiment et je dois créer un fichier Excel sur le suivi de matériel pour mon entreprise.

Je voudrais, à partir de la saisie des mouvements (photo jointe) obtenir 3 informations à partir d'un calcul macro.
Les 3 informations sont: la quantité totale, la quantité moyenne et la quantité maximale. Elles sont conditionnées par plusieurs paramètres: le chantier d'arrivée, le chantier de départ, le matériel et la date.

Concrètement, sur mon exemple, je voudrais calculer la quantité totale de matériels pour le lieu 1049 en fonction du nombre de matériels par jour.

Voici le calcul:
Quantité totale: (01/02/2018-01/01/2018)*100+(01/03/2018-01/02/2018)*200+(15/03/2018-01/03/2018)*300+(21/03/2018)*150=13800

Le problème, c'est que c'est un calcul qui se fait sur plus de mille lignes avec des valeurs conditionnelles (lieu, matériels).

J'espère avoir été assez précis. Avez-vous des pistes à me donner?

Merci par avance,
Corentin
20/12/2017, 15h14
a_diard

Bonjour

Pour moi ton message est incompréhensible.

Relit le, si il est clair le problème c'est moi.

Bonne journée.

Si ce n'est pas clair, je suis en attente de te relire.
22/12/2017, 11h59
Corentin P

1 pièce(s) jointe(s)

Bonjour,

Effectivement mon message n'est pas très clair.

Mon objectif: calculer la quantité totale de matériel sur un lieu précis (ex: 1049) pour une durée déterminée(1ere date de mouvement et dernière date de mouvement).

Comment: à partir d'une base de donnée "SAISIE DES MOUVEMENTS" (photo jointe dans mon premier message).

Problèmes: Nombre de lignes importantes, beaucoup de lieux différents et beaucoup de matériels. Il s'agit de faire une somme cumulée (en + et en -) en fonction du type de matériels, du lieu d'arrivée, du lieu de départ et du nombre de jours.

J'ai un peu réfléchi à comment parvenir à mon résultat, je pense qu'il faut utiliser une boucle VBA.

Le calcul doit se décomposer de la sorte:
1/ Définir le périmètre de la boucle : ce sont la première et la dernière date (déterminer à partir d'une formule)
2/ Déterminer les lignes à prendre en compte (en fonction des lieux et matériels)
3/ Déterminer la somme cumulée pour chaque ligne
4/ Déterminer le nombre de jours à prendre en compte pour chaque ligne
5/ Faire le produit de la somme cumulée et du nombre de jours pour chaque ligne
6/ Faire et afficher la somme du produit précédemment calculer

Je n'ai aucune notion du code VBA, hormis mes recherches sur internet.
Je joins un fichier avec deux onglets "saisie des mouvements" et "bilan". La boucle devrait être dans la colonne C de l'onglet "bilan".
22/12/2017, 12h41
Menhir

Citation:

Envoyé par Corentin P

Je voudrais, à partir de la saisie des mouvements (photo jointe) obtenir 3 informations à partir d'un calcul macro.
Les 3 informations sont: la quantité totale, la quantité moyenne et la quantité maximale. Elles sont conditionnées par plusieurs paramètres: le chantier d'arrivée, le chantier de départ, le matériel et la date.

Pas besoin de macro pour faire ça.
Quantité totale : https://support.office.com/fr-FR/art...2-1697a653039b
Quantité moyenne : https://support.office.com/fr-FR/art...9-f5576d8ac642
Quantité maximale : https://support.office.com/fr-FR/art...b-9b6376b28883
22/12/2017, 13h14
patricktoulon

re

re
no effectivement c'est pas clair
ceci:

Citation:

Concrètement, sur mon exemple, je voudrais calculer la quantité totale de matériels pour le lieu 1049 en fonction du nombre de matériels par jour.

ne correspond pas a cela

Citation:

Voici le calcul:
Quantité totale: (01/02/2018-01/01/2018)*100+(01/03/2018-01/02/2018)*200+(15/03/2018-01/03/2018)*300+(21/03/2018)*150=13800

tu dis "par jour" puis dans ta demo tu additionne tout les jours différents :ptdr:

dans tout les cas ca casse pas une noisette un simple filtre sur colonne date et lieu et sum des cells visible dans la colonne quantité
point barre

1 pièce(s) jointe(s)

re
si je m'en refere a ta ligne"voici le calcul" et non a ta demande textuelle ca devrait donner ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
    Dim temp As New Collection
    With ActiveSheet
    Set plage = .Range("c2:c" & [A65000].End(xlUp).Row)
    On Error Resume Next
    For Each c In plage
        temp.Add Item:=c, Key:=CStr(c)
    Next c
    On Error GoTo 0
    For Each i In temp
        ActiveSheet.Range("A2:E" & .Cells(Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="=" & i
        Debug.Print "pour " & i & " c 'est la somme de la plage " & plage.SpecialCells(xlVisible).Address
    'il te reste plus qu'a faire la somme des plage pour chaque item different 
plage.AutoFilter
    Next i
End With
End Sub

Pièce jointe 336850

je corrige au cas ou tu aurais pas compris qu'il faut prendre le offset(0,2) pour les quantités

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
    Dim temp As New Collection
    With ActiveSheet
    Set plage = .Range("c2:c" & [A65000].End(xlUp).Row)
    On Error Resume Next
    For Each c In plage
        temp.Add Item:=c, Key:=CStr(c)
    Next c
    On Error GoTo 0
    For Each i In temp
        ActiveSheet.Range("A2:E" & .Cells(Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="=" & i
        Debug.Print "pour " & i & " c 'est la somme de la plage " & plage.SpecialCells(xlVisible).Offset(0, 2).Address
    'il te reste plus qu'a faire la somme des plage pour chaque items differents
plage.AutoFilter
    Next i
End With
End Sub

edit : ca m' a meme permis de decouvrire une coquille dans le filtre

matiere a ouvrir une discussion ca ;)

22/12/2017, 15h30
Corentin P

Je te remercie pour ta réponse.

Je vais regarder ça de plus près pour essayer de parvenir un résultat. Je vous tiens au courant de mon avancement.

Merci beaucoup pour la piste.