M
michaelangot@msn.com
Guest
Bonjour à tous voici mon probleme:
j'ai rentré cette macro et je voudrais recommencer le meme test plusieurs fois avec des feuilles différentes, problème je n'arrive pas à remettre a zéro ce que VBA a enregistré en dim, aidez moiiiii svp 🙁
Dim i As Integer
Dim strSheetName As String
Dim blnFound As Boolean
strSheetName = "LGO " 'or whatever you are looking for.
i = Sheets.Count
For j = 1 To i
If Sheets(j).Name = strSheetName Then
Sheets("LGO ").Select
ActiveWindow.SmallScroll Down:=-21
Range("C13:CK19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Range("C44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
blnFound = True
Exit For
End If
Next
j'ai rentré cette macro et je voudrais recommencer le meme test plusieurs fois avec des feuilles différentes, problème je n'arrive pas à remettre a zéro ce que VBA a enregistré en dim, aidez moiiiii svp 🙁
Dim i As Integer
Dim strSheetName As String
Dim blnFound As Boolean
strSheetName = "LGO " 'or whatever you are looking for.
i = Sheets.Count
For j = 1 To i
If Sheets(j).Name = strSheetName Then
Sheets("LGO ").Select
ActiveWindow.SmallScroll Down:=-21
Range("C13:CK19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Range("C44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
blnFound = True
Exit For
End If
Next