Autres (RESOLU)Afficher et masquer par USF

chaelie2015

XLDnaute Accro
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

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

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson