XL 2013 (RESOLU) Affichage et Masquage des lignes en fonction de la valeur numérique dans une cellule.

sylvanu à dit:

Bonjour Chaelie,
Un essai en PJ avec :

VB:

Sub Worksheet_Calculate()
    If [AM6].Value = 10 Then            ' Adapter 10 avec la valeur désirée pour masquer les lignes
        Rows("17:47").Hidden = True
    Else
        Rows("17:47").Hidden = False
    End If
End Sub

Cliquez pour agrandir...

chaelie2015 à dit:

Je souhaite automatiser l'affichage et la masquage des lignes de A17 à A47 (feuilleBest) en fonction de la valeur résultante d'une formule dans la cellule AM6, qui est un chiffre.

Cliquez pour agrandir...

sylvanu à dit:

Mais au vu de votre fichier, comme AM6 change sur changement de valeur de AL5 AL6, Cette PJ est plus intéressante :

Code:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [AL5:AL6]) Is Nothing Then
        N = [AM6].Value
        Application.EnableEvents = False
        If N > 0 And N <= 31 Then
            Application.ScreenUpdating = False
            L = 17 + N
            Rows("17:48").Hidden = False
            Rows(L & ":48").Hidden = True
        Else
            Rows("17:48").Hidden = False
        End If
    End If
Fin:
Application.EnableEvents = True
End Sub

car Worksheet_Calculate s'exécutera à chaque recalcul dans la feuille, alors que Worksheet_Change ne s'exécutera que lors de changement dans AL5:AL6.
D'où l'intérêt des fichiers test représentatif, cela permet de mieux optimiser les solutions.

Cliquez pour agrandir...

sylvanu à dit:

Comment masquer vous des lignes avec une MFC ?

Cliquez pour agrandir...