VBA- calculer le total d'une plage de cellules

Bonjour à tous,

Je suis bloquée dans ma macro. Comment faire pour calculer le total de chaque ligne dans un tableau avec une macro ?

Merci d'avance pour votre aide.

Bonne soirée

Fais le par apprentissage ...

Merci pour ta réponse qui m'est d'une aide exceptionnelle

Comment interpréter ...

si c'est réel : bravo !

si c'est caustique : j'accepte, mais ton post ne comportant pas de fichier exemple ce sera toujours difficile d'y répondre, et c'est souvent aussi par apprentissage de macro que je me débrouille encore parfois. A moins que tu aies mal compris le terme "apprentissage" car il s'agit d'un mode de programmation où excel va enregistrer ("apprendre") ce que l'on fait. Le code n'est pas beau mais il fonctionne !

et avec cela tu acceptes de m'aider ?

Bonsoir,

utilise "WorkSheetFunction.Sum..." ,

voir : https://www.excel-pratique.com/fr/vba/fonctions_vba.php

Bonsoir,

Merci beaucoup pour votre aide.

Bonne soirée

lele a écrit :

et avec cela tu acceptes de m'aider ?

Mais la réponse est déjà pratiquement dans ton fichier ... avec un petit changement, j'aurais écrit :

Sub total_exo4()

    Sheets("SynthèseAnnée").Select
    Range("O3").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
    Selection.AutoFill Destination:=Range("O3:O6"), Type:=xlFillDefault
    Range("O3:O6").Select

End Sub

il y a juste une différence avec le résultat final lié à la case Abricot / Janvier.

Bonjour,

ma petite contribution.

Pour la formule de la somme, on peut tout simplement écrire :

Range("O3:O6").FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"

Cdlt.