Copier/coller la cellule du dessus en mode filtre

Bonjour Forum !

Il m’arrive souvent de coller dans une cellule le contenu, le format et la MFC de la cellule située juste au-dessous avec une macro :

Sub Edition_Coller_Dito_Cellule_au_dessus()
    Selection.FillDown
End Sub

J’aimerais modifier cette macro (mais ne sais pas comment) pour que, quand un filtre est activé, la cellule copiée soit la cellule visible située au-dessus et non la cellule réellement située au-dessus dans la feuille.

Le top serait d’avoir une seule et même macro qui copie la cellule (visible) située au-dessus, qu’un filtre soit activé ou pas.

Quelqu’un peut-il m’aider ?

(j’espère avoir été clair)

Bonjour gloub,

Un essai avec ceci :

Sub Edition_Coller_Dito_Cellule_au_dessus()
    Dim rg As Range

    Set rg = Selection
    'on décale d'une ligne vers le haut jusqu'à ce que la ligne soit visible
    Do Until rg.Offset(-1, 0).EntireRow.Hidden = False
        Set rg = rg.Offset(-1, 0)
    Loop
    'on copy la ligne visible
    rg.Offset(-1, 0).Copy Selection
End Sub

A+

Grand Chaman Excel, tu es un Grand Chaman Excel !

Merci.

Quelqu'un pourrait-il m'aider pour perfectionner encore cette macro :

actuellement, le code de Grand Chaman Excel permet de recopier dans la cellule active la cellule visible située juste au-dessus.

Ce serait encore plus top si la macro recopiait cette cellule dans toute la plage active

Quelqu'un saurait comment procéder ?

Merci !

...ma question n'inspire personne ?

Bonjour,

Si j'ai bien compris, qqchose du genre peut-être :

Sub Edition_Coller_Dito_Cellule_au_dessus()
    Dim rg As Range, rg2 As Range

    Set rg = Selection.Resize(1, Selection.Columns.Count)
    Set rg2 = Selection
    'on décale d'une ligne vers le haut jusqu'à ce que la ligne soit visible
   Do Until rg.Offset(-1, 0).EntireRow.Hidden = False
        Set rg = rg.Offset(-1, 0)
    Loop
    'on copy la ligne visible
   rg.Offset(-1, 0).Copy rg2
End Sub

A+

Tu as tout compris, c'est super.

Merci encore !!!