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
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?
A voir également:

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
en fait c'est un code vba pour faire tout ça que je cherche
0
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
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à
0
Merci bien j'essaierai le code demain samedi et je t'informerai
0
bonjour Le Pivert
j'ai essayé le code mais malheureusement ça ne marche pas. je joins le fichier afin que tu puisse me dire quel code placer dans le commandbutton1 pour que le filtre et la numerotation se fasse simultanement.merci
0
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
je joins le fichier

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
0