OVH Cloud OVH Cloud

Bords de plage (ou "les mystères d'un dimanche d'automne")

2 réponses
Avatar
Daniel
Bonjour à tous et bon dimanche.
Comment restaurer les bordures d'une plage une fois celles-ci modifiées ?
(sauf à faire un copier / collage spécial formats)
La macro ci-dessous réapplique les valeurs initiales du format et pourtant,
le format a changé :

Sub Paradoxe()
With Range("B2").Borders
.ColorIndex = .ColorIndex
.LineStyle = .LineStyle
.Weight = .Weight
End With
End Sub

Merci à l'Hercule Poirot de garde !

Cordialement.
Daniel

2 réponses

Avatar
Daniel
En outre, le nombre de valeurs proposées par VBA pour "LineStyle" est de 8
alors qu'il y a 14 possibilités avec le "format / Cellules / Bordures d'XL.
Le mystère s'épaissit ?
Daniel
"Daniel" a écrit dans le message de news:
%
Bonjour à tous et bon dimanche.
Comment restaurer les bordures d'une plage une fois celles-ci modifiées ?
(sauf à faire un copier / collage spécial formats)
La macro ci-dessous réapplique les valeurs initiales du format et
pourtant, le format a changé :

Sub Paradoxe()
With Range("B2").Borders
.ColorIndex = .ColorIndex
.LineStyle = .LineStyle
.Weight = .Weight
End With
End Sub

Merci à l'Hercule Poirot de garde !

Cordialement.
Daniel



Avatar
michdenis
Bonjour Daniel,

| Comment restaurer les bordures d'une plage une fois celles-ci modifiées ?

Est-ce que toutes tes cellules de ladite plage ont une bordure ou c'est simplement une bordure autour de la plage de cellules ?


Salutations!



"Daniel" a écrit dans le message de news: O4fvFU%
En outre, le nombre de valeurs proposées par VBA pour "LineStyle" est de 8
alors qu'il y a 14 possibilités avec le "format / Cellules / Bordures d'XL.
Le mystère s'épaissit ?
Daniel
"Daniel" a écrit dans le message de news:
%
Bonjour à tous et bon dimanche.
Comment restaurer les bordures d'une plage une fois celles-ci modifiées ?
(sauf à faire un copier / collage spécial formats)
La macro ci-dessous réapplique les valeurs initiales du format et
pourtant, le format a changé :

Sub Paradoxe()
With Range("B2").Borders
.ColorIndex = .ColorIndex
.LineStyle = .LineStyle
.Weight = .Weight
End With
End Sub

Merci à l'Hercule Poirot de garde !

Cordialement.
Daniel