XL 2016 Numérotation + 1 des lignes filtrées

[Usine à gaz]

Bonjour à toutes et à tous,

Toujours dans mon usine à gaz, je cherche à améliorer mon boulot et je suis devant un nouveau souci que je ne parviens pas à solutionner malgré recherches et tentatives.
Fichier test joint :
DANS LA FEUILLE "Filtre 2critères"
Pour l'exemple, les lignes sont filtrées sur le mot "Répondeur"
la boucle affiche le n° de ligne que j'ai mis en colonne "C" pour l'exemple
Mon besoin :
pour savoir ou j'en suis de mes appels, , "au coup d'œil", j'aimerais voir à quel nombre j'en suis
C'est pourquoi, j'ai besoin que la boucle numérote les lignes filtrée comme en colonne "E"

Code boucle :

Sub boucle_while()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Dim numero As Integer
    numero = 1 'Numéro de départ (correspond ici au n° de ligne et au n° de numérotation)
    While numero <= 223 'TANT QUE la variable numero est <= 12, la boucle est répétée
       Cells(numero, 3) = numero 'Numérotation
       numero = numero + 1 'Le numéro est augmenté de 1 à chaque boucle
    Wend
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Auriez-vous la solution ?
Avec mes remerciements pour votre aide si précieuse,
Je vous souhaite à toutes et à tous une belle fin de journée,
Amicalement,
arthour973,

 

[zebanx]

Bonjour Arthour973

Une fonction personnalisée retrouvée sur le net pour voir les numéros apparaitre sur les lignes filtrées.
Tu dois pouvoir l'insérer dans ton fichier.

@+

 

[Usine à gaz]

Bonsoir zebanx,

Merci pour m'avoir répondu et ça marche bien
Juste un petit souci mais gérable :
J'ai dans mon fichier exemple 4 ligne de titres et en ligne 5 le calcul ne commence pas par 1.
ça commence à 3 et je ne comprends pas pkoi.
Pour que ce soit bon, je dois mettre ta formule avec -2
"=LigneVisible(A5)-2"
Mais c'est gérable.

je te remercie pour cette fonction.
Bonne fin de journée,
amicalement,
art(hour973

 

[zebanx]

Re-

Regarde STP le code sur une fonction LVID qui part de la 5ième ligne uniquement.

@+

 

[Usine à gaz]

Re-

Merci de vouloir améliorer le code mais le 1er est le mieux car avec "-2" dans la formule, ça le fait
Le nouveau code donne 1 ou 2 doublons de n°.
T'embêtes pas. C'est bon comme ça.
Un grand merci à toi.
Bonne fin de soirée,
arthour973

 

[zebanx]

Je n'avais pas vu, désolé.
On va conserver ta proposition. Bonne soirée.

 

[Usine à gaz]

Bonjour zebanx, le Forum,

J'ai réfléchi à l'intégration de ta fonction dans mon lourd fichier de travail.

Je confirme que ça fonctionne avec le "-2" en bout de formule
Toutefois, sur plus de 50.000 lignes, les formules alourdissent trop mon fichier.
Je peux faire en sorte de n'enregistrer que les valeurs mais cela alourdi aussi mes codes.

J'ai donc continué à chercher cette nuit LOL et j'ai fini par trouver.

En fait, comme dans toutes nos recherches, il est souvent difficile de trouver les sujets traités sur le net car chacun donne un nom différent pour une même recherche et on tombe souvent sur d'autres sujets. Mais en multipliant les titres de recherches .... on fini par y arriver.

Je reviens à notre ou à mon problème, le but étant de numéroter les lignes visibles après filtrage de 1 et en suivant jusqu'à la fin des lignes visibles.
J'ai donc fini par trouver et pour un ténor du vba, ça semble simple LOL.

Ici : https://www.developpez.net/forums/d.../macros-vba-excel/numerotation-ligne-visible/

et voici un fichier en pièce jointe qui pourra être utile à d'autres.

Merci zebanx pour m'avoir aidé et fourni des fonctions que je conserve précieusement et qui pourront m'être utiles pour d'autres besoins

Bonne journée à toutes et à tous,
amicalement,
arthour973,

 

[job75]

Bonjour Lionel, zebanx,

Quand on veut compter avec des filtres la fonction SOUS.TOTAL est incontournable.

Effacer A3 pour dé-filtrer et entrer en E5 la formule =SOUS.TOTAL(3;A$5:A5) à recopier vers le bas.

A+

 

[Usine à gaz]

Bonjour Gérard,

Merci d'être encore et de t'intéresser à mes besoins.

A moins que je n'ai encore rien compris (ce qui est fort possible LOL), je ne cherche pas à faire un total utilisant sous.total

J'ai juste besoin que les lignes visibles après filtrage soient numérotées de 1 à suivre en colonne A et c'est, je crois, ce que le code fait dans mon fichier joint

Amicalement,
Lionel,

 

[job75]

A moins que je n'ai encore rien compris (ce qui est fort possible LOL)

Bingo !!! Voir le fichier joint et les formules SOUS.TOTAL sur la plage E5:E229, pas besoin de VBA pour numéroter les lignes visibles...

 

[Usine à gaz]

Re-Bonjour Gérard si perspicace et qui a bien raison.

Effectivement, ça marche très bien
Un grand merci encore une fois.
Lionel,