Macro

Bonjour le forum

J'ai fait une macro avec le développeur, pourriez m'aider à le simplifier, de plus si vous pouviez me sélectionner jusqu'à 5000 lignes parce que je n'ai quelques lignes certainement à cause du développeur et je ne sais pas comment faire pour sélectionner jusqu'à 5000

Par avance, merci pour vos solutions

Bien cordialement

ericp

Le code :

Sub Macro1()

'

' Macro1 Macro

'

'

Range("B1:S12").Select

Range("J1").Activate

Application.CutCopyMode = False

Selection.EntireRow.Delete

Range("A1").Select

Selection.EntireColumn.Delete

Range("A1:T12").Select

With Selection

.WrapText = False

.Orientation = 0

.AddIndent = False

.ShrinkToFit = False

.ReadingOrder = xlLTR

.MergeCells = False

End With

Columns("M:M").Select

Selection.Delete Shift:=xlToLeft

Columns("N:N").Select

Selection.Delete Shift:=xlToLeft

Columns("Q:Q").Select

Selection.Delete Shift:=xlToLeft

Columns("L:L").Select

Selection.Insert Shift:=xlToRight

Range("L2").Select

ActiveCell.FormulaR1C1 = "=75000+RC[1]"

Range("L2").Select

Selection.AutoFill Destination:=Range("L2:L11")

Range("L2:L11").Select

Range("L1").Select

ActiveCell.FormulaR1C1 = "X"

With ActiveCell.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Gras"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = 1

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With

Range("A1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$R$12").AutoFilter Field:=1, Criteria1:="<>"

ActiveSheet.Range("$A$1:$R$12").AutoFilter Field:=2, Criteria1:="<>"

Range("A1:R12").Select

Sheets.Add

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

"DPP-20-1_ListeDesMissionsParArr!R1C1:R12C18", Version:=xlPivotTableVersion10 _

).CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _

"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10

Sheets("Feuil1").Select

Cells(3, 1).Select

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("2")

.Orientation = xlRowField

.Position = 1

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("3")

.Orientation = xlRowField

.Position = 2

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("X")

.Orientation = xlRowField

.Position = 3

End With

ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _

PivotTables("Tableau croisé dynamique1").PivotFields("3"), "Nombre de 3", _

xlCount

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("2")

.Orientation = xlColumnField

.Position = 1

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("X")

.PivotItems("168500").Visible = False

.PivotItems("(blank)").Visible = False

End With

End Sub

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Bonjour Jean-Eric

Voilà le fichier

Par avance, merci

Bien cordialement

ericp

Re,

Es-tu certain d'avoir envoyé le bon fichier (avant que la macro soit exécutée) ?

Cdlt.

Oupss

Voilà

Bonjoue Jean-Eric,

J'ai refait le fichier, il manquait des choses dans le précédent

Bien cordialement

ericp