Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Adapter macro pour ligne relatives
See previous posting in English on Programming page
"PST" wrote: Bonjour Je ne reussi pas Ã* adapter cette partie de la macro ci-dessous pour des lignes relatives For J = 1 To 8 vN(J) = Sheets("feuil3").Cells(J).Value 'J avant Next merci Sub Combin_6N() Dim A As Integer, B As Integer, C As Integer Dim D As Integer, E As Integer, F As Integer Dim I As Long, J As Integer, vN(10) As Integer Application.ScreenUpdating = False For J = 1 To 8 vN(J) = Sheets("feuil3").Cells(J).Value 'J avant Next J = J - 1 ActiveCell.Offset(0, 17).Select 'Range("a32").Select ' Pour deplacer les combinaisons Ã* l'endroit souhaité I = 1 For A = 1 To J - 5 For B = A + 1 To J - 4 For C = B + 1 To J - 3 For D = C + 1 To J - 2 For E = D + 1 To J - 1 For F = E + 1 To J ActiveCell.Offset(0, 0).Value = I ActiveCell.Offset(0, 1).Value = vN(A) ActiveCell.Offset(0, 2).Value = vN(B) ActiveCell.Offset(0, 3).Value = vN(C) ActiveCell.Offset(0, 4).Value = vN(D) ActiveCell.Offset(0, 5).Value = vN(E) ActiveCell.Offset(0, 6).Value = vN(F) I = I + 1 ActiveCell.Offset(1, 0).Select Select Case I Case 60001, 120001, 180001, 240001, 300001, 360001, 420001, 480001, 540001 ActiveCell.Offset(-60000, 8).Select End Select Next F Next E Next D Next C Next B Next A Range("A1").Select End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Adapter macro pour ligne relatives
Bonjour
Je ne reussi pas à adapter cette partie de la macro ci-dessous pour des lignes relatives For J = 1 To 8 vN(J) = Sheets("feuil3").Cells(J).Value 'J avant Next merci Sub Combin_6N() Dim A As Integer, B As Integer, C As Integer Dim D As Integer, E As Integer, F As Integer Dim I As Long, J As Integer, vN(10) As Integer Application.ScreenUpdating = False For J = 1 To 8 vN(J) = Sheets("feuil3").Cells(J).Value 'J avant Next J = J - 1 ActiveCell.Offset(0, 17).Select 'Range("a32").Select ' Pour deplacer les combinaisons à l'endroit souhaité I = 1 For A = 1 To J - 5 For B = A + 1 To J - 4 For C = B + 1 To J - 3 For D = C + 1 To J - 2 For E = D + 1 To J - 1 For F = E + 1 To J ActiveCell.Offset(0, 0).Value = I ActiveCell.Offset(0, 1).Value = vN(A) ActiveCell.Offset(0, 2).Value = vN(B) ActiveCell.Offset(0, 3).Value = vN(C) ActiveCell.Offset(0, 4).Value = vN(D) ActiveCell.Offset(0, 5).Value = vN(E) ActiveCell.Offset(0, 6).Value = vN(F) I = I + 1 ActiveCell.Offset(1, 0).Select Select Case I Case 60001, 120001, 180001, 240001, 300001, 360001, 420001, 480001, 540001 ActiveCell.Offset(-60000, 8).Select End Select Next F Next E Next D Next C Next B Next A Range("A1").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Boucle sur ligne relative | Excel Discussion (Misc queries) | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
using a cell value to control a counter inside a macro and displaying macro value | Excel Worksheet Functions | |||
je voudrait la formule pour mettre 12,78 heures en valeur h:mm | Excel Discussion (Misc queries) |