XL 2010 Erreur masquage lignes avec Select

job75

XLDnaute Barbatruc

• 13 Novembre 2020

• #2

Bonsoitr Tchotchodu31,

VB:

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+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Novembre 2020

• #3

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

VB:

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

C'est mieux avec :

Code:

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

 

Vote positif 0 Vote négatif

Orson83

XLDnaute Impliqué

• 13 Novembre 2020

• #4

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

VB:

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

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Novembre 2020

• #5

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

 

Pièces jointes

• Cacher des lignes (2).xlsm

  19.8 KB · Affichages: 1

Vote positif 0 Vote négatif

Orson83

XLDnaute Impliqué

• 13 Novembre 2020

• #6

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Novembre 2020

• #7

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

VB:

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

 

Pièces jointes

• Cacher des lignes (3).xlsm

  19.7 KB · Affichages: 1

Vote positif 0 Vote négatif

Solution

Orson83

XLDnaute Impliqué

• 13 Novembre 2020

• #8

sylvanu à dit:

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

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Orson83

XLDnaute Impliqué

• 14 Novembre 2020

• #9

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 :

VB:

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.

 

Vote positif 0 Vote négatif