Afficher / Masquer Colonne selon le résultat d'un calcul (auto) Résolu/Fermé

Question

Bonjour,

Je suis actuellement entrain de créer un fichier Excel et j'aimerais qu'il soit le plus dynamique possible. J'ai une macro toute simple qui effectue la somme de plusieurs lignes et affiche ou masque des colonnes en fonctions du résultat (voir code ci-dessous).
Ce que je souhaiterais, c'est que la macro s'effectue en continue. Dès que l'on change un nombre, les colonnes se masquent ou s'affichent en fonction du résultat obtenu. 

Est-il possible de faire çà ?

Sub Somme()

    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
        If Selection > 50 Then
             Columns("E:F").Select
             Selection.EntireColumn.Hidden = True
        Else
             Columns("D:G").Select
             Selection.EntireColumn.Hidden = False
        End If
    Range("B5").Select
End Sub


Leoventuras

gbinforme · Answer

Bonjour,

En remplaçant ta macro par celle-ci cela devrait le faire :

Private Sub Worksheet_Calculate()If Application.WorksheetFunction.Sum([B1:B4].Value) > 50 Then    Columns("E:F").EntireColumn.Hidden = TrueElse    Columns("D:G").EntireColumn.Hidden = FalseEnd IfEnd Sub

Leoventuras · Answer

Merci beaucoup gbinforme ce que je cherchais !!

Afficher / Masquer Colonne selon le résultat d'un calcul (auto)

2 réponses

Discussions similaires