Microsoft 365 Bordures dans MFC

rastafouette · Samedi à 12:42

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 · Hier à 23:49

Re

@rastafouette
J'ai pas mieux, mais pire

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim PLAGE As Range, VERIF
Set PLAGE = Range("d80:x110")
If Not Application.Intersect(Target, PLAGE) Is Nothing Then
VERIF = Application.WorksheetFunction.CountA(PLAGE)
Select Case VERIF
Case 651
MsgBox "Saisie compléte!"
Case Else
MsgBox "Saisie incompléte!", vbCritical
End Select
End If
End Sub

De quoi jeter son PC par la fenêtre

eriiic · Hier à 23:55

Bonjour à tous,
dans les motifs tu as aussi hachuré, ou des points plus légers, ça reste en MFC.
Bien sûr les utilisateurs doivent connaitre le code, info simple à faire passer.

Sinon tant qu'à mettre du vba, autant verrouiller en plus la cellule en empêchant sa sélection. Ca sécurise ta feuille.
eric

Phil69970 · 2024-10-08T04:17:03+0200

@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 ????
        End With
    Next Cell
End If
End Sub

Tu travailles avec des bourrins et encore c'est la version soft

rastafouette à dit:
Le souci n'est même pas là. Je suis seule à maniper le xlsx. Le tableau lui est imprimé chaque semaine. Et une case "juste" grisée, même foncée (déjà fait semaines dernières) n'est pas aussi claire qu'une case rayée diagonale (qui, elle, signifie manifestement mieux le "non") => sources d'erreurs
Il faut que visuellement, ça se comprenne tout de suite, même pour celui qui ne connait pas, sans avoir besoin de donner d'explications et sans trop changer de l'ancien modèle : peu peu de marge de manœuvre. => rayée diagonales

et comme le dit Staple

Staple1600 à dit:
Effectivement, ca pique les yeux
C'est violent
Je viens de tester et j'en ai attrapée une migraine !

Et dans la série encore plus violent il y a ceci :

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
    '*** Pour supprimer l'existant la 1ere fois si tu ne pars pas d'une feuille vierge !!!!
    Plage.Borders(xlDiagonalUp).LineStyle = xlNone
    Plage.Borders(xlDiagonalDown).LineStyle = xlNone
    '****
    Plage.Interior.ColorIndex = xlNone
    For Each Cell In Plage.SpecialCells(xlCellTypeBlanks)
        With Cell
            .Interior.ColorIndex = 1
        End With
    Next Cell
End If
End Sub

Et tu es sur qu'ils comprendront bien ce que cela veux dire !!!

rastafouette à dit:
Il faut que visuellement, ça se comprenne tout de suite, même pour celui qui ne connait pas, sans avoir besoin de donner d'explications

Merci de ton retour

Microsoft 365 Bordures dans MFC

rastafouette

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Discussions similaires