remonter ligne oui mais pas la bordure

[grisan29]

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

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

 

[TooFatBoy]

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.

 

[grisan29]

bonjour Marcel
merci de ta réponse, il est vrai que je n'ai pas donné beaucoup de renseignement sur le tableau
c'est un tableau tout simple, bordure fine tout autour sans rien intérieur et pour compenser voici un exemple

 

[TooFatBoy]

Oui, ben ça correspond à ce que je disais, sauf qu'au lieu des bordures fines tu n'as pas de bordures et au lieu des bordures épaisses tu as des bordures fines. Le principe reste le même.

As-tu testé ?

 

[TooFatBoy]

Je viens de tester ton fichier après l'avoir modifié comme je l'ai expliqué et ça marche chez moi.
Et chez toi ?

 

[grisan29]

bonjour Marcel
merci de ta réponse mais ce fichier n'est qu'un morceau et je peut avoir 80 où200 lignes d'écritent

 

[TooFatBoy]

OK