XL 2013 Ecriture de code condensé

dysorthographie

XLDnaute Accro

• 6 Février 2023

• #2

Bonjour,
Le code que tu présente me semble bien condensé.

Peux tu donner des précisions de ce que tu attends de nous ?

 

Vote positif 0 Vote négatif

ZAKAO

XLDnaute Junior

• 6 Février 2023

• #3

dysorthographie à dit:

Bonjour,
Le code que tu présente me semble bien condensé.

Peux tu donner des précisions de ce que tu attends de nous ?

Cliquez pour agrandir...

Je me demande s'il est possible de le mettre sous cette forme par exemple :
(j'écris n'importe quoi)

VB:

'Mise en forme
    With F_ECOULEMENT.Range(Cells(6, 10), Cells(7, 9 + ((Nm + 1) * 2)))
        .Interior (Pattern:= xlSolid, PatternColorIndex:= xlAutomatic, ThemeColor:= xlThemeColorAccent5, TintAndShade := -0.499984740745262, PatternTintAndShade:= 0)
        .Font (ThemeColor:= xlThemeColorDark1=, TintAndShade:= 0)
    End With

Je ne sais pas si tu comprends mieux comme ça...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Février 2023

• #4

Bonjour.
En général je me borne à mettre un .Interior.ColorIndex = xlColorIndexNone, et un .Font.Color = 0, le reste est le plus souvent assumé par défaut.
Mais si vous voulez détailler, les virgules ne conviennent que pour séparer des arguments d'une procédure. Des affectations à des propriétés diverses peuvent se mettre sur la même ligne à condition de les séparer de ":".

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Février 2023

• #5

Bonjour à tous
On peux écrire sur une ligne mais cela n'a qu'un intérêt limité et est moins lisible :
(En supprimant deux lignes inutiles et en remettant les .font dans leurs With)

VB:

With F_ECOULEMENT.Range(Cells(6, 10), Cells(7, 9 + ((Nm + 1) * 2)))
        .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
        With .Interior: .ThemeColor = xlThemeColorAccent5: .TintAndShade = -0.499984740745262: End With
        With .Font: .ThemeColor = xlThemeColorDark1: .TintAndShade = 0: .Bold = True: .Name = "Century Gothic": End With
        With .Borders: .LineStyle = 1: .Weight = 2: .ThemeColor = 1: End With
    End With

Cordialement

 

Vote positif 1 Vote négatif

Solution

patricktoulon

XLDnaute Barbatruc

• 6 Février 2023

• #6

re
bonjour
ben non on peut condenser
j'ai le meme résultat avec ceci

VB:

  'nm = 10
    With F_ECOULEMENTange(Cells(6, 10), Cells(7, 9 + ((nm + 1) * 2)))
        .Interior.Color = &H784E1F
        .Font.Color = vbWhite
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Bold = True
        .Font.Name = "Century Gothic"
         With .Borders: .LineStyle = 1: .Weight = 2: .ThemeColor = 1: End With
    End With

 

Vote positif 1 Vote négatif

ZAKAO

XLDnaute Junior

• 6 Février 2023

• #7

Bonjour @patricktoulon, @Efgé et @Dranreb,

Je vous remercie pour vos réponses. Je vais tester ce que vous m'avez proposé.

Pour expliquer mon besoin, j'ai une mise en forme extrêmement lourde et fastidieuse, donc très longue. J'en avais juste marre de matraquer la molette de ma souris…

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Février 2023

• #8

re
au pire histoire d'accélérer bloque le refraichissement d'ecran
au début de la macro
application .screenupdating=false

 

Vote positif 0 Vote négatif

ZAKAO

XLDnaute Junior

• 6 Février 2023

• #9

patricktoulon à dit:

re
au pire histoire d'accélérer bloque le refraichissement d'ecran
au début de la macro
application .screenupdating=false

Cliquez pour agrandir...

Ce n'est pas un soucis d'opti qui est correcte mais simplement de longueur du code.

 

Vote positif 0 Vote négatif

ZAKAO

XLDnaute Junior

• 6 Février 2023

• #10

Après avoir tester vos deux solutions, elles fonctionnent sans problème.

Je vous remercie encore, il me reste juste à changer tout ce code...

 

Vote positif 0 Vote négatif