création macro excel

Version imprimable

12/05/2014, 15h56
alejoo

1 pièce(s) jointe(s)

création macro excel

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)

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

Code:

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).

13/05/2014, 10h00
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.
13/05/2014, 10h45
letudiant68

Il suffit de rajouter

Code:

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:

Cellule.Interior.ColorIndex = 6
14/05/2014, 09h39
alejoo

Merci bcp letudiant68 , tout fonctionne correctement! :D