Numerotation automatique de lignes visibles
Fermé
Blacklaz
Messages postés
2
Date d'inscription
dimanche 19 novembre 2017
Statut
Membre
Dernière intervention
1 mars 2018
-
1 mars 2018 à 09:38
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 4 mars 2018 à 10:13
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 4 mars 2018 à 10:13
A voir également:
- Excel vba numérotation automatique des lignes
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Réponse automatique outlook - Guide
- Figer une ligne excel - Guide
2 réponses
Blacklaz
Messages postés
2
Date d'inscription
dimanche 19 novembre 2017
Statut
Membre
Dernière intervention
1 mars 2018
1 mars 2018 à 09:47
1 mars 2018 à 09:47
en fait c'est un code vba pour faire tout ça que je cherche
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
1 mars 2018 à 12:09
1 mars 2018 à 12:09
Bonjour,
Voir ici
https://www.excel-downloads.com/threads/numerotation-de-ligne-visible.129227/
Tu colles la fonction dans un module et ensuite tu mets ta formule dans la colonne et tu tires vers le bas
Voilà
Voir ici
https://www.excel-downloads.com/threads/numerotation-de-ligne-visible.129227/
Tu colles la fonction dans un module et ensuite tu mets ta formule dans la colonne et tu tires vers le bas
Voilà
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
4 mars 2018 à 10:13
4 mars 2018 à 10:13
je joins le fichier
ya pas de fichier à télécharger
c'est simple:
Tu colles la fonction dans un module :
Ensuite tu mets ceci dans un bouton:
Tu vas sur ta feuille tu sélectionnes A1 et sur la croix en bas droite de la cellule tu tires vers le bas
Voilà
@+ Le Pivert
ya pas de fichier à télécharger
c'est simple:
Tu colles la fonction dans un module :
Public Function LigneVisible(cellule As Range) As Long
Application.Volatile
Dim i As Long
For i = cellule(1, 1).Row - 1 To 0 Step -1
If cellule(1, 1).Offset(-i, 0).EntireRow.Hidden = False Then LigneVisible = LigneVisible + 1
Next i
End Function
Ensuite tu mets ceci dans un bouton:
Option Explicit
Private Sub CommandButton1_Click()
Range("A1").Value = "=LigneVisible(A1)" 'a adapter
End Sub
Tu vas sur ta feuille tu sélectionnes A1 et sur la croix en bas droite de la cellule tu tires vers le bas
Voilà
@+ Le Pivert