Créer une bordure verticale de chaque coté en macro (svp)
2 réponses
DC
Bonjour, Excel sous XP
Voilà, dans une macro, j'éxécute un "copier coller" sur des libellés de
plusieurs colonnes, d'un classeur à un autre,
Aussi dans le classeur où je copie, il n'y à pas de bordure verticale aux
extrémités,
par contre, j'aimerais que dans le classeur cible, où je colle, me retrouver
avec une bordure verticale aux extrémités, ( ex : en A12 a gauche et Q12 a
droite), mais surtout en relatif ,
Pour çà, il faudrait insèrer quelques lignes en VBA, ( ou une petite macro
me suffirait ) mais je galère la-dessus depuis un certain temps et sans
résulat positif, Merci de me venir en aide !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour,
A adapter, ici on copie la sélection vers la feuille 2 et on pose une bordure simple à gauche et à droite de la sélection :
Sub Macro1() Selection.Copy Sheets("Feuil2").Select Range("A5000").End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous Selection.Borders(xlEdgeRight).LineStyle = xlContinuous End Sub
Camille
"DC" wrote:
Bonjour, Excel sous XP
Voilà, dans une macro, j'éxécute un "copier coller" sur des libellés de plusieurs colonnes, d'un classeur à un autre, Aussi dans le classeur où je copie, il n'y à pas de bordure verticale aux extrémités, par contre, j'aimerais que dans le classeur cible, où je colle, me retrouver avec une bordure verticale aux extrémités, ( ex : en A12 a gauche et Q12 a droite), mais surtout en relatif , Pour çà, il faudrait insèrer quelques lignes en VBA, ( ou une petite macro me suffirait ) mais je galère la-dessus depuis un certain temps et sans résulat positif, Merci de me venir en aide !
Salutations ! au plaisir de vous lire ! DC
Bonjour,
A adapter, ici on copie la sélection vers la feuille 2 et on pose une
bordure simple à gauche et à droite de la sélection :
Sub Macro1()
Selection.Copy
Sheets("Feuil2").Select
Range("A5000").End(xlUp)(2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub
Camille
"DC" wrote:
Bonjour, Excel sous XP
Voilà, dans une macro, j'éxécute un "copier coller" sur des libellés de
plusieurs colonnes, d'un classeur à un autre,
Aussi dans le classeur où je copie, il n'y à pas de bordure verticale aux
extrémités,
par contre, j'aimerais que dans le classeur cible, où je colle, me retrouver
avec une bordure verticale aux extrémités, ( ex : en A12 a gauche et Q12 a
droite), mais surtout en relatif ,
Pour çà, il faudrait insèrer quelques lignes en VBA, ( ou une petite macro
me suffirait ) mais je galère la-dessus depuis un certain temps et sans
résulat positif, Merci de me venir en aide !
A adapter, ici on copie la sélection vers la feuille 2 et on pose une bordure simple à gauche et à droite de la sélection :
Sub Macro1() Selection.Copy Sheets("Feuil2").Select Range("A5000").End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous Selection.Borders(xlEdgeRight).LineStyle = xlContinuous End Sub
Camille
"DC" wrote:
Bonjour, Excel sous XP
Voilà, dans une macro, j'éxécute un "copier coller" sur des libellés de plusieurs colonnes, d'un classeur à un autre, Aussi dans le classeur où je copie, il n'y à pas de bordure verticale aux extrémités, par contre, j'aimerais que dans le classeur cible, où je colle, me retrouver avec une bordure verticale aux extrémités, ( ex : en A12 a gauche et Q12 a droite), mais surtout en relatif , Pour çà, il faudrait insèrer quelques lignes en VBA, ( ou une petite macro me suffirait ) mais je galère la-dessus depuis un certain temps et sans résulat positif, Merci de me venir en aide !
Salutations ! au plaisir de vous lire ! DC
DC
Bonsoir, Elliac
Merci pour ta réponse très rapide et positive !
En éffet, après quelques petits essais, çà fonctionne à merveille et comme je l'espérais,
Salutations ! un grand MERCI ! DC
"Elliac" a écrit dans le message de news:
Bonjour,
A adapter, ici on copie la sélection vers la feuille 2 et on pose une bordure simple à gauche et à droite de la sélection :
Sub Macro1() Selection.Copy Sheets("Feuil2").Select Range("A5000").End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous Selection.Borders(xlEdgeRight).LineStyle = xlContinuous End Sub
Camille
"DC" wrote:
Bonjour, Excel sous XP
Voilà, dans une macro, j'éxécute un "copier coller" sur des libellés de plusieurs colonnes, d'un classeur à un autre, Aussi dans le classeur où je copie, il n'y à pas de bordure verticale aux extrémités, par contre, j'aimerais que dans le classeur cible, où je colle, me retrouver avec une bordure verticale aux extrémités, ( ex : en A12 a gauche et Q12 a droite), mais surtout en relatif , Pour çà, il faudrait insèrer quelques lignes en VBA, ( ou une petite macro me suffirait ) mais je galère la-dessus depuis un certain temps et sans résulat positif, Merci de me venir en aide !
Salutations ! au plaisir de vous lire ! DC
Bonsoir, Elliac
Merci pour ta réponse très rapide et positive !
En éffet, après quelques petits essais, çà fonctionne à merveille et comme
je l'espérais,
Salutations ! un grand MERCI ! DC
"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de news:
83D30FA8-2F67-4B4C-90FC-7588B2CE8C95@microsoft.com...
Bonjour,
A adapter, ici on copie la sélection vers la feuille 2 et on pose une
bordure simple à gauche et à droite de la sélection :
Sub Macro1()
Selection.Copy
Sheets("Feuil2").Select
Range("A5000").End(xlUp)(2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub
Camille
"DC" wrote:
Bonjour, Excel sous XP
Voilà, dans une macro, j'éxécute un "copier coller" sur des libellés de
plusieurs colonnes, d'un classeur à un autre,
Aussi dans le classeur où je copie, il n'y à pas de bordure verticale aux
extrémités,
par contre, j'aimerais que dans le classeur cible, où je colle, me
retrouver
avec une bordure verticale aux extrémités, ( ex : en A12 a gauche et Q12
a
droite), mais surtout en relatif ,
Pour çà, il faudrait insèrer quelques lignes en VBA, ( ou une petite
macro
me suffirait ) mais je galère la-dessus depuis un certain temps et sans
résulat positif, Merci de me venir en aide !
En éffet, après quelques petits essais, çà fonctionne à merveille et comme je l'espérais,
Salutations ! un grand MERCI ! DC
"Elliac" a écrit dans le message de news:
Bonjour,
A adapter, ici on copie la sélection vers la feuille 2 et on pose une bordure simple à gauche et à droite de la sélection :
Sub Macro1() Selection.Copy Sheets("Feuil2").Select Range("A5000").End(xlUp)(2).Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous Selection.Borders(xlEdgeRight).LineStyle = xlContinuous End Sub
Camille
"DC" wrote:
Bonjour, Excel sous XP
Voilà, dans une macro, j'éxécute un "copier coller" sur des libellés de plusieurs colonnes, d'un classeur à un autre, Aussi dans le classeur où je copie, il n'y à pas de bordure verticale aux extrémités, par contre, j'aimerais que dans le classeur cible, où je colle, me retrouver avec une bordure verticale aux extrémités, ( ex : en A12 a gauche et Q12 a droite), mais surtout en relatif , Pour çà, il faudrait insèrer quelques lignes en VBA, ( ou une petite macro me suffirait ) mais je galère la-dessus depuis un certain temps et sans résulat positif, Merci de me venir en aide !
