Bonjour au forum.
Voila je coince un peu sur une macro vba dont voici le contenu qui me sert à copier la valeur de la cellule
G30 sur toutes les cellules au dessus jusqu'à G4 et ceci sur toutes les feuilles sauf les 3 dernières.
Ce que j'essaye de remplacer par une boucle :
qui boucle toujours sur la même feuille.
Auriez vous un petit conseil pour raccourcir ce code?
Cordialement
Voila je coince un peu sur une macro vba dont voici le contenu qui me sert à copier la valeur de la cellule
G30 sur toutes les cellules au dessus jusqu'à G4 et ceci sur toutes les feuilles sauf les 3 dernières.
Code:
Sub test()
Sheets("1").Select
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
Sheets("2").Select
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
Sheets("3").Select
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
Sheets("4").Select
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
Sheets("5").Select
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
Sheets("5").Select
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
Sheets("6").Select
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
'etc... sur tous le classeur sauf les 3 dernières feuilles.
End Sub
Ce que j'essaye de remplacer par une boucle :
Code:
Sub test2()
Dim i%
For i = 1 To Worksheets.Count - 3
With Worksheets(i)
Range("G30").Select
Selection.AutoFill Destination:=Range("G4:G30"), Type:=xlFillDefault
Range("G4:G30").Select
End With
Next
End Sub
qui boucle toujours sur la même feuille.
Auriez vous un petit conseil pour raccourcir ce code?
Cordialement