Somme à répéter dans plusieurs colonnes

[Thalie71]

Bonjour,

je parcours le forum réguliérement, aujourd'hui je ne trouve pas de solution à mon problème dans les différents posts:

J'ai plusieurs fichiers Excel, correspondant chacun à une succursale déterminée, dans chaque fichier, je désire, par macro, faire l'addition de 2 lignes, toujours en position 8 et 9, mais sur un nombre variables de colonnes (voir PJ).

J'ai réussi à additionner la 1ére colonne mais je n'arrive pas à l'étendre aux autres colonnes...

DAns un second temps, je souhaiterais masquer les colonnes où la somme est nulle.

Merci d'avance de vos conseils.

 

[Fred0o]

Re : Somme à répéter dans plusieurs colonnes

Bonjour Thlie71 et bienvenue sur le forum,

Tu peux essayer ce code :

Sub Sommer_Colonne()
    Dim i As Integer
    For i = 2 To [IV8].End(xlToLeft).Column
        Cells(10, i) = Cells(8, i) + Cells(9, i)
        If Cells(10, i) = 0 Then Cells(10, i).EntireColumn.Hidden = True
    Next
End Sub

A+

 

[natorp]

Re : Somme à répéter dans plusieurs colonnes

Bjr Thalie

Quelles est la condition pour la somme ? tu écris "selon les fichiers (ici de B à BG)", selon quel critère ?

Cordialement, Gérard

 

[Thalie71]

Re : Somme à répéter dans plusieurs colonnes

impeccable!! quelle efficacité!!
merci beaucoup et bon appétit

Nartop, la condition est que les cellules des lignes 8 et 9 ne soient pas vides.