XL pour MAC somme dans macro

[Delorme]

Bonjour à tous

je reviens auprès de vous pour un problème qui me semble celui d'un debutant ( ce qui est le cas pour moi

voici une macro non résolue ou je voudrais avoir la somme de mes cellules celectionnées dans la cellule s49
pouvez vous m'aider?
ci joint fichier*

merci


Sub chiffrecells()
v = 10
i = 45
Do Until Cells(i, 8) = ""
Cells(i, 20) = v
If Cells(i, 20) > 5 Then
Range("s45").Formula = "= PERSONAL.XLSB!couleur(t45)"

Cells(i, 20).Interior.Color = RGB(170, 0, 100)
Cells(i, 20).Font.Color = RGB(255, 255, 255)
End If
i = i + 1
v = v + 10
Loop
'Range("s49").Select
'ActiveCell.Formula = Sum("t45:t49")

End Sub

 

[vgendron]

Bonjour

dans ton classeur, ta macro ne fait rien car cette ligne de code est vraie dès le début
Do Until Cells(i, 8) = ""

après.. pour faire la somme..
un exemple ici

Sub somme()
Set zone = Range("T45:T49")
MsgBox WorksheetFunction.Sum(zone)
Range("S45") = WorksheetFunction.Sum(zone)
Range("S46").Formula = "=sum(" & zone.Address & ")"
End Sub

 

[Delorme]

Bonjour

dans ton classeur, ta macro ne fait rien car cette ligne de code est vraie dès le début
Do Until Cells(i, 8) = ""

après.. pour faire la somme..
un exemple ici

Sub somme()
Set zone = Range("T45:T49")
MsgBox WorksheetFunction.Sum(zone)
Range("S45") = WorksheetFunction.Sum(zone)
Range("S46").Formula = "=sum(" & zone.Address & ")"
End Sub

 

[Delorme]

merci de votre réponse, mais j'aurais voulu que ce soit intégré dans ma macro et ne pas lancer une autre macro somme

 

[vgendron]

vu que je ne comprend pas ce que fait (ou est censée) faire ta macro, à toi de prendre LA ligne de code qui va bien pour l'intégrer..
ta macro utilse une fonction personalisée (Couleur) qui n'est pas dans le fichier..

 

[Delorme]

merci
mais pouvez vous me copier ma macro avec l'endroit ou l'intègrer