Autres Affichage par niveau ( 03 niveaux°

herve62 à dit:

Bin oui , car les lignes sont masquées donc si l'on veut refaire un autre choix impossible pour excel de le deviner car il faut re afficher et le vba ne connait pas les choix précédents, la SUb faire du Hide et ne pas faire en même temps afficher ....c'est incohérent et déjà j'ai dû ajouter un "event=false" pour effacer BA2 sinon ça boucle
et aussi raison du bouton AFFICHER
C'est peut être pas impossible ....mais du code à écrire jusqu'à ????
là de mon côté je suis allé un peu plus loin dans les items ....... c'est TRES long en code !! il faut déjà ajouter des "flags" conditionnels genre exemple : If xxxxx then x=x+1 ; puis IF x=1 then ..... , if x=2 then ..etc jusque 10 et par tableau ........reste les sous items !!!!!! on va bien arriver à 2000 lignes
Bon courage

Cliquez pour agrandir...

chaelie2015 à dit:

je vais faire le nécessaire.

Cliquez pour agrandir...

herve62 à dit:

??
Le plus simple est de faire un choix ... de se servir du résultat , puis la RAZ ( afficher) ...etc
Car je pense que le but n'est pas de faire joujou avec les choix ?

Cliquez pour agrandir...

job75 à dit:

Bonjour chaelie2015, herve62, le forum,

Voyez le fichier joint et cette macro dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n&, x$, i&, nn&
Set Target = Intersect(Target, [BA:BA], UsedRange)
If Target Is Nothing Then Exit Sub
If Target.Count > 1 Or Target(1).EntireRow.Hidden Then
    Application.EnableEvents = False 'désactive les évènements
    Application.Undo
    Application.EnableEvents = True 'réactive les évènements
    Exit Sub
End If
Target.Select
n = Abs(Int(Val(Target)))
x = Application.Trim(LCase(Cells(Target.Row, "AS"))) 'SUPPRESPACE
Application.ScreenUpdating = False
If x Like "*principal*" Then
    i = Application.Match(Application.Max([A:A]), [A:A], 0)
    i = i + Application.Match("S/TOTAL*", Cells(i + 1, 1).Resize(10000), 0)
    Rows(Target.Row + 2 & ":" & i).Hidden = True 'masque
    If n Then
        i = Application.Match(Application.Min(n, Application.Max([A:A])), [A:A], 0)
        i = i + Application.Match("S/TOTAL*", Cells(i + 1, 1).Resize(10000), 0)
        Rows(Target.Row & ":" & i).Hidden = False 'affiche
    End If
ElseIf x Like "*des item*" Then
    i = Target.Row + Application.Match("S/TOTAL*", Cells(Target.Row + 1, 1).Resize(10000), 0)
    Rows(Target.Row + 3 & ":" & i - 1).Hidden = True 'masque
    If n Then
        x = "*sous item*"
        For i = Target.Row + 1 To 10000
            If LCase(Cells(i, "AS")) Like x Then nn = nn + 1
            If nn = n + 1 Or UCase(Cells(i, 1)) Like "S/TOTAL*" Then Exit For
        Next
        Rows(Target.Row & ":" & i - 1).Hidden = False 'affiche
    End If
ElseIf x Like "*sous item*" Then
    x = "*sous item*"
    For i = Target.Row + 1 To 10000
        If LCase(Cells(i, "AS")) Like x Or UCase(Cells(i, 1)) Like "S/TOTAL*" Then Exit For
    Next
    With Rows(Target.Row + 1 & ":" & i - 1)
        .Hidden = True 'masque
        If n Then .Resize(IIf(n > .Rows.Count, .Rows.Count, n)).Hidden = False 'affiche
    End With
End If
Application.ScreenUpdating = True
End Sub

Elle se déclenche quand on modifie les valeurs en colonne BA.

Nota : quand on modifie BA2 il faut au besoin revalider les autres valeurs en colonne BA.

A+

Cliquez pour agrandir...

job75 à dit:

C'est classique, utilisez les Application.EnableEvents = False/True.

Cliquez pour agrandir...