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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 4 mars 2018 à 10:13
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 4 mars 2018 à 10:13
bonjour
voici mon probleme: je copie ma feuille 1 que je filtre et colle en feuille 2. j'aimerais numeroter en colonne A de la feuille2 les lignes visibles apres le filtre et non les lignes masquées. quelqu'un peut -il m'aider?
voici mon probleme: je copie ma feuille 1 que je filtre et colle en feuille 2. j'aimerais numeroter en colonne A de la feuille2 les lignes visibles apres le filtre et non les lignes masquées. quelqu'un peut -il m'aider?
A voir également:
- Excel vba numérotation automatique des lignes
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Si et excel - Guide
- Message automatique thunderbird - 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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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