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
Afficher la suite