Re : Problème affichage MFC d'une feuille à une autre
Bonjour,
Piste pour barré la police si nécessaire
Dans la procédure suivante ajoutez ce que j'ai mis en gras
Public Sub ShowDayRecords(Target As Range)
.......
If Len([calculs!v4]) Then
.EnableEvents = False
[calculs!extract].CurrentRegion.Offset(1, 1).Copy rDisplay
'Pour barré la police si nécessaire
If [R6] = 1 Then
Range("P6").Font.Strikethrough = True
Range("Q6").Font.Strikethrough = True
End If
rDisplay.Offset(-1) = "dummy"
Sheet1.ListObjects.Add(xlSrcRange, _
rDisplay.CurrentRegion, _
, _
xlYes, _
, _
"DayAppointments").Name = "tblDayAppointments"
With Sheet1
With .ListObjects("tblDayAppointments")
.ShowTableStyleFirstColumn = True
.ShowHeaders = False
End With
With [DayGlance].Resize(1, 1)
.Value = "APERÇU DE LA JOURNÉE"
.Style = "Titre1"
End With
With rDisplay.Offset(-1, 1)
.Value = [AppointmentDate]
.NumberFormat = "ddd mmm dd, yyyy"
.Style = "Titre2"
'Pour barré la police si ...
If [R6] = 1 Then .Font.Strikethrough = True
End With
.Columns(rDisplay.Column).ColumnWidth = COLUMN_WIDTH
End With
End If