KTM
XLDnaute Impliqué
Bonsoir Chers tous
Je voudrais une façon plus esthétique d"écrire mon code ci dessous. Merci
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