fonction somme en VBA

[Alex]

Bonjour

je voudrais faire la fonction somme en vba
[=sum(b2:af2)] ca ca marche
mais je voudrais pouvoir faire une boucle pour appliquer cette fonction a toutes mes lignes
je vois pas comment faire avec un offset? avec un truc du genre "=SUM(b"&k&":af"&k&")
mais jy arrive pas

S'il vous plait ... aidez moi

Merci d'avance

 

[Bernard]

Bonjour Alex

Une macro ne peux vraiment être bâtie que sur du concret !

Fais donc l'effort de mettre sur le fil un exemple du fichier qui te pose problème.

Cordialement

Bernard

 

[Lord Nelson]

Salut,
Voici une suggestion :

Sub Sommes()
Dim CL As Range
Range("AG2:AG22").Select
For Each CL In Selection
CL.FormulaR1C1 = "=SUM(RC[-31]:RC[-1])"
Next
End Sub

à adapter selon l'endroit où tu veux placer les formules.
A+
LN

 

[Alex]

merci
mais ca ne marche toujours pas


j'ai fais la fonction : [=SUM(b2:af2)]
mais je ne sais pas comment faire pour la faire boucler réaliser pour (b3:af3,b4:af4...)


voila si c'est peut etre plus explicite

 

[Lord Nelson]

Salut Alex,
Peux-tu préciser où tu dois faire apparaître les sommes.
Le code que je t'ai envoyé marche pour un total en AG2, AG3...etc
Si tu places les totaux en A1, A2... la formule sera :

Sub Sommes()
Dim CL As Range
Range("A2:A22").Select
For Each CL In Selection
CL.FormulaR1C1 = "=SUM(RC[+1]:RC[+31])"
Next
End Sub

A+