Autres (RESOLU)Afficher et masquer par USF

[chaelie2015]

Bonsoir Forum
je chercher un code qui fonctionne de cet manière:
1. masquer les lignes (par défaut) 7, 25, 43, 61, 79, 97, 115

2. afficher un message sous forme d'un USF ("Combien de projet est programmé pour "&[A1] ?) avec une zone pour saisir le nombre entre 1 et 7
3. afficher seulement les lignes selon la valeur saisi
si 1 afficher 7
si 2 afficher 7 et 25 ... etc
Merci

 

[sylvanu]

Bonsoir Chaelie,
Un essai en PJ avec :

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

 

[chaelie2015]

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

 

[sylvanu]

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

 

[chaelie2015]

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+

 

[sylvanu]

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.

 

[chaelie2015]

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