inclure dans une macro qu'elle selectionne une ligne plus bas

jad73 · 31 Août 2011

bonjour le forum
j'ai fait une macro que voici

Sub 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

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:AQ1000
si c'est possible dans une macro(en VBA je n'y connais rien)
merci

stefan373 · 31 Août 2011

Bonsoir jad73 et le forum.

Avec une boucle et offset(1,0) cela devrait être possible.

Mais je pense qu'avec un petit fichier exemple montrant les conditions réelles et la disposition des données dans la feuille serait plus parlant.
Car que ce trouve t'il au-dessus, en-dessous et sur les côtés des coordonnées (X150, av156, aw255.....), zonne très vaste.
Donc limiter l'exemple de A1 à M40 serais plus explicite et plus facile pour comprendre.

A +

jad73 · 1 Septembre 2011

Re : inclure dans une macro qu'elle selectionne une ligne plus bas

bonjour stefan373,le forum
je joint le fichier que j'ai réduit pour qu'il passe
dans mon classeur les données démarre en C2:V154,plage ou sont stokées les données traitées qui elles sont en X155:AQ1500qui sont a traiter
je n'aurais qu'a changer les numéros de lignes dans la macro
merci

inclure dans une macro qu'elle selectionne une ligne plus bas

jad73

XLDnaute Occasionnel

stefan373

XLDnaute Occasionnel

jad73

XLDnaute Occasionnel

Pièces jointes

Discussions similaires