Ben dites donc c'est seulement avec une mise à jour de Windows aujourd'hui que le problème que j'ai soulevé au post #1 a été résolu, fallait juste être patient.Ce serait donc un bug Excel, il faut vivre avec, c'est casse-pied.
Aujourd'hui cela ne veut plus dire grand chose. Il y a des portables avec I7 et carte graphiques de compet.sur pc portable
Sub test()
Application.ScreenUpdating = False
Dim t(1 To nb, 1 To nb)
For x = 1 To nb
For y = 1 To nb
t(x, y) = x Xor y
Next
Next
With Cells(1).Resize(UBound(t, 1), UBound(t, 2))
.Value = t
.FormatConditions.AddColorScale ColorScaleType:=3
.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
With .FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
.FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
With .FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
.FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
With .FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With
For Each cel In .Cells
cel.Font.Color = cel.DisplayFormat.Interior.Color
Next
End With
Application.ScreenUpdating = False
End Sub
Sub grille()
Cells.RowHeight = 2
Cells.ColumnWidth = 0.2
End Sub
Sub grille()
Cells.RowHeight = 2
Cells.ColumnWidth = 0.2
End Sub
Ah, faut que je teste ça !...P.S
Ce qui pose problème chez moi, c'est
Ca déglingue le ZoomVB:Sub grille() Cells.RowHeight = 2 Cells.ColumnWidth = 0.2 End Sub
Cordialement
Deux poids, deux mesures (?) Pas lu ta réprobation là-bas...Hé ! Z'en n'avez pas marre de squatter le fil du camarade Job !?!
Et on est toujours dans le thème du fil, non ?job75 à dit:la boîte de dialogue "Format de cellule" met plusieurs dizaines de secondes à s'ouvrir.
Idem avec la commande "Gras" du menu "Accueil" ou le format des MFC.
Toujours aussi fatigué à ce que je vois...Deux poids, deux mesures (?) Pas lu ta réprobation là-bas...
On est encore loin du nombres de pages
PS: Si c'était là un point d'humour, ne pas tenir compte de cet aparté
Je n'ai pas essayé, mais je suis d'accord avec toi : Excel doit savoir faire ça.Toujours dans le menu Format, je teste la mise en gras de cette plage de cellules A1:NTP10000
j'ai ce message qui apparait
(Vu le nombre total de cellules d'une feuille 1 7179 869 184 ), Excel devrait savoir faire.
Je pense que c'est plus lié au PC et à ses calculs que lié à Excel.Excel devrait savoir faire.