Excel - Macro II

Fermé
__Nico989__ Messages postés 116 Date d'inscription vendredi 22 mai 2009 Statut Membre Dernière intervention 21 novembre 2013 - Modifié par __Nico989__ le 11/02/2011 à 11:10
Bonjour tout le monde,

Je sollicite votre aide pour ma macro :


Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 09/02/2011 par RADZISZEWSKI Nicolas
'
' Touche de raccourci du clavier: Ctrl+s
'
i = 1
Do While Cells(i, 18) <> ""
i = i + 1
Loop
Rows(i - 1).Copy
Rows(i).Select
ActiveSheet.Paste
Cells(i, 1) = ""
Cells(i, 2) = ""
Cells(i, 3) = ""
Cells(i, 4) = ""
Cells(i, 5) = ""
Cells(i, 6) = ""
Cells(i, 7) = ""
Cells(i, 8) = ""
Cells(i, 9) = ""
Cells(i, 10) = ""
Cells(i, 11) = ""
Cells(i, 12) = ""
Cells(i, 13) = ""
Cells(i, 14) = ""
Cells(i, 15) = ""
Cells(i, 16) = ""
Cells(i, 17) = ""
Cells(i, 18) = ""
Cells(i, 19) = ""
Cells(i, 20) = ""
Cells(i, 21) = ""
Cells(i, 22) = ""
Cells(i, 23) = ""
Cells(i, 24) = ""
Cells(i, 25) = ""
Cells(i, 26) = ""
Cells(i, 26) = ""
Cells(i, 27) = ""
Cells(i, 28) = ""
Cells(i, 29) = ""
Cells(i, 30) = ""
Cells(i, 31) = ""
Cells(i, 32) = ""
Cells(i, 33) = ""
Cells(i, 35) = ""
Cells(i, 36) = ""
Cells(i, 38) = ""
Cells(i, 39) = ""
Cells(i, 40) = ""
Cells(i, 41) = ""
Cells(i, 42) = ""
Cells(i, 43) = ""
Cells(i, 44) = ""
Cells(i, 45) = ""
Cells(i, 46) = ""
Cells(i, 47) = ""
Cells(i, 48) = ""
Cells(i, 49) = ""
Cells(i, 50) = ""
Cells(i, 51) = ""
Cells(i, 19).Select
End Sub


Je souhaite modifier celle-ci afin que :


Avant de commencer, la macro fasse un tri par ordre croissant de la colonne R (18eme colonne)

Puis qu'à cette étape : Cells(i, 18) = ""


La cellule ne soit pas vidée, mais qu'elle reprenne la cellule de la ligne de dessus et y ajouter + 1 (ex: A1: 369 B1: 370)


Merci d'avance !

Nico