Bonsoir,

Dans le code VBA que j'écris, je remplis 6 feuilles sur 20 colonnes en moyennes chacune et mon code VBA commence vraiment a être long. J'aimerais l'améliorer un peu en éliminant les lignes que je pourrais condenser pour finalement obtenir le même résultat, donc voici quelques exemples ci-dessous.

Veuillez traiter les 4 cas ci-dessous indépendamment SVP

A condenser en 1 ligne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Cellule_vide.Offset(0, 1).NumberFormat = "m/d/yyyy h:mm"
Cellule_vide.Offset(0, 2).NumberFormat = "m/d/yyyy h:mm"

A condenser en 1 ligne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Worksheets("Donnees2").Range("F5", "G34").NumberFormat = "0"
Worksheets("Donnees2").Range("I5", "J34").NumberFormat = "0"

A condenser en 1 ligne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Worksheets("Donnees2").Columns("F:G").EntireColumn.AutoFit
Worksheets("Donnees2").Columns("I:J").EntireColumn.AutoFit
Merci