code trop long a optimiser

[dede039]

bonsoir a tous

sur un planning j'ai 3 code pour
- changer un nom de place
-mettre un nom hors effectif
-et supprimer un nom
ces 3 code marche bien mais sont beaucoup trop long ce qui peut ralentir le process
il faudrait optimiser ces code mais je ne sait pas faire

merci pour votre aide

 

[cp4]

Bonjour dede039, le forum,

Essaie de virer tous les "SELECT" de ton code ça ira mieux.
En effet, il n'est pas nécessaire de sélectionner par exemple une cellule pour lui appliquer une mise en forme.
exemple au lieu d'écrire:
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select
Selection.Copy

il est judicieux de faire comme ci-dessous:
Range(ActiveCell, ActiveCell.Offset(0, 2)).Copy

Ainsi le code est plus rapide on copie sans sélectionner. On est pas obligé de sélectionner.
Explique-nous ce que tu veux faire exactement.

Bonne journée.