LIGNE MASQUEE inputbox
Fermé
abouziad2010
-
10 juin 2013 à 19:19
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 10 juin 2013 à 20:20
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 10 juin 2013 à 20:20
A voir également:
- LIGNE MASQUEE inputbox
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Apparaitre hors ligne whatsapp - Guide
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
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
10 juin 2013 à 20:20
10 juin 2013 à 20:20
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
