Création d'une fonction VBA pour calcul de primes

Version imprimable

Bonjour,
Dans le cadre d'un projet j'aurai besoin de créer (en VBA) une macro me permettant de calculer automatiquement des primes en fonction de deux facteurs :
- le nombre de semaine travaillé
- le poste occupé.
J'ai créé ma boucle me permettant de traiter chaque ligne et de voir si l'algo analyse correctement (msgbox....). Or, pour calculer, c'est plus compliqué, j'ai tenté de le faire avec des formules, en vain, et je ne connais pas assez la mise en forme pour trouver les problèmes.
J'ai alors tenté avec cette technique, ça marche.. sauf que le résultat ne reste pas affiché. Il s'affiche puis s'efface dès que le prochain calcul s'effectue, et ainsi de suite. Chaque résultat vient remplacer le précédent sur l'ensemble de la colonne...
Y a t'il quelqu'un pour me conseiller ou m'aider à résoudre ce problème ?
Voici ma procédure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public Sub PrimePoste1() Range("F9").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) >= 5 Then If ActiveCell.Offset(0, -2) = "Grutier" Or ActiveCell.Offset(0, -2) = "Centralier" Then MsgBox "prime +250e" Range ("H9:H32").Value = Range ("G9") * Range ("G9") / Range ("G33") + 250 Else MsgBox "prime" Range ("H9:H32").Value = Range ("G9") * Range ("G9") / Range ("G33") End If Else MsgBox "inférieur à 5" Range("H9:H32").Value = 0 End If ActiveCell.Offset(1, 0).Activate Loop End Sub
Merci d'avance pour vos réponses !

Bonjour,

Voici une proposition d'après votre code, avec 3 procédés différents, les 3 solutions donnent bien le même résultat.
-Une par macro
-Une par fonction personnalisée
-Une par formule
Pièce jointe 594557

Le code pour la macro et la fonction personnalisée

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
36
 
Public Sub PrimePoste1()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 9 To 32
        If Cells(i, "F") <> "" Then
            If Cells(i, "G") >= 5 Then
                If Cells(i, "D") = "Grutier" Or Cells(i, "D") = "Centralier" Then
                    Cells(i, "H") = Cells(i, "G") * Cells(i, "G") / Range("G33") + 250
                Else
                    Cells(i, "H") = Cells(i, "G") * Cells(i, "G") / Range("G33")
                End If
            Else
                Cells(i, "H") = 0
            End If
        Else
            Cells(i, "H") = 0
        End If
    Next
End Sub
 
Function Prime_1(Poste As String, Nom As String, Sem As Long, Prime As Double) As Double
    If Nom <> "" Then
        If Sem >= 5 Then
            If Poste = "Grutier" Or Poste = "Centralier" Then
                Prime_1 = Sem * Sem / Prime + 250
            Else
                Prime_1 = Sem * Sem / Prime
            End If
        Else:
            Prime_1 = 0
        End If
    Else
        Prime_1 = 0
    End If
End Function

La formule Excel

Code:

=SI($G9>=5;SI(OU($D9={"Grutier";"Centralier"});$G9^2/$G$33+250;$G9^2/$G$33);0)

La formule avec la fonction personnalisée

Code:

=Prime_1($D9;$F9;$G9;$G$33)

Cdlt

07/04/2021, 11h13
Pierre Fauconnier

1 pièce(s) jointe(s)

Saut.

Perso, je travaillerais avec un tableau des métiers pour récupérer la prime éventuelle, histoire d'éviter d'utiliser des valeurs "hardcodées" dans ma formule (pour moi, un des 7 péchés capitaux d'Excel) ^(*)...

Pièce jointe 595081

Bien sûr, cette formule doit s'intégrer dans la formule globale.

^(*) C'est au moins aussi vrai dans du code VBA. Le hardcoding (mettre des valeurs telles que "Grutier" ou 250 en dur dans le code), c'est vraiment une pratique à bannir.