Compteur incrémenté après filtre

Bonjour,

J'ai fait un filtre avancé via VBA.

Je voulais faire une macro pour incrémenter une série de chiffres (1, 2, 3, 4, ...) pour chaque ligne non masquée.

J'avais tenté avec une ancienne macro, mais ça ne fonctionne pas.

En résumé :

A1 si visible alors 1 sinon ""

A2 Si visible alors 2 sauf si A1="" dans ce cas 1

et ainsi de suite.

Il n'y a bien sûr rien d'affiché dans ma colonne A mais des éléments dans les autres colonnes.

J'aurai souhaité un code ce cet acabit :

Sub Compteur()
    Application.ScreenUpdating = False

    For Each ws In Sheets
        If ws.Name <> "Accueil" And ws.Name <> "Tableau de saisie" And ws.Name <> "Catalogue" And ws.Name <> "Tableau de données" Then
            With ws
                For Each ele In .UsedRange.Offset(1, 0).Columns(1).SpecialCells(xlCellTypeVisible)
                    If ele.Offset(0, 1) <> "" Then
                        ele.FormulaR1C1 = Compteur + 1
                        ele.NumberFormat = "000"
                        Compteur = Compteur + 1
                    End If
                Next ele
            End With
        End If
    Next ws

    Sheets("Accueil").Select
    Application.ScreenUpdating = True
End Sub

cdlt

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Salut,

si mes explications avaient été plus précises, cela aurait été parfait.

globalement c'est génial.

sauf que j'ai oublié de préciser que ma première ligne est une ligne de titre ^^'

ex :

N°

001

002

003

D'ailleurs, sais-tu si je peux rajouter

NumberFormat = "000"

cdlt

Bonjour

Il serait préférable que tu joignes ton fichier, même si tu modifies des données sensibles.

Bye !

Salut,

ok, le voici :

https://www.cjoint.com/c/HBruIfT56Yb

Pour faciliter ta navigation, le test s'effectue dans l'onglet "SVM" et pour la macro, elle est dans le module 9

désolé pour la taille relative du fichier.

cdlt

P.S. : je n'ai rien à cacher sur ce fichier

Nouvelle version.

Et si tu veux déclencher la macro sur une autre feuille, tu actives cette feuille et tu tapes simultanément sur les touches Ctrl et m (en minuscule).

Bye !

c'est excellent !!!

je te remercie beaucoup

cdlt