Aide code

[anber]

Bonsoir le forum

Je bute pour écrire l'équivalent en code de la formule suivante :
'=((C1/60*12)+(D1/60*11)+(E1/60*10)+(F1/60*9)+(G1/60*8)+(H1/60*7)+(I1/60*6)+(J1/60*5)+(K1/60*4)+(L1/60*3)+(M1/60*2)+(N1/60*1))

et à le mettre en application au fichier joint sur plusieurs lignes et faire le cumul de la ligne par rapport au mois en cours

Merci

 

[JCGL]

Re : Aide code

Bonjour à tous,

Avec l'enregistreur :

Range("A4:A20").Formula = _
        "=((RC[2]/60*12)+(RC[3]/60*11)+(RC[4]/60*10)+(RC[5]/60*9)+(RC[6]/60*8)+(RC[7]/60*7)+(RC[8]/60*6)+(RC[9]/60*5)+(RC[10]/60*4)+(RC[11]/60*3)+(RC[12]/60*2)+(RC[13]/60*1))"

A+

 

[anber]

Re : Aide code

Bonjour JCGL, le forum,

J'avais déjà utilisé l'enregistrement, ma demande était peut-être mal formulée. Ce que je souhaitais c'était d'écrire un code avec des boucles

Merci

 

[Gael]

Re : Aide code

Bonjour Anber, JCGL, le forum,

Essaye avec le code ci-dessous qui mettra le résultat du calcul en B5.

Sub test()
Dim result As Double, i As Integer
ActiveSheet.Range("C1").Select
result = 0
For i = 12 To 1 Step -1
result = result + Selection.Offset(0, 12 - i) / 60 * i
Next i
ActiveSheet.Range("B5").Value = result
End Sub

 

[Gael]

Re : Aide code

Re,

Je m'aperçois que je n'ai répondu qu'à moitié sans tenir compte de l'exemple.

Une macro plus complète:

Sub calcul()
Dim result As Double, Cumul As Double
Dim i As Integer, lig As Integer, Mois As Integer
Mois = Month(Date)
For lig = 4 To 11
result = 0
Cumul = 0
ActiveSheet.Cells(lig, 1).Select
    For i = 12 To 1 Step -1
    result = result + Selection.Offset(0, 12 - i + 2) / 60 * i
        If 12 - i + 1 <= Mois Then
        Cumul = Cumul + Selection.Offset(0, 12 - i + 2)
        End If
    Next i
Selection.Value = result
Selection.Offset(0, 1) = Cumul
Next lig
End sub

Exemple modifié ci-joint.

@+

Gael

 

[anber]

Re : Aide code

Bonsoir Gael, le forum

Merci pour ta réponse, c'est OK