Somme VBA sur plusieurs colonnes

[ivan27]

Bonjour à tous,

Avec le code ci-dessous, je fais la somme de la colonne 5 de mon tableau et le résultat est renvoyé dans la cellule D17 de ma feuille "Etat".

Sub Somme()
a = [G11:X20000]
Somme = Application.Sum(Application.Index(a, , 5))
Worksheets("Etat").Range("D17").Value = Somme
End Sub

Comment modifier ce code pour obtenir la somme totale des colonnes 5, 12 et 18 ?

Merci à vous

Ivan

 

[Pierrot93]

Re : Somme VBA sur plusieurs colonnes

Bonjour,

petite remarque au passage, pas top de donner le même nom à ta procédure et à ta variable destinée à recevoir le résultat...

bon après midi
@+

 

[Pierrot93]

Re : Somme VBA sur plusieurs colonnes

Re,

un exemple ci-dessous, lettres des colonnes à adapter :

Dim n As Double
n = Application.Sum(Range("B:B,E:E,j:J"))

 

[ivan27]

Re : Somme VBA sur plusieurs colonnes

Bonsoir le Forum, Pierrot93,

Merci pour ta remarque éclairée et le code qui fonctionne bien pour des colonnes complètes.
Comment faire pour que les calculs commencent à partir de la ligne 11 ?
Cdlt,

Ivan

 

[Pierrot93]

Re : Somme VBA sur plusieurs colonnes

Bonjour,

pour des plages de cellules commencant ligne 11, àvoir ensuite quel critère pour déterminer la dernière ligne :

Dim n As Double
n = Application.Sum(Range("B11:B200,E11:E200,j11:J200"))

bonne journée
@+

 

[ivan27]

Re : Somme VBA sur plusieurs colonnes

Bonjour le forum, Pierrot93,

Cette méthode, je l'avais trouvée. Je cherchais plus un code pour sélectionner toute la colonne (comme mon premier exemple) ou jusqu'a la dernière cellule non vide.
Ivan

 

[Pierrot93]

Re : Somme VBA sur plusieurs colonnes

Re,

Range("A1", Range("A65536").End(xlUp)).Select