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
Jean-François Aubert
Salut Pascal,
J'ai trouvé ceci dans un tiroir:
'de AV, MPFE 'fait une fausse bordure rouge à la cellule sélectionnée
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next ActiveSheet.Shapes("cadre").Delete With Selection x1 = .Height: x2 = .Left x3 = .Top: x4 = .Width ad = .Address End With ActiveSheet.Shapes.AddShape(msoShapeRectangle, x2, x3, x4, x1).Select With Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 0# End With With Selection.ShapeRange.Line .Weight = 1.5 .DashStyle = msoLineSolid .Style = msoLineSingle .ForeColor.SchemeColor = 10 End With Selection.Name = "cadre" Range(ad).Select End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Pascal" a écrit dans le message de news:
Bonjour à tous Quand on sélectionne une case par exemple A1, est-il possible de changer la couleur des bords de la cellule par exemple en rouge
merci pascal
Salut Pascal,
J'ai trouvé ceci dans un tiroir:
'de AV, MPFE
'fait une fausse bordure rouge à la cellule sélectionnée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Shapes("cadre").Delete
With Selection
x1 = .Height: x2 = .Left
x3 = .Top: x4 = .Width
ad = .Address
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, x2, x3, x4, x1).Select
With Selection.ShapeRange.Fill
.Visible = msoFalse
.Transparency = 0#
End With
With Selection.ShapeRange.Line
.Weight = 1.5
.DashStyle = msoLineSolid
.Style = msoLineSingle
.ForeColor.SchemeColor = 10
End With
Selection.Name = "cadre"
Range(ad).Select
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Pascal" <Zork.NOSSWEN@tropcurieurx.com> a écrit dans le message de
news:Oqz9XWOsDHA.2360@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Quand on sélectionne une case par exemple A1, est-il possible de changer la
couleur des bords de la cellule par exemple en rouge
'de AV, MPFE 'fait une fausse bordure rouge à la cellule sélectionnée
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next ActiveSheet.Shapes("cadre").Delete With Selection x1 = .Height: x2 = .Left x3 = .Top: x4 = .Width ad = .Address End With ActiveSheet.Shapes.AddShape(msoShapeRectangle, x2, x3, x4, x1).Select With Selection.ShapeRange.Fill .Visible = msoFalse .Transparency = 0# End With With Selection.ShapeRange.Line .Weight = 1.5 .DashStyle = msoLineSolid .Style = msoLineSingle .ForeColor.SchemeColor = 10 End With Selection.Name = "cadre" Range(ad).Select End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Pascal" a écrit dans le message de news:
Bonjour à tous Quand on sélectionne une case par exemple A1, est-il possible de changer la couleur des bords de la cellule par exemple en rouge
