Discussion :

[Walt51]

Bonjour à tous,

Je souhaite savoir comment, via une macro, couper la dernière ligne de mon tableau pour l’insérer tout en haut de celui ci.

Cela dit, j'ai un code qui fonction très bien dans un classeur, mais qui fonctionne mal dans un autre (il coup uniquement la dernière cellule de la colonne C au lieu de couper la ligne où se trouve la dernière valeur de la colonne C)

Voici le code récalcitrant:

Sub MiseEnFormeNCL()


'Mettre les titres en haut

Sheets("Feuil1").Select
LaDerniere = Range("C1").End(xlDown) 'selection de la dernière ligne
Range("C1").End(xlDown).Select
Selection.Cut
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Selection.AutoFilter

End Sub

Pouvez-vous corriger ou apporter une idée de code qui fonctionnerait à tous les coups.
Merci,
Walt

[casefayere]

Bonsoir,
comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub MiseEnFormeNCL()
Dim LaDerniere As Range
With Sheets("Feuil1")
  If .AutoFilterMode = True Then .AutoFilterMode = False
  Set LaDerniere = .Range("C" & .Rows.Count).End(xlUp) 'selection de la dernière ligne
  Rows(LaDerniere.Row).Cut
  .Rows("1:1").Insert Shift:=xlDown
  .Rows("1:1").AutoFilter
End With
 
End Sub

[Walt51]

Bonsoir,
comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub MiseEnFormeNCL()
Dim LaDerniere As Range
With Sheets("Feuil1")
  If .AutoFilterMode = True Then .AutoFilterMode = False
  Set LaDerniere = .Range("C" & .Rows.Count).End(xlUp) 'selection de la dernière ligne
  Rows(LaDerniere.Row).Cut
  .Rows("1:1").Insert Shift:=xlDown
  .Rows("1:1").AutoFilter
End With
 
End Sub

C'est parfait! Un grand merci