XL pour MAC somme dans macro

Delorme

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classomme.xlsm
    15.9 KB · Affichages: 2

vgendron

XLDnaute Barbatruc
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
VB:
Sub somme()
Set zone = Range("T45:T49")
MsgBox WorksheetFunction.Sum(zone)
Range("S45") = WorksheetFunction.Sum(zone)
Range("S46").Formula = "=sum(" & zone.Address & ")"
End Sub
 

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal