XL 2016 Remplir Tableaux

KTM

XLDnaute Impliqué
Bonsoir Chers tous
Je voudrais une façon plus esthétique d"écrire mon code ci dessous. Merci
VB:
With ActiveSheet
    .Range("B1") = "CODE_PATIENT"
    .Range("C1") = "MOIS"
    .Range("D1") = "DATE VISITE"
    .Range("E1") = "PROTOCOLE"
    .Range("F1") = "NOUVEAU"
    .Range("G1") = "LIGNE"
    .Range("H1") = "AGE"
    .Range("I1") = "C_AGE"
    .Range("J1") = "SEXE"
    .Range("K1") = "DOTATION"
    .Range("L1") = "CTX"
    .Range("M1") = "STATUT"
    .Range("N1") = "ECHEANCE"
End With
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
Plus esthétique, je ne sais pas, mais 13 fois plus rapide :
VB:
ActiveSheet.[B1:N1].Value = Array("CODE_PATIENT", "MOIS", "DATE VISITE", "PROTOCOLE", _
    "NOUVEAU", "LIGNE", "AGE", "C_AGE", "SEXE", "DOTATION", "CTX", "STATUT", "ECHEANCE")
 

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou