bonjour le forum
j'ai fait une macro que voici
si c'est possible dans une macro(en VBA je n'y connais rien)
merci
j'ai fait une macro que voici
la elle prend une ligne en X154 et la met en C154,la macro s'exécute mais lorsqu'elle a fini et que le curseur est en AS154 je voudrais qu'elle continue c'est-a-dire qu'elle prenne la ligne suivante X155 qu'elle la depose en C155 et ainsi de suite jusqu'a la fin du fichier qui est en X155:AQ1000Sub test5()
'
' test5 Macro
'
'
Range("X154:AQ154").Select
Selection.Cut Destination:=Range("C154:V154")
Range("C154:V154").Select
Selection.Copy
Range("X148").Select
ActiveSheet.Paste
Range("X152").Select
Application.CutCopyMode = False
Calculate
vLigne = Range("AY65536").End(xlUp).Row
vLigne = vLigne + 1
Range("X150:AQ150").Select
Application.CutCopyMode = False
Selection.Copy
Range("AY" & vLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X148:AQ148").Select
Selection.ClearContents
Range("X148").Select
Calculate
Range("AS156:AT225").Select
Selection.Copy
Range("AV156").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Add Key:=Range( _
"AW156:AW225"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuil5").Sort
.SetRange Range("AV156:AW225")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("AS154").Select
End Sub
si c'est possible dans une macro(en VBA je n'y connais rien)
merci