J
Jean
Guest
Bonjour à tous
Encore une fois je fais appel à vous.
Situation: pour chacune des feuilles du fichier Facturation Cartierville.xls je dois copier la cellule H136 vers la cellule H130. Le nombre de feuilles du fichier Facturation Cartierville.xls peut varier (mais il contient un minimun de 150 feuilles).
Problématique: est-ce qu'il existe une façon d'améliorer cette procédure afin de la rendre plus rapide ?
Procédure:
Sub VentesCartierville2()
'Macro pour copier la celule H136 vers la cellule H130 de chacune
'des feuilles du fichier Facturation Cartierville.xls
Dim WBSource As Workbook
Dim Feuille As Integer
Dim RangeH136 As Range
Dim RangeH130 As Range
Set WBSource = Workbooks("Facturation Cartierville.xls")
WBSource.Activate
For Feuille = 1 To Sheets.Count
Set RangeH136 = Worksheets(Feuille).Range("H136")
Set RangeH130 = Worksheets(Feuille).Range("H130")
RangeH136.Copy
RangeH130.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Next
End Sub
Merci de votre aide
Jean
Encore une fois je fais appel à vous.
Situation: pour chacune des feuilles du fichier Facturation Cartierville.xls je dois copier la cellule H136 vers la cellule H130. Le nombre de feuilles du fichier Facturation Cartierville.xls peut varier (mais il contient un minimun de 150 feuilles).
Problématique: est-ce qu'il existe une façon d'améliorer cette procédure afin de la rendre plus rapide ?
Procédure:
Sub VentesCartierville2()
'Macro pour copier la celule H136 vers la cellule H130 de chacune
'des feuilles du fichier Facturation Cartierville.xls
Dim WBSource As Workbook
Dim Feuille As Integer
Dim RangeH136 As Range
Dim RangeH130 As Range
Set WBSource = Workbooks("Facturation Cartierville.xls")
WBSource.Activate
For Feuille = 1 To Sheets.Count
Set RangeH136 = Worksheets(Feuille).Range("H136")
Set RangeH130 = Worksheets(Feuille).Range("H130")
RangeH136.Copy
RangeH130.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Next
End Sub
Merci de votre aide
Jean