grisan29
XLDnaute Accro
bonsoir a tous et toutes
j'ai ce code qui permet de remonter une ligne au fur et a mesure du clic qui fonctionne très bien, le souci est
que si la ligne a déplacer en bas de tableau le code emmène avec lui la bordure basse, ce qui est gênant car
non seulement il faut recréer la bordure mais aussi l'effacer car elle est remontée
merci d'avance de vos idées
j'ai ce code qui permet de remonter une ligne au fur et a mesure du clic qui fonctionne très bien, le souci est
que si la ligne a déplacer en bas de tableau le code emmène avec lui la bordure basse, ce qui est gênant car
non seulement il faut recréer la bordure mais aussi l'effacer car elle est remontée
Code:
Sub Edition_Lignes_sélectionnées_Monter()
Application.ScreenUpdating = False
' ll nombre de lignes de la sélection
ll = Selection.Rows.Count
'fl première ligne de la sélection
fl = Selection.Cells(1, 1).Row
' couper la ligne précédant la sélection
Rows(fl - 1).Cut
' insérer la ligne après la sélection et décalant les autres lignes vers le bas
Rows(fl + ll).Insert shift:=xlDown
' repositionner la sélection sur les lignes sélectionnées au départ
Rows(fl - 1 & ":" & fl + ll - 2).Select
End Sub
merci d'avance de vos idées
Dernière édition: