XL 2016 Possibilité de simplification

S[1]t'Yor · 1 Décembre 2022

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

sylvanu · 2 Décembre 2022

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.

sylvanu · 1 Décembre 2022

Bonsoir,
Sans avoir testé, peut être :

VB:

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 · 2 Décembre 2022

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 · 2 Décembre 2022

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

sylvanu · 2 Décembre 2022

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

VB:

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 · 2 Décembre 2022

Bonjour

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

Cdt

S[1]t'Yor

sylvanu · 2 Décembre 2022

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 · 2 Décembre 2022

Tres bien merci

XL 2016 Possibilité de simplification

S[1]t'Yor

XLDnaute Junior

sylvanu

sylvanu

XLDnaute Barbatruc

S[1]t'Yor

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

S[1]t'Yor

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

S[1]t'Yor

XLDnaute Junior