LIGNE MASQUEE inputbox
abouziad2010
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
BONJOUR à tous
j 'ai creé un tableau sur excel ligne du A1 au A30
je voudrais savoir comment masquer des lignes d'une feuille excel (certains lignes donnés) avec input box
c'est à dire si je voudrais masqué les lignes superieur d'une valeur donnée ex : tous les lgnes sup à A24 (A24 au A30 masqués)
comment le faire en utilisant input box
et merci
j 'ai creé un tableau sur excel ligne du A1 au A30
je voudrais savoir comment masquer des lignes d'une feuille excel (certains lignes donnés) avec input box
c'est à dire si je voudrais masqué les lignes superieur d'une valeur donnée ex : tous les lgnes sup à A24 (A24 au A30 masqués)
comment le faire en utilisant input box
et merci
A voir également:
- LIGNE MASQUEE inputbox
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Apparaitre hors ligne instagram - Guide
- En ligne sur messenger alors que non ✓ - Forum Facebook
2 réponses
resolut j ai trouvé la solution
MERCI
Dim i As Integer
Dim j As Integer
Dim lig As Range
i = InputBox("Quel est le numéro de la ligne à masquer")
j = Cells.SpecialCells(xlCellTypeLastCell).Row
Rows(i & ":" & j).Select
Selection.EntireRow.Hidden = True
MERCI
Dim i As Integer
Dim j As Integer
Dim lig As Range
i = InputBox("Quel est le numéro de la ligne à masquer")
j = Cells.SpecialCells(xlCellTypeLastCell).Row
Rows(i & ":" & j).Select
Selection.EntireRow.Hidden = True
Essaies :
Option Explicit
Sub t()
Dim Rep As String
Dim N°L As Long
Dim Min As Long
Dim Max As Long
'Valeurs limites tolérées
Min = 1
Max = 30
'Demander le numèro de ligne
Do
Rep = InputBox("Numéro de ligne :")
If Rep = "" Then Exit Sub
If IsNumeric(Rep) Then
N°L = Int(CDbl(Rep))
If N°L = CDbl(Rep) And N°L >= Min And N°L <= Max Then Exit Do
End If
Loop
'Masquer les lignes
Rows(N°L & ":" & Max).Hidden = True
End Sub
