remonter ligne oui mais pas la bordure

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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


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:
Bonjour,

Je suppose que la dernière ligne de ton tableau a une bordure épaisse alors qu'à l'intérieur du tableau les lignes sont séparées par une bordure fine. Non ?

Si c'est bien ça ton problème, alors essaye ceci (pas sûr que ça marche, mais c'est à tenter 😉) :
- sélectionne toutes les lignes de données de ton tableau (la page sélectionnée va donc de la première colonne de la première ligne jusqu'à la dernière colonne de la dernière ligne de ton tableau),
- va dans le format des cellules et mets le même type de bordure horizontale pour la bordure du haut, la bordure centrale et la bordure du bas,
- valide ce changement,
- sélectionne les cellules d'en-têtes de ton tableau (la plage sélectionnée doit donc être la ligne située juste avant les données du tableau),
- va dans le format des cellules et mets une bordure épaisse en-bas,
- valide ce changement,
- sélectionne les cellules situées juste après la dernière ligne de ton tableau,
- va dans le format des cellules et mets une bordure épaisse en-haut,
- valide ce changement.

Maintenant, avec un peu (beaucoup ???) de chance, il est possible que le déplacement de la dernière ligne n'emporte pas la bordure épaisse.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour