Automatiser somme en VBA

[loulou35]

Bonjour à tous,

Je viens vers vous car je bute sur une macro VBA. J'ai un tableau dont la longueur varie car chaque mois vient s'ajouter une nouvelle colonne.

Je souhaite ajouter automatiquement après la derniere colonne remplie une colonne Total qui somme pour chaque ligne depuis la colonne D (Mois de Janvier) jusqu'a la derniere cellule remplie de la ligne.

Quelqu'un a une idée?

J'ai réussi à renvoyer l'adresse de la derniere colonne remplie, mais je n'arrive pas à automatiser le calcul des totaux (etant novice je bute sur les variables dans les range).

Please help me!

Loulou35

 

[R@chid]

Re : Automatiser somme en VBA

Bonsoir,
voir si cette solution par formule peux t'aider??
Amicalement

 

[loulou35]

Re : Automatiser somme en VBA

Bonsoir,

J'apprécie ta réponse Rachid, mais je cherche vraiment à automatiser cela avec du vba et ma colonne Total doit venir s'ajouter automatique sur la premiere colonne vide (sachant que cette colonne est variable) et quelle fasse la somme depuis la colonne D (Mois de janvier) jusqu'a la derniere colonne remplie.

Donc pour mois il y a déjà une variable: la colonne Total qui bouge.

Loulou35

 

[R@chid]

Re : Automatiser somme en VBA

Bonsoir,
Tu peux faire simple si tu veux dans la colonne Total ==> =SOMME(D2:N2), et insérer la colonne entre la colonne du dernier mois et la colonne du Total
Amicalement

 

[loulou35]

Re : Automatiser somme en VBA

Oui, je sais. Ce sera mon dernier recours.

Merci.

Loulou35

 

[laurent950]

Re : Automatiser somme en VBA

Bonsoir,

Vous avez le debut de votre code(enfin tous votre code) je le corige

Sub somme()
col = Range("IV1").End(xlToLeft).Column - 1
der = Range("A65536").End(xlUp).Row

For i = 2 To der
Cells(i, col + 1) = Application.Sum(Range(Cells(i, 4), Cells(i, col)))
Next i

End Sub

launent

 

[R@chid]

Re : Automatiser somme en VBA

Bonsoir Loulou,
Bonsoir Laurent950,
ou bien pourquoi pas avec un TCD???
Amicalement

 

[loulou35]

Re : Automatiser somme en VBA

Bonjour Laurent950,

Je n'ai pas a proprement parler de code pour cette macro, j'ai crée une sélect case pour trouver automatiquement la première colonne vide mais je ne suis pas arrive au bout. Si besoin je te le transfere.

Loulou35

 

[laurent950]

Re : Automatiser somme en VBA

Bonsoir Loulou,
Bonsoir Laurent950,

C'est fait en poste #6

laurent

 

[loulou35]

Re : Automatiser somme en VBA

Merci Laurent, je teste ça demain, je donne des news.

Bonne fin de soirée.
Loulou

 

[loulou35]

Re : Automatiser somme en VBA

parfait! ça fonctionne! mille merci

 

[Staple1600]

Re : Automatiser somme en VBA

Bonsoir à tous

Une autre façon (sans boucle)

Sub sommeBis()
Dim col%, der&
col = [A1].CurrentRegion.Columns.Count: der = [A65536].End(xlUp).Row
Cells(1, col).Offset(, 1).Resize(der).FormulaR1C1 = "=SUM(RC[-" & col & "]:RC[-1])"
End Sub