XL 2016 Remplir Tableaux

KTM · 11 Juillet 2020

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 · 11 Juillet 2020

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")

KTM · 11 Juillet 2020

Dranreb à dit:
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")

merci

job75 · 11 Juillet 2020

Bonjour Bernard, KTM,

Plus esthétique :

VB:

[B1:N1] = [{"CODE_PATIENT","MOIS","DATE VISITE","PROTOCOLE","NOUVEAU","LIGNE","AGE","C_AGE","SEXE","DOTATION","CTX","STATUT","ECHEANCE"}]

A+

job75 · 11 Juillet 2020

Une autre très esthétique :

VB:

[B1:N1] = Split("CODE_PATIENT|MOIS|DATE VISITE|PROTOCOLE|NOUVEAU|LIGNE|AGE|C_AGE|SEXE|DOTATION|CTX|STATUT|ECHEANCE", "|")

KTM · 11 Juillet 2020

job75 à dit:
Une autre très esthétique :

VB:

[B1:N1] = Split("CODE_PATIENT|MOIS|DATE VISITE|PROTOCOLE|NOUVEAU|LIGNE|AGE|C_AGE|SEXE|DOTATION|CTX|STATUT|ECHEANCE", "|")

merci Prof

XL 2016 Remplir Tableaux

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires