XL 2010 Erreur masquage lignes avec Select

[Orson83]

Bonjour à tous,
Le nombre de ligne à masquer ne correspond pas à la valeur du Select quand on choisi 12 locations. En effet, les lignes 16 et 17 disparaissent.
Merci pour votre aide à la correction de la macro en feuille 1 qui est jointe à ce post.
Tchotchodu31

 

[job75]

Bonsoitr Tchotchodu31,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows("5:16").Hidden = True 'masque tout
If Val(Range("E4")) Then Rows(5).Resize(Val(Range("E4"))).Hidden = False
End Sub

A+

 

[sylvanu]

Bonsoir le fil,
Dans votre code quand x=12 alors y=17 donc il y a un problème pour :

Range(y & ":16").EntireRow.Hidden = True

C'est mieux avec :

Range(y & ":17").EntireRow.Hidden = True

 

[Orson83]

Bonsoir sylvanu,
Merci pour cette macro qui fonctionne très bien.
Concernant le code :

Range(y & ":17").EntireRow.Hidden = True

J'ai testé mais la ligne 17 diaprait.
Bonne soirée.

 

[sylvanu]

Insérer une ligne en 17, cela résout le problème.

 

[Orson83]

Insérer une ligne en 17, cela résout le problème.

Malheureusement, cela n'est pas possible.
Je vais utiliser ta macro qui est bien mieux que la précédente.
Merci encore.
Bonne soirée.
Tchotchodu31

 

[sylvanu]

Avec votre structure vous avez toujours des lignes à masquer. Mais quand vous voulez tout le tableau vous êtes coincé.
Alors faites un test :

If y < 17 Then Range(y & ":16").EntireRow.Hidden = True 'Masque des lignes

 

[Orson83]

Avec votre structure vous avez toujours des lignes à masquer. Mais quand vous voulez tout le tableau vous êtes coincé.
Alors faites un test :

If y < 17 Then Range(y & ":16").EntireRow.Hidden = True 'Masque des lignes

Effectivement, c'est beaucoup mieux.
Merci et bonne soirée.

 

[Orson83]

Bonjour,
Afin de compléter ce post, voici un complément réalisé par sylvanu, ceci est lié à la solution proposée par job75.
L'idée étant que la macro ne perturbe pas les éventuelles autres Select de la même page.
Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E37")) Is Nothing Then
        Application.ScreenUpdating = False
        Rows("38:49").Hidden = True 'masque tout
        If Val(Range("E37")) Then Rows(38).Resize(Val(Range("E37"))).Hidden = False
    End If
End Sub

Bon week-end à tous.