Mettre fin au entrée DIM, besoin d'aide

[michaelangot@msn.com]

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

 

[michaelangot@msn.com]

Re : Mettre fin au entrée DIM, besoin d'aide

C'est bon j'ai trouvé une solution si sa peut aider quelqu'un j'ai rentré différent nom de paramètre tout simplement ! 🙂

Bonne journée a tous

 

[mutzik]

Re : Mettre fin au entrée DIM, besoin d'aide

bonjour,
sans regarder beaucoup plus loin, dans chaque boucle tu reselctionnes ta feuille LGO, donc il est clair que, de quelque feuille que tu lances cette macro, le traitement se fera toujours sur la feuille LGO