Comment améliorer une macro créé avec l'enregistreur?

Question

Bonjour,

La macro que j’ai créé avec l’enregistreur et divers codes sur le net fonctionne très bien mais je trouve qu’elle est un peu trop longue.
Est-il possible d'améliorer ou simplifier les codes de cette macro du fichier ci-dessous?

https://www.cjoint.com/c/IFCpJyVhKps

Merci 
Geoffroy

f894009 · Answer

Bonjour,

Filtre pour copie ligne(s) filtree(s) et cadrillage
Peut-être plus besoin de la procedure suppression lignes vides
Faites un test avec code et si ok, intégrez le ou a defaut je le ferai. Pour le reste ai pas regarde en detail, mais je peux
'Sub Fitre_Recup_Info(ns)
Sub Fitre_Recup_Info()
    ns = 26             ' a passer en parametre
    With Worksheets("Feuil1")       'adaptez nom de feuille
        .Range("A2:M2").AutoFilter  'filtre en place
        With .Range("$A$2:$M$49")     'plage de cellules utilisees
            .AutoFilter Field:=13, Criteria1:=ns    'filtre Num semaine
            '--------- ajouter code si pas de lignes filtrees -----------------
            If .Cells(3, 13) <> "" Then      'cellule colonne filtre
                Worksheets("Feuil1").Range("A1:M1").Copy Worksheets("feuil5").Range("A1")
                Set Plage_ST = .Cells(1, 1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible) 'plage de cellules sans les entetes
                Plage_ST.EntireRow.Copy Worksheets("feuil5").Range("A2")
            Else
                MsgBox ("Mot introuvable !")
            End If
            '------------------------------------------------------------------
        End With
        .Range("A2:M2").AutoFilter      'enleve filtre
    End With
End Sub

Comment améliorer une macro créé avec l'enregistreur?

1 réponse

Newsletters