boubmarley
XLDnaute Nouveau
Bonjour,
Apres de nombreuses recherche, je finis par venir vous demander de l'aide concernant ma macro.
Je souhaite deux choses:
-choisir les valeurs que je veux dans une fonction for (je veux les valeurs 4,6,7,10,17,19,...! mais pas des 5,8,9,11 ,...)
-ensuite je voudrais accelerer ma macro (en me renseignant, j'ai découvert que les select n'etait pas conseillés)
Pour que ce soit plus clair, voici un bout de ma macro
Merci de votre aide
Apres de nombreuses recherche, je finis par venir vous demander de l'aide concernant ma macro.
Je souhaite deux choses:
-choisir les valeurs que je veux dans une fonction for (je veux les valeurs 4,6,7,10,17,19,...! mais pas des 5,8,9,11 ,...)
-ensuite je voudrais accelerer ma macro (en me renseignant, j'ai découvert que les select n'etait pas conseillés)
Pour que ce soit plus clair, voici un bout de ma macro
Dim i As Integer
Dim j As Integer
Dim h As Integer
h = 4
For j = (4) To (70)
Windows("Classeur 1.xls"). _
Activate
Sheets("Feuille 1").Select
Range("D4").Select
ActiveCell.FormulaR1C1 = j
Range("E15:E175").Select
Selection.Copy
Windows("Classeur 2.xls"). _
Activate
Sheets("Feuille 1").Select
Cells(3, h).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Classeur 1.xls"). _
Activate
Sheets("Feuille 1").Select
Range("D912").Select
Selection.Copy
Windows("Classeur 2.xls"). _
Activate
Sheets("Feuille 2").Select
Cells(j, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If j = 4 Then
j = 5
End If
If j = 7 Then
j = 9
End If
If j = 17 Then
j = 18
End If
If j = 19 Then
j = 59
End If
h = h + 1
Next j
Merci de votre aide