Bonsoir à toutes et à tous,

J'ai besoin d'assistance à propos d'une programmation va.

En clair, je souhaiterais automatiser par une macro une extraction de données : faire le tri selon un filtre reprenant deux variables, copier le résultat, créer une nouvelle feuille dénommée et coller le résultat sur cette nouvelle tout en reprenant les dimensions identiques du tableau de base.

J'indique ci-après les commandes vba :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Macro4()
'
' Extraction Encours
 
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=9, Criteria1:= _
        "EN COURS"
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=9, Criteria1:= _
        "=EN COURS", Operator:=xlOr, Criteria2:="=EN SUSPENS"
    Rows("2:3000").Select
    Selection.Copy
 
' Insère Feuille dénommée
 
Dim shEncours As Worksheet
Set shEncours = Sheets.Add(After:=Sheets(Sheets.Count))
shEncours.Name = "Encours"
 
    ActiveSheet.Paste
    Rows("1:1").Select
 
 
' Copier coller tableau dimensions identiques
 
    Rows("2:3000").Select
    Selection.Copy
    Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
 
End Sub
Le problème réside dans la dimension exacte du tableau collé par rapport au tableau copié.

Je joins le fichier de base.

Merci par avance de vos indications précieuses.

Excellente soirée.

Rodi95
Tableau.encours_20160102_Alimente_test.xlsm