Microsoft 365 Bordures dans MFC

rastafouette · 5 Octobre 2024

Bonjour à tous,

Je cherche à mettre des bordures dans une MFC, mais je ne peux pas sélectionner les diagonales, pour faire une croix dans la cellule. J'ai essayé sur plusieurs fichiers, même sur des nouveaux vides.
Est-ce normal ?

Phil69970 · 8 Octobre 2024

@rastafouette

rastafouette à dit:
Ce n'est pas forcément très beau. Si vous avez mieux, je prends

Je te propose :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Cell As Range, Plage As Range
Set Plage = Range("D80:X110")
If Not Application.Intersect(Target, Plage) Is Nothing Then
    Plage.Borders(xlDiagonalUp).LineStyle = xlNone
    Plage.Borders(xlDiagonalDown).LineStyle = xlNone
    For Each Cell In Plage.SpecialCells(xlCellTypeBlanks)
        With Cell
            .Borders(xlDiagonalUp).LineStyle = xlContinuous
            .Borders(xlDiagonalDown).LineStyle = xlContinuous
            .Borders(xlDiagonalDown).Weight = xlThick ' <== Est ce vraiment utile et indispensable...

Staple1600 · 5 Octobre 2024

Bonjour le fil

@rastafouette
Utilises Jeux d'icones et tu auras une croix directement

TooFatBoy · 5 Octobre 2024

Bonjour,

rastafouette à dit:
Est-ce normal ?

Oui.

En général dans les MFC, avec bordures il faut travailler en "logique inverse", c'est-à-dire mettre dans la feuille les bordures que l'on aurait naturellement mises dans la MFC et réciproquement.

Donc ici, tu mets tes diagonales dans ta feuille et tu crées une MFC pour les enlever.

Staple1600 · 5 Octobre 2024

Re

@TooFatBoy
On ne peut utiliser les bordures diagonales dans une MFC
(Elles ne sont pas accessibles -> grisée)
On ne peut utiliser que Contour ou Aucune

TooFatBoy · 5 Octobre 2024

Ah zut...

Bon après-midi

crocrocro · 5 Octobre 2024

Bonjour le fil,
comme le fait remarquer Staple1600, dans une MFC les bordures diagonales ne sont pas accessibles.
Que ce soit directement sur la feuille ou par du code VBA

VB:

Sub MFCBordureDiagonales()

    Range("A1:A10").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A1=""x"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    With Selection.FormatConditions(1).Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Encore une bizarrerie (peut-être quelqu'un connait la raison ...) d'excel ?

Staple1600 · 5 Octobre 2024

Bonjour @crocrocro

Bizarrerie mise à part, la question dans la question pourrait être:
En quoi une croix est plus significative qu'une couleur pour distinguer une information d'une autre ?

Peut-être qu'un fichier exemple dés le premier message (et donc une vue concrète du problème posé) aurait pu nous aider à aiguiller le demandeur vers une voie alternative autre que la MFC. ?
... ou pas

Phil69970 · 5 Octobre 2024

Bonjour à tous

@rastafouette

On peut contourner le problème et faire avec une "MFC canada dry"

Merci de ton retour

Staple1600 · 5 Octobre 2024

Re,

@Phil69970
Une ligne oblige n'est pas une croix (et @rastafouette voulait une croix )
Et point de MFC pilotée en VBA
C'est plus du Canadry, c'est de l'eau ferrugineuse

TooFatBoy · 5 Octobre 2024

Staple1600 à dit:
Une ligne oblige n'est pas une croix (et @rastafouette voulait une croix )

Elle veut utiliser les bordures : c'est écrit dans le titre et dans la question.

Phil69970 · 5 Octobre 2024

Re

Staple
Et pour avoir les 2 diagonales il suffit de demander
Après canada dry ou eau ferrugineuse c'est selon le gout de chacun
L'essentiel c'est que le demandeur retrouve ses petits ....

Staple1600 · 5 Octobre 2024

Re

@TooFatBoy
Je m'adressais à @Phil69970 , non ?

Et je disais, sur le ton de l'humour, que la question parle de MFC or pas de MFC dans la proposition VBA

@Phil69970
Pour une croix, sans les bras comme disait Johnnny

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPlage As Range, i&, j&, Derlig&
Derlig = Range("A" & Rows.Count).End(xlUp).Row
Set MaPlage = Range("A1:A" & Derlig)
Columns(1).Borders(xlDiagonalUp).LineStyle = xlNone
If Not Application.Intersect(MaPlage, Range(Target.Address)) Is Nothing Then
    For i = 1 To Derlig
        If Range("A" & i) < 10 Then
            For j = 5 To 6
            With Range("A" & i)
                .Borders(j).LineStyle = 1
            End With
            Next j
        End If
    Next i
End If
End Sub

EDITION
J'ai posté sans voir ton dernier message

@rastafouette
Le code initial étant celui de @Phil69970, c'est lui qu'il faudra créditer.
Pas moi.
Moi, j'ai juste fait une tite boucle

Phil69970 · 5 Octobre 2024

Staple

Tu as oublier de "décroiser" la 2eme diagonale

Staple1600 à dit:
Columns(1).Borders(xlDiagonalUp).LineStyle = xlNone

Columns(1).Borders(xlDiagonalUp).LineStyle = xlNone
Columns(1).Borders(xlDiagonalDown).LineStyle = xlNone

Et dans le fichier du post #11 j'en ai profité pour traité les cellules vides

Staple1600 · 5 Octobre 2024

Re

@Phil69970
J'ai juste fait mumuse dans VBE, histoire de réchauffer mes doigts
Perso, je vois pas l'intérêt d'écrire N lignes de code VBA pour faire une simple croix dans une cellule, là ou une MFC suffirait (une couleur de fond en guise de croix, et/ou le cas échéant une bordure Contour)
NB: je parle du problème posé (pas de ta réponse en VBA)

Staple1600 · 5 Octobre 2024

Re

@Phil69970
C'est mieux comme cela ?

VB:

Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 1 Then
T.Borders(5).LineStyle = T < 10
T.Borders(6).LineStyle = T < 10
End If
End Sub

PS: je crois qu'il y aura sans doute des effets de bords
Mais au moins mes doigts sont réchauffés
EDITION
En peaufinant un peu plus

Code:

Private Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If Len(T) = 0 Then Exit Sub
If T.Column = 1 Then
T.Borders(5).LineStyle = T < 10
T.Borders(6).LineStyle = T < 10
End If
End Sub

Au final du VBA, oui mais de la MFC que nenni.
Cette histoire de Canada Dry m'a donné soif, m'en vais quérir plutôt une bière et autres denrées chez l'épicier du coin

Microsoft 365 Bordures dans MFC

rastafouette

XLDnaute Occasionnel

Phil69970

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

crocrocro

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires