XL 2016 Possibilité de simplification

S[1]t'Yor

XLDnaute Junior
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 :


VB:
    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
 
Solution
Donc la dernière version marche :
VB:
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

XLDnaute Junior
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.


1669967182998.png

Merci quand même

CDT

S[1]t'Yor
 

ChTi160

XLDnaute Barbatruc
Bonjour le Fil
Et si tu mets ton Array sans les guillemets
VB:
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
 
Dernière édition:

Statistiques des forums

Discussions
311 709
Messages
2 081 754
Membres
101 812
dernier inscrit
trufu