Calcul sous VBA?

Version imprimable

02/04/2013, 15h07
laskarlaskar

1 pièce(s) jointe(s)

Calcul sous VBA?

Bonjour,

Je souhaierai de l'aide pour faire une macro capable de calculer des cadences en fonction de machines differentes et de reporter ces informations sur un autre onglet excel.

Je m'explique:

Sur la premiere feuille "feuil1" ce trouve des commandes clients en fonction des machines. Il y a le debut de la commande et la fin ainsi que le nombre de palettes effectués par commande.

L'idée c'est que la macro face une moyenne de la cadence par machine:

Pour machine 1:
fin commande - debut commande = temps de commande
temps de commande / nombre de palette = cadence

Pour machine 2:
fin commande - debut commande = temps de commande
temps de commande / nombre de palette = cadence

Pour machine 3:
...............................................
...............................................

Et que cette moyennes soit reportées sur la feuille "cadence"

En tous cas merci d'avance, car je sait que ce site est génial (on me la conseillé)
02/04/2013, 15h48
Daniel.C

Bonjour,

Je ne trouve pas les mêmes résultats que toi... Peux-tu me confirmer que le calcul, pour la ligne 5 est bien :

Code:

=(F5-E5)*24/J5
02/04/2013, 17h36
laskarlaskar

Bonjour,

Les cadences qui sont dans le fichiers non pas été calculé a partir de ces données (donc a ne pas prendre en compte). Dans le fichier que j'ai posté, elles sont fixes et je voudrais les rendres dynamiques (d'ou ma demande pour une macro).

Sur la premiere feuille je colle des données issu de ERP de mon entreprise et les cadences machines sont differentes en fonctions des produits.

En tous cas merci de te pencher la dessus :ccool:

Pour le calcul ca serait plutot:

exemple Martin924:

Somme des fin de commandes - sommes des debut commandes= Temps de commande

nombre de palette/Temps de commande (en heure)= Cadence palette/heure

Par contre, il me faut une moyenne de tous les cadences pour le Martin924
puis le Ward etc .....

Je sais pas ci j'ai été suffisament clair ?
02/04/2013, 17h40
Daniel.C

Oui, mais une formule (matricielle, à valider avec Ctrl+Maj+Entrée) suffit. Sur la feuille Cadence, en B3 et à tirer vers le bas :

Code:

=MOYENNE(SI(Feuil1!$A$4:$A$1082=A3;(Feuil1!$F$4:$F$1082-Feuil1!$E$4:$E$1082)*24/Feuil1!$J$4:$J$1082))

Maintenant, si tu veux quand même une macro, dis-le.
02/04/2013, 17h49
laskarlaskar

Merci pour cette réponse rapide, j'ai testé mais ca ne marche pas,

peut tu m'envoyé le fichier excel avec la modification matricielle (je suis vraiment pas très doué, je commence a me former avec les tutoriaux)
02/04/2013, 18h03
Daniel.C

1 pièce(s) jointe(s)

Regarde le classeur en PJ. Si ta formule est bien validée matricielle, elle apparaît entre accolades :

Code:

{=Formule}
03/04/2013, 10h29
laskarlaskar

1 pièce(s) jointe(s)

Ta formule fonctionne parfaitement :D
Je te remercie beaucoup :ccool::ccool:

Bonjour,

Concernant la formule que tu m'a donné, il y a comme un petit souci:

Quand je change les données dans la feuil1 plus rien ne marche :cry: comment faire ?

Je pense qu'une macro serait plus efficasse, qu'en pense tu ?
03/04/2013, 11h41
laskarlaskar

1 pièce(s) jointe(s)

je t'est mis un fichier avec en feuil2 et feuil3 un exemple des données que je copie et colle dans la feuil1

Voila la macro basée sur le premier classeur. Je regarde le second.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Calculs()
    Dim Plage As Range, Dico As Object, Données, C As Range, Ligne As Long, Div As Double
    Dim Machines1() As String, Machines2() As Double, Ctr As Integer
    ReDim Machines1(0)
    ReDim Machines2(0)
    Ctr = -1
    Set Dico = CreateObject("Scripting.Dictionary")
    Set Sh = Sheets("Cadence")
    With Sheets("Feuil1")
        Set Plage = .Range(.[A4], .Cells(.Rows.Count, 1).End(xlUp))
        For Each C In Plage
            If Not Dico.exists(C.Value) Then
                Dico.Add C.Value, C.Value
                Ctr = Ctr + 1
                ReDim Preserve Machines1(Ctr)
                ReDim Preserve Machines2(Ctr)
                Machines1(Ctr) = C.Value
            End If
        Next C
        Données = Plage.Resize(, 10)
        For i = 1 To UBound(Données, 1)
            Ligne = Application.Match(Données(i, 1), Machines1, 0) - 1
            Div = CDbl(Replace(Données(i, 10), " ", ""))
            Machines2(Ligne) = Machines2(Ligne) + (CDate(Données(i, 6)) - CDate(Données(i, 5))) * 24 / Div
        Next i
    End With
    With Sheets("Cadence")
        .[A3:B1000].ClearContents
        For i = 0 To UBound(Machines1)
            .[A3].Offset(i) = Machines1(i)
            .[B3].Offset(i) = Machines2(i) / Application.CountIf([Feuil1!A:A], Machines1(i))
        Next i
        .[A3:B1000].Sort .[A3], xlAscending, Header:=xlNo
    End With
End Sub

Pas problème, la macro rectifie le format des palettes. Apparemment, elle trouve les mêmes résultats que la formule. Ceci dit, je l'ai testé avec Excel 2013. Est-il plus malin ?

Pour "numériser" la colonne J, tu peux utiliser la macro suivante (elle utilisera ton séparateur décimal) :

Code:

1
2
3
4
5
6
7
Sub ColonneJ()
    Dim C As Range
    For Each C In Range([J4], Cells(Rows.Count, 10).End(xlUp))
        C.Value = Replace(C.Value, " ", "")
        C.Value = CDbl(C.Value)
    Next C
End Sub

03/04/2013, 14h53
laskarlaskar

Le fichier que je copie (au niveau palette) le separateur est un point je souhaiterais un virgule.

Je vais tester la premiere macro

;);)

La macro de conversion fonctionne a merveille :ccool:

Par contre tu parle de quel classeur quand tu me dit : le premier classeur ?

ta macro qui est basé sur le premier classeur correpond a quoi? la tu ma perdu :(
03/04/2013, 15h28
Daniel.C

Tu as posté un classeur hier à 18:03 et l'autre aujourd'hui à 11:41. Mais les macros fonctionnent sur les deux classeurs.
03/04/2013, 15h55
laskarlaskar

Merci pour tous, heureusement que tu m'a aidé, seul je n'y serais jamais arrivé

:ccool::):ccool: