XL 2016 VBA - Format de cellule & Range

[sebastien450]

Bonjour,
Je n'arrive pas à alléger le code suivant :
J'ai essayer de ne pas faire de select, mais ce n'est pas vraiment plus rapide...
De manière générale avec les formats c'est long, et je ne peux pas faire .clearcontent...

Feuil1.Range(Cells(6, 1), Cells(1000, 1000)).Select
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Interior.Pattern = xlNone

Merci d'avance,

 

[Wayki]

Bonjour,
Essayez application.screenupdating = false en début de code,
Application.screenupdating = True en fin de code,
Et :

With Feuil1.Range(Cells(6, 1), Cells(1000, 1000))
 .Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.Pattern = xlNone 

End with

A +

 

[sebastien450]

Bon je me réponds tout seul car ca semble le plus rapide :

 Feuil1.Range(Cells(6, TCD + 1), Cells(1000, 1000)).Select
    With Selection.Interior
        .Pattern = xlNone
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

 

[Wayki]

Bon je me réponds tout seul

Hellooooo

Bonjour,
Essayez application.screenupdating = false en début de code,
Application.screenupdating = True en fin de code,
Et :

With Feuil1.Range(Cells(6, 1), Cells(1000, 1000))
 .Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.Pattern = xlNone

End with

A +

 

[sebastien450]

Bonjour,
Déjà fait, avec calculation = xlmanual
Plus il y a de cellules plus c'est long.

Comment faire mieux ?

 

[Wayki]

Impossible de réduire la plage de 994 lignes par 1000 colonnes ?

 

[sebastien450]

j'ai essayé, mais malheuresement non.
Plus il y a de cellules formatés plus c'est long.
peut être avec une méthode each?

 

[Wayki]

Ça reviendrait au même.
Les formats que vous modifiez c'est pour avoir des cellules non formatées pour le coup ? Comme quand on ouvre un classeur vierge ?

 

[Phil69970]

Bonjour à vous 2

Si tu parles du même fichier qu'ici alors c'est la même réponse

@Phil69970