Ce n'est pas forcément très beau. Si vous avez mieux, je prends
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...
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
) .
Je ne pensais pas avoir autant de réponses !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.
Bon, ma curiosité est plus forte que mon sommeil.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.
la canada dry v2 fonctionne chez moi, effectivement dès qu'on mets un chiffre <10 en colonne A.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 ....
)
Non, ça ne fonctionne pas. Désolé d'avoir dit une ânerie.Cette idée ne fonctionne pas
1) l'ergonomie du classeur est la source de l'incompréhensionrastafouette à dit:
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 SubPrivate 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 SubLe 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
Merci Staple, ce n'est pas exactement ce que je cherche ici, mais j'ai une idée pour utiliser ce petit code ailleurs
As tu regardé le post #21 ?
Merci Phil, j'ai réussi à l'adapter sur ma plage :
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 Subj'étais en train de répondre et je me suis perdue dans un fil whatsapp, tu as été plus rapide que moi
Effectivement, ca pique les yeux
