Autres (RESOLU)Afficher et masquer par USF

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour