Autres (RESOLU)Afficher et masquer par USF

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Février 2021

• #2

Bonsoir Chaelie,
Un essai en PJ avec :

VB:

Sub Demasquer()
    Application.ScreenUpdating = False
    T = Array(0, 7, 25, 43, 61, 79, 97, 115)
    R = InputBox("Combien de lignes à démasquer ?", vbYesNo)
    If IsNumeric(R) Then
        If R > 7 Then R = 7
        For L = 1 To R
            Cells(T(L), 1).EntireRow.Hidden = False
        Next L
    End If
End Sub
Sub Masquer()
    Application.ScreenUpdating = False
    T = Array(0, 7, 25, 43, 61, 79, 97, 115)
    For L = 1 To 7
        Cells(T(L), 1).EntireRow.Hidden = True
    Next L
End Sub

 

Pièces jointes

• DémasquerLignes.xlsm

  15.1 KB · Affichages: 10

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 13 Février 2021

• #3

Bonsoir sylvanu
Merci pour la proposition, c'est parfait, mais je souhaiterai la faire par USF comme indiqué dans mon fichier.
Merci par avance

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Février 2021

• #4

Quel intérêt d'utiliser un USF pour ça ?
Un nouvel essai en PJ avec un USF.

 

Pièces jointes

• DémasquerLignes V2.xlsm

  18.7 KB · Affichages: 4

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 13 Février 2021

• #5

Re
merci pour la réponse , mais si je change la valeur dans comboBox par exemple de 4 a 2 les lignes ne se masquent pas ?
a+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Février 2021

• #6

On ne peut pas inventer les spécifications. Relisez votre post #1;
En PJ c'est rectifié. Il suffit de tout masquer avant de démasquer.

 

Pièces jointes

• DémasquerLignes V3.xlsm

  18.8 KB · Affichages: 5

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 13 Février 2021

• #7

Bonsoir
Merci c'est parfait, souci résolu.
Bonne nuit.

 

Vote positif 0 Vote négatif