Numerotation automatique de lignes visibles

Blacklaz Messages postés 2 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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?

2 réponses

  1. Blacklaz Messages postés 2 Statut Membre
     
    en fait c'est un code vba pour faire tout ça que je cherche
    0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. Blacklaz
       
      Merci bien j'essaierai le code demain samedi et je t'informerai
      0
    2. blacklaz
       
      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
    3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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