Automatiser somme en VBA

R@chid

XLDnaute Barbatruc

Supporter XLD

• 26 Novembre 2012

• #2

Re : Automatiser somme en VBA

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

 

Pièces jointes

• ExempleSomme.xlsx

  9.9 KB · Affichages: 65
• ExempleSomme.xlsx

  9.9 KB · Affichages: 75
• ExempleSomme.xlsx

  9.9 KB · Affichages: 76

Vote positif 0 Vote négatif

L

loulou35

XLDnaute Nouveau

• 26 Novembre 2012

• #3

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 26 Novembre 2012

• #4

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

 

Vote positif 0 Vote négatif

L

loulou35

XLDnaute Nouveau

• 26 Novembre 2012

• #5

Re : Automatiser somme en VBA

Oui, je sais. Ce sera mon dernier recours.

Merci.

Loulou35

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 26 Novembre 2012

• #6

Re : Automatiser somme en VBA

Bonsoir,

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

VB:

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

 

Dernière édition: 26 Novembre 2012

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 26 Novembre 2012

• #7

Re : Automatiser somme en VBA

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

 

Pièces jointes

• ExempleSomme.xlsx

  14 KB · Affichages: 54
• ExempleSomme.xlsx

  14 KB · Affichages: 62
• ExempleSomme.xlsx

  14 KB · Affichages: 63

Vote positif 0 Vote négatif

L

loulou35

XLDnaute Nouveau

• 26 Novembre 2012

• #8

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 26 Novembre 2012

• #9

Re : Automatiser somme en VBA

Bonsoir Loulou,
Bonsoir Laurent950,

C'est fait en poste #6

laurent

 

Vote positif 0 Vote négatif

L

loulou35

XLDnaute Nouveau

• 26 Novembre 2012

• #10

Re : Automatiser somme en VBA

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

Bonne fin de soirée.
Loulou

 

Vote positif 0 Vote négatif

L

loulou35

XLDnaute Nouveau

• 26 Novembre 2012

• #11

Re : Automatiser somme en VBA

parfait! ça fonctionne! mille merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Novembre 2012

• #12

Re : Automatiser somme en VBA

Bonsoir à tous

Une autre façon (sans boucle)

Code:

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

 

Vote positif 0 Vote négatif