Bonjour le forum.
faisant suite à un fil précédent...
j'ai le code suivant qui copie 2 feuilles en plusieurs exemplaires et les renomme.
Jusque là tout va bien .
ensuite cela se complique quand je veux formater toutes les cellules A58:A62 de toutes les feuilles j'obtiens un message d'erreur sur la ligne "Range("A58:A62").Select"
alors que ce code vient de l'éditeur de macros.
????
Private Sub CommandButton1_Click()
Sheets("Feuil1").Copy After:=Sheets("Feuil3")
Sheets("Feuil1 (2)").Activate
Sheets("Feuil1 (2)").Name = "Devis 1"
Sheets("Feuil2").Copy After:=Sheets("Devis 1")
For i = 2 To 9
ActiveSheet.Name = "Devis " & i
Sheets("Feuil2").Copy After:=Sheets("devis " & i)
Next
ActiveSheet.Name = "Devis " & i
Dim MesFeuilles(9)
For i = 0 To 9
MesFeuilles(i) = "Devis " & i + 1
Next
Sheets(MesFeuilles).Select
Sheets("Devis 1").Activate
Range("A58:A62").Select
ActiveWindow.SmallScroll Down:=3
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
Avez vous la solution SVP ??