XL pour MAC somme dans macro

Delorme · 18 Novembre 2022

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 · 18 Novembre 2022

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

Delorme · 18 Novembre 2022

vgendron à dit:
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

Delorme · 18 Novembre 2022

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 · 18 Novembre 2022

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 · 18 Novembre 2022

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

XL pour MAC somme dans macro

Delorme

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Delorme

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Discussions similaires