action d'une macro sur plusieur page

Re : action d'une macro sur plusieur page

Salut
en mettant ta macro dans une boucle qui passe toutes les pages, mais il faut que les noms des pages aient le même format
M 10 M 11
for i= 10 to ...
sheets("M " & i).select
ta macro
next

Re : action d'une macro sur plusieur page

Bonsoir,

Cet exemple devrait vous aider.
Dans le code suivant, ma macro essaipasse toutes les feuilles de calcul du classeur en revue et remplis la case "A1" de chacune de ces feuilles avec la valeur 2.



Salutations
Luis

Re : action d'une macro sur plusieur page

Bonsoir

Il te faut une feuille générale de collecte et tous de la meme configauration ainsi que la mise en page en créant ce module aprés
Sub TriRecap()
Dim i&, n&, z&, PlageR As Range, PlageA As Range, Sh As Worksheet, ShR As Worksheet
Set ShR = Sheets("ici le nom le la feuille recapitulative")
ShR.Activate
n = ShR.Cells(65536, 1).End(xlUp).Row + 1
Set PlageR = ShR.Range(Cells(2, 1), Cells(n, 9))
PlageR.ClearContents
For i = 1 To Worksheets.Count
Sheets(i).Activate
If Sheets(i).Name <> ShR.Name Then
z = Sheets(i).Cells(65536, 1).End(xlUp).Row
n = ShR.Cells(65536, 1).End(xlUp).Row + 1
Set PlageA = Sheets(i).Range(Cells(3, 1), Cells(z, 9))
PlageA.Select
PlageA.Copy Destination:=ShR.Range("A" & n)
End If
Next i

ShR.Activate
n = ShR.Cells(65536, 1).End(xlUp).Row
Set PlageR = ShR.Range(Cells(2, 1), Cells(n, 9))
PlageR.Select

Range("A2").Select
Selection.CurrentRegion.Select
ActiveWorkbook.Worksheets("'ici le nom le la feuille recapitulative'").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("'ici le nom le la feuille recapitulative'").Sort.SortFields.Add Key:= _
Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("'ici le nom le la feuille recapitulative'").Sort
.SetRange Range("A2:I" & n)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub
Sub TriRecapT()
Dim i&, n&, z&, PlageR As Range, PlageA As Range, Sh As Worksheet, ShR As Worksheet
Set ShR = Sheets("ici le nom le la feuille recapitulative")
ShR.Activate
n = ShR.Cells(65536, 1).End(xlUp).Row + 1
Set PlageR = ShR.Range(Cells(2, 1), Cells(n, 9))
PlageR.ClearContents
For i = 1 To Worksheets.Count
Sheets(i).Activate
If Sheets(i).Name <> ShR.Name Then
z = Sheets(i).Cells(65536, 1).End(xlUp).Row
n = ShR.Cells(65536, 1).End(xlUp).Row + 1
Set PlageA = Sheets(i).Range(Cells(3, 1), Cells(z, 9))
PlageA.Select
PlageA.Copy Destination:=ShR.Range("A" & n)
End If
Next i

ShR.Activate
n = ShR.Cells(65536, 1).End(xlUp).Row
Set PlageR = ShR.Range(Cells(2, 1), Cells(n, 9))
PlageR.Select

Range("A2").Select
Selection.CurrentRegion.Select
ActiveWorkbook.Worksheets("ici le nom le la feuille recapitulative").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ici le nom le la feuille recapitulative").Sort.SortFields.Add Key:= _
Range("B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Récapitulatif auteur").Sort
.SetRange Range("A2:I" & n)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub