Discussion :

[alejoo]

Bonjour,

Je souhaiterais utiliser une macro qui me permette, à chaque ligne vide d'une certaine colonne, de calculer la somme des cellules qui sont au-dessus (jusqu’à la prochaine cellule vide). Quelqu'un serait-il écrire le script de la macro ? Merci d'avance.

Voir exemple en PJ (les cellules jaunes sont les cellules "somme" et doivent effectuer la somme des cellules au dessus)

[letudiant68]

En m'inspirant du code de gFZT82 j'ai créé pour vous la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub MacroTest()
 
Dim DerLig As Long, PreLig As Long, Cellule As Range
 
    With Worksheets("Feuil1") 'A adapter
        'Rechercher de la dernière ligne renseignée
        DerLig = .Range("B" & .Rows.Count).End(xlUp).Row
        PreLig = 1
 
        For Each Cellule In .Range("B1:B" & DerLig + 1)
            If Cellule.Value = "" Then
                Cellule.Value = Application.WorksheetFunction.Sum(Range("B" & PreLig & ":B" & Cellule.Row - 1))
                PreLig = Cellule.Row + 1
            End If
        Next Cellule
    End With
 
End Sub

Elle fonctionne en supposant que le début de vos cellule à sommer se trouve en B1. Adaptez en changeant les "B" du code ainsi que la ligne PreLig = 1
Macro à n'utiliser qu'une seule fois ou elle vous calculera la somme de toute la colonne lors de sa seconde utilisation (logique).

[alejoo]

Merci bcp, macro très efficace

Toutefois, serait-il possible d'ajouter une modif à la macro, je souhaiterais que les sommes calculées s'affiche en gras, et je ne sais pas quoi modifier dans le code ?? Merci d'avance.

[letudiant68]

Il suffit de rajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cellule.Font.Bold = True

après la ligne 14 du code précédent. Et si vous voulez que le font de la cellule soit jaune rajoutez aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cellule.Interior.ColorIndex = 6

[alejoo]

Merci bcp letudiant68 , tout fonctionne correctement!