XL 2013 selection et copie données filtrées avec VBA

[fmaurice54]

Bonjour

Je cherche à automatiser des taches répétitives dans un fichier.
Pour cela il faut :
1. que je recopie des feuilles de manière automatique, avec des valeurs autocalculées. Ca j'ai réussi à faire tout seul
2. il faut que j'ajoute des éléments dans une table, en fonction d'éléments filtrer par macro ! Ca j'arrive pas.
Je dois pour chaque contrat dans la feuille Index, créer une ligne reprennant des données de SOURCE_MANDARIN_CONTRAT et de TABLEAU_CONTRAT dans la feuille SOURCE_REGION_CONTRAT

Voici le code utilisé :

Sub macro1()
Dim i As Integer
Dim nom As String
Dim j As Integer
Dim MaPlage As Range
Dim MaPlageCourte As Range


Set MaPlage = Sheets("SOURCE_MANDARIN_CONTRAT").Range("A:AX")
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
Set MaPlageCourte = Sheets("SOURCE_MANDARIN_CONTRAT").Range("A:E")
Set MaPlageCourte = MaPlage.SpecialCells(xlCellTypeVisible)

j = Sheets("Index").Cells(1, 3)

For i = 2 To 5
nom = Sheets("Index").Cells(i, 1)
nomcourt = Sheets("Index").Cells(i, 2)

    MaPlage.AutoFilter Field:=3, Criteria1:=nom
    Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
    Set MaPlageCourte = MaPlage.SpecialCells(xlCellTypeVisible)
    
    Sheets("TABLEAU_CONTRAT").Select                            ' ca c'est pour dupliquer mes feuilles, ca marche
    Application.CutCopyMode = False
    Sheets("TABLEAU_CONTRAT").Copy Before:=Sheets(1)            ' ca c'est pour dupliquer mes feuilles, ca marche
          Sheets("TABLEAU_CONTRAT (2)").Range("A1:g33").Select  ' ca c'est pour dupliquer mes feuilles, ca marche
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Sheets("TABLEAU_CONTRAT (2)").Name = nomcourt   ' ca c'est pour dupliquer mes feuilles, ca marche

Sheets("SOURCE_REGION_CONTRAT").Cells(i, 1) = MaPlageCourte ' ca c'est ce qui ne marche pas !!

Next i

End Sub

Je joint le fichier :

Merci pour votre aide

 

[DevThomy]

Re : selection et copie données filtrées avec VBA

Bonjour.
Ta question est hors de ma connaissance en Excel vu que je ne suis qu’en autodidacte. Je te propose un tutoriel de macro pour automatiser une tâche répétitive dans Excel, pour pouvoir exécuter la tâche d’un simple clic.
Lien de la vidéo : https://support.office.com/fr-fr/article/Utiliser-des-macros-654cc76b-1c9c-4632-89e1-67230322e92f

 

[fmaurice54]

Re : selection et copie données filtrées avec VBA

Bonjour DevThomy

J'ai solutionné mon problème voir autre discussion suivante :
https://www.excel-downloads.com/thr...une-zone-de-liste-filtree-par-excel.20005681/

Merci en tout cas pour ton message,

F.