Microsoft 365 Bordures dans MFC

[rastafouette]

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 ?

 

[Staple1600]

Bonjour le fil

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

 

[TooFatBoy]

Bonjour,

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]

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]

Ah zut...


Bon après-midi

 

[crocrocro]

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

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]

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]

Bonjour à tous

@rastafouette

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

Merci de ton retour

 

[Staple1600]

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]

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]

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]

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

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]

Staple

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

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]

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]

Re

@Phil69970
C'est mieux comme cela ?

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

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