J'ai juste un petit souci. J'essaye à présent de faire la même chose en exportant 3 colonnes à chaque fois, mais je n'arrive pas à coller les 3 colonnes comme il faudrait dans la seconde feuille, c'est à dire colonnes A,B et C pour la première itération, puis colonnes D,E, et F pour la deuxième, etc...
Sub MTWinMac()
Application.ScreenUpdating = False
'
' MTWinMac Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
For i = 1 To 20
Sheets("SimWin").Select
Calculate
Range("V2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("V2:V600,AA2").Select
Range("AA2").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("V2:V600,AA2:AA600,AE2").Select
Range("AE2").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("MTWin").Select
Sheets("MTWin").Cells(1, (3 * i)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
Application.ScreenUpdating = True
End Sub
Le problème est à la ligne
Sheets("MTWin").Cells(1, (3 * i)).Select
Et comment faire pour specifier que les valeurs de la 1ère, 4ème, 7ème, etc, sont des nombres à trois chiffres après la virgule, et que tous les autres sont des montant monétaires en € à 2 chiffres?
Merci!