macro qui fait la somme decellule

[manpower]

salut a vous je souhaiterais fait une macro qui fais la somme de cellule npar exemple :
voici ci joint un exemple
merci pour votre soutient

 

[Jack2]

Re : macro qui fait la somme decellule

Bonjour manpower, bonjour le Forum,

Nombre de cellules non vides

Sub CellulesNonVides()
Dim Nbre As Long
    Nbre = Application.WorksheetFunction.CountA(Range("A:A"))
    Range("E1").Value = "Nombre de cellules non vides :      " & Nbre
End Sub

ou

Sub CellulesNonVides()
Range("E1").Value = "Nombre de cellules non vides :     " & Application.WorksheetFunction.CountA(Range("A:A"))
End Sub

Somme des montants de la colonne A en C

Sub TotalColonnesA_1()
    Range("C12").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C[-2]:R[-2]C[-2])"
End Sub

Autre solution

Sub TotalColonnesA_2()
Dim Valeur As Double
Dim i As Integer
Valeur = 0
For i = 1 To Range("A1", Range("A65535").End(xlUp)).Rows.Count
    If IsNumeric(Range("A" & i).Value) Then Valeur = Valeur + Range("A" & i).Value
Next i
Range("C11").Value = Valeur
End Sub

A+

 

[manpower]

Re : macro qui fait la somme decellule

merciiiii c marche bien mais est possible ke cela s'affiche comme sur mon fichier ci joint et puis explique moi ca stp SUM(R[-9]C[-2]:R[-2]C[-2])" ,si je doit adapte ca a mon vrai fichier quelle parametre je doit modifié
nb:stp mais souvent des commentaires pour m'aidé a comprendre
mercii

 

[Jack2]

Re : macro qui fait la somme decellule

Bonjour manpower,

Je ne sais pas pourquoi j'ai utilisé cette formulation de la somme que j'ai du mal à maîtriser, alors qu'il y a beaucoup plus simple :

 Sub TotalColonnesA_3()
'calcul la somme des cellules A2 à A9 et met le résultat en C11
    Range("C11").FormulaLocal = "=SOMME(A2:A9)"
End Sub

Dès que j'ai 5 minutes, je commente les quelques lignes qui peuvent l'être et je te mets le fichier
A+

 

[Jack2]

Re : macro qui fait la somme decellule

Re bonjour,

Ci-joint le fichier avec quelques commentaires

A+

 

[manpower]

Re : macro qui fait la somme decellule

mexi, excuse moi j'avais bougéé un peu.je verifi et je te tient informé