Me et ligne masquées -VBA excel
Fermé
Iama
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
-
16 nov. 2018 à 13:28
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 - 5 janv. 2019 à 11:28
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 - 5 janv. 2019 à 11:28
A voir également:
- Me et ligne masquées -VBA excel
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Formule excel - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
16 nov. 2018 à 16:04
16 nov. 2018 à 16:04
bonjour,
en vba comme ceci:
en vba comme ceci:
Sub lignemasque()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim derligne As Long
Dim i As Integer
derligne = Range("A65536").End(xlUp).Row 'dernière ligne A
Set FL1 = Worksheets("Sommaire") 'a adapter le nom de la feuille
NoCol = 1 'lecture de la colonne 1
For NoLig = 1 To derligne
Var = FL1.Cells(NoLig, NoCol)
If Rows(NoLig & ":" & NoLig).EntireRow.Hidden = True Then
MsgBox "ligne: " & NoLig
i = i + 1
End If
Next
Set FL1 = Nothing
MsgBox "Nombre de lignes masquées: " & i
End Sub
5 janv. 2019 à 11:28
Je vais pouvoir continuer la macro.
Excuse de te répondre seulement maintenant, je viens de lire ta réponse aujourd'hui.