Discussion :

[bernard38]

Bjr,

Est-il possible de remplacer ce genre de code sans utiliser les select et selection qui prennent du temps ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Range("E1:F1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
     End With

[bidou]

oui, il faut toujours éviter les sélections.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With Range("E1:F1")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
     End With

[bernard38]

Merci.
J'ai du pain sur la planche.
Mes macros sont faites sur la base de l'enregistreur qui donne des select partout.