1 pièce(s) jointe(s)
Copier coller données triées feuilles VBA
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:
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
Pièce jointe 197020