Balbutiements

[MC]

Bonjour à tous

Je voudrais commencer à utiliser les fonctions personnalisées pour m'aider un peu dans mon travail
mais je ne sais pas comment commencer ! et si !

donc voici un exemple :

j'ai 200 entreprises
pour chacune d'elles j'ai plusieurs données bilantielles
et entre autres salaires et charges

j'aimerais savoir si il est possible , à l'aide d'une fonction , d'effectuer la somme de ces deux lignes sur une troisième ligne , qu'il faudrait venir insérer dans la liste de donnees

hum ! est ce clair ?

pour la somme , je pourrais utiliser la fonction somme.si
mais je voudrais progresser dans l'utilisation des fonctions perso

merci d'avance pour votre aide

 

[MCMarie]

oui

Merci Hervé !

c'est exactement ce que je voulais

celà te parait une simple macro mais pas pour moi

peux tu m'expliquer comment tu fais dans le détail ?

:S

 

[Hervé]

re marie, dan , le fil, le forum

Marie, les remarques de dan sont à prendre au pied de la lettre car très judicieuses (merci dan).

la meme macro commentée :

Sub Bouton8_QuandClic()
Dim c As Range
Dim i As Byte

'pour chaque cellule de la colonne b de la ligne 3, jusqu'a la derniere cellule non vide
For Each c In Range('b3:b' & Range('b65536').End(xlUp).Row)
    'si la cellule contient ' Salaires et traitements' et la cellule de la ligne suivante
    'contient ' Charges sociales' alors ....
    If c = ' Salaires et traitements' And c.Offset(1, 0) = ' Charges sociales' Then
        'inserer une ligne apres la cellule ' Charges sociales'
            c.Offset(2, 0).EntireRow.Insert 'Shift:=xlDown
            'placer 'salaires + charges' sur la nouvelle ligne en colonne b
            c.Offset(2, 0).Value = 'salaires + charges'
            'colorier celle-ci en rose (???)
            c.Offset(2, 0).Interior.ColorIndex = 38
        'pour i=1 jusqu'à 3
        For i = 1 To 3
            'sur la nouvelle ligne en colonne c,d et e :
            'placer la formule de la somme
            c.Offset(2, i).FormulaR1C1 = '=SUM(R[-2]C:R[-1]C)'
            'colorier en rose
            c.Offset(2, i).Interior.ColorIndex = 38
        Next i
    End If
Next c


End Sub

salut

 

[MCMarie]

super grand merci à tous les deux