libellule85
XLDnaute Accro
Bonsoir le forum,
Ce message n'est pas une demande d'aide mais simplement une solution (un grand merci à Banzai64 pour son aide) pour les personnes que celà intéresseraient.
Trouvez ci-dessous les codes pour pouvoir Masquer et Afficher des Lignes ou des plages de lignes.
La demande des n° de lignes se fait via une textbox
Si plusieurs lignes mettre une virgule, pour une plage de lignes mettre -
Pour Masquer :
Pour Afficher les lignes masquer :
Ci-joint un fichier se sera plus parlant
Bonne soirée à vous tous
A bientôt
Ce message n'est pas une demande d'aide mais simplement une solution (un grand merci à Banzai64 pour son aide) pour les personnes que celà intéresseraient.
Trouvez ci-dessous les codes pour pouvoir Masquer et Afficher des Lignes ou des plages de lignes.
La demande des n° de lignes se fait via une textbox
Si plusieurs lignes mettre une virgule, pour une plage de lignes mettre -
Pour Masquer :
Code:
Private Sub CommandButton1_Click()
Dim sL$, tL, i%
sL = TextBox1
If sL = "" Then Exit Sub
If InStr(1, sL, "-") > 0 Then
tL = Split(sL, "-")
If Val(tL(0)) > 0 And Val(tL(1)) > 0 Then
Range(Cells(Val(tL(0)), 1), Cells(Val(tL(1)),
1)).EntireRow.Hidden = True
End If
Else
tL = Split(sL, ",")
For i = 0 To UBound(tL)
On Error Resume Next
Rows(tL(i)).Hidden = True
On Error GoTo 0
Next
End If
Unload Me
End Sub
Pour Afficher les lignes masquer :
Code:
Private Sub CommandButton1_Click()
Dim sL$, tL, i%
sL = TextBox1
If sL = "" Then Exit Sub
If InStr(1, sL, "-") > 0 Then
tL = Split(sL, "-")
If Val(tL(0)) > 0 And Val(tL(1)) > 0 Then
Range(Cells(Val(tL(0)), 1), Cells(Val(tL(1)),
1)).EntireRow.Hidden = False
End If
Else
tL = Split(sL, ",")
For i = 0 To UBound(tL)
On Error Resume Next
Rows(tL(i)).Hidden = False
On Error GoTo 0
Next
End If
Unload Me
End Sub
Ci-joint un fichier se sera plus parlant
Bonne soirée à vous tous
A bientôt