XL 2016 Possibilité de simplification

[S[1]t'Yor]

Bonjour à tous et à toutes !

Ici pas besoin d'aide, juste je me pose une question qui peut paraitre bête. Dans mon programme, j'ai écrit le code suivant :

    TitlesColumns.Add ("Delivery")
    TitlesColumns.Add ("Material")
    TitlesColumns.Add ("Cutting")
    TitlesColumns.Add ("Assembly")
    TitlesColumns.Add ("Welding")
    TitlesColumns.Add ("Treatment")
    TitlesColumns.Add ("Packing")
    TitlesColumns.Add ("FCA Date")

Il doit bien exister une façon d'économiser des lignes ?

Merci d'avance pour vos réponses

Bien cordialement

S[1]t'Yor

 

[sylvanu]

Bonsoir,
Sans avoir testé, peut être :

Liste = Array("Delivery", "Material", "Cutting", "Assembly", "Welding", "Treatment", "Packing", "FCA Date")
TitlesColumns.Add Liste

Sinon essayez de fournir un petit fichier test qui donnera le contexte.

 

[S[1]t'Yor]

Bonjour

Merci pour cette réponse. J'ai testé pour voir ce que ca donnait, cette commande rajoute dans la collection TitlesColumns 1 seul item, l'array Liste que vous avez créée dans votre poste. et du coup pour mon programme ca ne fonctionne pas.

Merci quand même

CDT

S[1]t'Yor

 

[ChTi160]

Bonjour le Fil
Et si tu mets ton Array sans les guillemets

Liste = Array(Delivery, Matériel,Etc etc )
TitlesColumns.Add Liste

Ou peut être.
TitlesColumns.Add Array("Delivery", "Material", "Cutting", "Assembly", "Welding", "Treatment", "Packing", "FCA Date"
TitlesColumns , étant une collection on y ajoute des items donc à voir si elle prends les array()
Là , tu vas avoir une collection d'Array()lol
Bonne journée
Depuis mon téléphone !
Jean marie

 

[sylvanu]

Bonjour,
Hors contexte difficile d'extrapoler.
Mais vous pouvez au moins simplifier le code en faisant :

Liste = Array("Delivery", "Material", "Cutting", "Assembly", "Welding", "Treatment", "Packing", "FCA Date")
For i = 0 To UBound(Liste)
    TitlesColumns.Add Liste(i)
Next i

 

[S[1]t'Yor]

Bonjour

Voici un fichier pour le contexte. La partie en question est a la ligne 17.

Cdt

S[1]t'Yor

 

[sylvanu]

Donc la dernière version marche :

Liste = Array("Delivery", "Material", "Cutting", "Assembly", "Welding", "Treatment", "Packing", "FCA Date")
For i = 0 To UBound(Liste): TitlesColumns.Add Liste(i): Next i
Erase Liste

Mais c'est vrai qu'on ne gagne pas grand chose.

 

[S[1]t'Yor]

Tres bien merci