XL 2010 Erreur masquage lignes avec Select

Orson83

XLDnaute Impliqué
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
 

Pièces jointes

  • Cacher des lignes.xlsm
    22.6 KB · Affichages: 10
Solution
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

Orson83

XLDnaute Impliqué
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.
 

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
293

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG