XL 2016 faire un sous total par colonne masqué

Efgé

XLDnaute Barbatruc

• 28 Juillet 2021

• #2

Bonjour Hervé , le fil, le forum

Une proposition en changeant le deuxième argument (numéro de ligne ou se trouvent les en-têtes de colonnes):

VB:

Public Function soustotalhm1(plage_a_sommer As Range, Ligne As Long, Arg As Range)
Dim c As Range
    For Each c In plage_a_sommer
        If Columns(c.Column).Hidden = False Then
            If Cells(Ligne, c.Column) = Arg Then
                Total = Total + c
            End If
        End If
    Next c
soustotalhm1 = Total
End Function

Le problème est qu'Excel ne recalcule pas les formules quand on masque des colonnes...

Cordialement

 

Pièces jointes

• Herve2.xlsm

  22.6 KB · Affichages: 10

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Juillet 2021

• #3

Bonjour Hervé, Efgé,

Efgé à dit:

Le problème est qu'Excel ne recalcule pas les formules quand on masque des colonnes...

Cliquez pour agrandir...

Où as-tu vu ça Efgé ? Voyez le fichier joint.

A+

 

Pièces jointes

• Classeur(1).xlsm

  15.4 KB · Affichages: 10

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Juillet 2021

• #4

Re Bonjour Job
Je ne dit pas que les formules ne s'actualisent pas dans les colonnes masquées, mais que le fait de masquer une ou des colonnes n'amène pas Excel à recalculer l'onglet.
Même en ajoutant à ma proposition de ce matin

VB:

Application.Volatile

Reprends l'exemple et masque ou affiche des colonnes, les formules ne s'actualisent pas

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Juillet 2021

• #5

La seule fonction qui se recalcule au masquage est SOUS.TOTAL.

Mais seulement au masquage de lignes, pas de colonnes.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 2 Août 2021

• #6

salut à tous

désolé pour ma réponse tardive

merci pour vos retours, ceci fonctionne, hélas, il est vrai que le volatile ne fonctionne pas.

je masque les colonnes par un code et applique donc un application.calculate en fin de procédure.

mais même ceci, ne fonctionne pas toujours (cas complexe).

seriez vous si il est possible d'avoir une fonction pour ce job, genre sommeprod et sous.total (109.....) ?

a plus

 

Vote positif 0 Vote négatif