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 ?

crocrocro · Samedi à 18:30

Et puisqu'on en est dans le "open bar", une proposition très artisanale
un film transparent appliqué sur l'écran, une croix au feutre effaçable sur les cellules concernées et bien sûr, verrouiller le zoom et le scroll !
Concernant ma remarque précédente,

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

j'ai bien une petite idée : MS ne propose pas les diagonales au Menu, mais peut-être uniquement à la Carte (Gold de préférence ) .
Perso,avec ma Carte 2016 Famille et Étudiant, je n'ai droit qu'au Menu Enfant

rastafouette · Dimanche à 00:04

wooww !!! quel engouement !! Je ne pensais pas avoir autant de réponses !

Déjà, une réponse à ta remarque, Staple :

Staple1600 à dit:
là ou une MFC suffirait (une couleur de fond en guise de croix,

C'est bien ce que j'ai déjà fait, des cases grisées, mais certaines personnes n'ont pas bien compris (si si...) , donc comme le problème se réitèrera toutes les semaines, ça va pas le faire. D'où la solution de la case barrée avec les diagonales, qui est manifestement une solution beaucoup plus claire et visuelle.

En tous cas, merci à tous, je regarderai en détail vos solutions dès que j'aurai récupéré mes neurones demain.

Bonne nuit !

rastafouette · Dimanche à 00:53

TooFatBoy à dit:
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.

Bon, ma curiosité est plus forte que mon sommeil.
Cette idée ne fonctionne pas

rastafouette · Dimanche à 00:59

Phil69970 à dit:
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 ....

la canada dry v2 fonctionne chez moi, effectivement dès qu'on mets un chiffre <10 en colonne A.
Cependant, si je remplis la case B15, G11 ou autre, les diagonales en colonne A s'effacent.

(Pour moi ce sera une triple karmeliet, merciiiii )

TooFatBoy · Dimanche à 01:12

rastafouette à dit:
Cette idée ne fonctionne pas

Non, ça ne fonctionne pas. Désolé d'avoir dit une ânerie.

Phil69970 · Dimanche à 01:20

@rastafouette

La V3 qui corrige le problème

Merci de ton retour

Staple1600 · Dimanche à 08:22

Bonjour le fil

@rastafouette
En écho à ton message#17, si on pouvait voir un exemple anonymisé de ton classeur.
(pour appréhender sa structure et son fonctionnement)
On pourrait (ou pas) te suggérer des alternatives.

[digressions dominicales et matinales]

rastafouette à dit:
mais certaines personnes n'ont pas bien compris

1) l'ergonomie du classeur est la source de l'incompréhension
2) on n'a pas été assez pédagogue
3) elles sont réfractaires aux tableurs
4) rajouter du VBA pourrait les plonger dans la totale incompréhension en cas de bug
[/digressions dominicales et matinales]

Question subsidiaire
Combien de cellules seront crucifiées ?
Si le nombre est important, la taille du fichier grandira-t-elle en conséquence.

Staple1600 · Dimanche à 08:47

Re

@rastafouette
Autre suggestion VBA
(utilisable ou pas selon la structure du classeur original)

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target < 10 Then
Target.Offset(, 1) = ChrW(&H274C)
Target.Offset(, 1).Font.Color = QBColor(2) 'gorilla.bas tribute ;-)
End If
End Sub

Et une version qui fait mal aux yeux

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target < 10 Then
With Target.Offset(, 1)
    .Value = ChrW(&H274C)
    .Font.Color = QBColor(2)
    .Font.Bold = True
    .Interior.Color = vbRed
End With
End If
End Sub

rastafouette · Dimanche à 11:53

Bonjour le fil

Staple1600 à dit:
1) l'ergonomie du classeur est la source de l'incompréhension
2) on n'a pas été assez pédagogue
3) elles sont réfractaires aux tableurs
4) rajouter du VBA pourrait les plonger dans la totale incompréhension en cas de bug
[/digressions dominicales et matinales]

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

Je regarde vos solutions du #21 et #23

Merci merci merci !

crocrocro · Dimanche à 19:24

Bonsoir le fil,
et en jouant avec les motifs de remplissage (accessibles avec les MFC) comme ceci par exemple :

rastafouette · Hier à 23:08

Staple1600 à dit:
Autre suggestion VBA
(utilisable ou pas selon la structure du classeur original)

Merci Staple, ce n'est pas exactement ce que je cherche ici, mais j'ai une idée pour utiliser ce petit code ailleurs

Phil69970 · Hier à 23:14

Re

@rastafouette

rastafouette à dit:
Je regarde vos solutions du #21 et #23

As tu regardé le post #21 ?

Sinon comme le suggère Staple au post #22 poste ton fichier

rastafouette · 2024-10-07T23:34:37+0200

Phil69970 à dit:
@rastafouette

La V3 qui corrige le problème

Merci de ton retour

Merci Phil, j'ai réussi à l'adapter sur ma plage :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim i&, j&


If Not Application.Intersect(Target, Range("d80:x110")) Is Nothing Then
    Range("d80:x110").Borders(xlDiagonalUp).LineStyle = xlNone
    Range("d80:x110").Borders(xlDiagonalDown).LineStyle = xlNone
    For i = 80 To 110
        For j = 4 To 24
            If Cells(i, j) = "" Then
                    Cells(i, j).Borders(xlDiagonalUp).LineStyle = xlContinuous
                    Cells(i, j).Borders(xlDiagonalDown).LineStyle = xlContinuous
                    Cells(i, j).Borders(xlDiagonalDown).Weight = xlThick
            End If
        Next j
    Next i
End If
End Sub

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

Merci encore à tous

rastafouette · 2024-10-07T23:36:08+0200

Phil69970 à dit:
Re

@rastafouette

As tu regardé le post #21 ?

Sinon comme le suggère Staple au post #22 poste ton fichier

j'étais en train de répondre et je me suis perdue dans un fil whatsapp, tu as été plus rapide que moi

Staple1600 · 2024-10-07T23:39:07+0200

Bonsoir

@rastafouette

Ce n'est pas forcément très beau

Effectivement, ca pique les yeux
C'est violent
Je viens de tester et j'en ai attrapée une migraine !
Juste avant d'aller au dodo, c'est ballot

Microsoft 365 Bordures dans MFC

rastafouette

XLDnaute Occasionnel

crocrocro

XLDnaute Occasionnel

rastafouette

XLDnaute Occasionnel

rastafouette

XLDnaute Occasionnel

rastafouette

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

rastafouette

XLDnaute Occasionnel

crocrocro

XLDnaute Occasionnel

rastafouette

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

rastafouette

XLDnaute Occasionnel

rastafouette

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires