Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas ?

[evolve]

Bonjour, j'aimerais obtenir la confirmation ou solution sur le sujet de l'incrémentation sous Excel 2010. Car j'essaie d'incrémenter une série de numéro automatiquement en tirant le coin d'une cellule vers le bas 1 2 3 4... mais lorsqu'un filtre est appliqué cela ne fonctionne pas. L'incrémentation ne s'applique pas, seul le numéro se copie 1 1 1 1 sans incrémentation. Pouvez-vous m'aider svp j'apprécierais beaucoup... d'avance MERCI !

 

[Patrice33740]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Bonjour,

Effaces le filtre, incrémentes la série et rétablis le filtre.

 

[evolve]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Merci bien mais le but de ce que je veux faire est d’appliquer une incrémentation au travers des autres numéros cachés par le filtre. Une fois le filtre appliqué, je veux faire défiler une incrémentation de numéro sur les cellules à l'écran vers le bas. Lorsque le filtre ne sera plus appliqué, les numéros de l'incrémentation seront évidemment déployé au travers d'autres numéros déjà présent avant le filtre. Pas facile d'être claire sur ce sujet. Merci pour votre réponse.

 

[evolve]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Voici un fichier d'exemple. Est-ce possible d'incrémenter une série de numéro à la colonne "J" avec le filtre déjà appliqué de couleur orange ? Merci bien !

 

[Patrice33740]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Au lieu de filtrer, fais un tri (par couleur)

 

[evolve]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Merci pour votre aide. Je dois malheureusement garder l'ordre tel quel des données, je ne peux donc pas trier car je ne pourrai pas retrouver l'ordre initial/original des données. Les données doivent retrouver leur place original après l'incrémentation (filtre retiré) c'est primordiale dans le cas présent.

 

[DoubleZero]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Bonjour à toutes et à tous,

Comme ceci ?

Option Explicit
Sub Incrémenter()
    Dim c As Range, compteur
    Application.ScreenUpdating = 0
    compteur = 1
    For Each c In Range("a2:a" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        c.Offset(, 9) = compteur
        compteur = compteur + 1
    Next
    Application.ScreenUpdating = -1
End Sub

A bientôt

 

[evolve]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Excellent ! C'est exactement cela ... Je vous en remercie beaucoup et tous les autres qui ont pris le temps de m'aider!!!!

 

[Victor21]

Re : Incrémenter une série de numéro lorsqu'un filtre est appliqué...possible ou pas

Bonjour evolve, lézamis.

Sous réserve d'avoir compris la problématique, par formule, filtre désactivé, en J2, à recopier vers le bas :

=AGREGAT(3;1;A$2:A2)

, puis appliquer les filtres désirés.