XL 2010 Sauter des colonnes dans un fichier txt

fanch55

XLDnaute Barbatruc

• 24 Janvier 2022

• #2

Bonjour ,

for i = 2 to ubound(table) step 4 : c'est une table pas forcément une collection de cellules .

Je ne sais pas ce que vous entendez par fichier txt,
mais si c'est une chaine et que vous considérez qu'elle constitue une collection de mots séparés par des espaces:

Table=Split(chaine)
for i = 2 to ubound(table) step 4

Sinon, précisez votre demande ....

 

Vote positif 0 Vote négatif

H

Haytam.be

XLDnaute Nouveau

• 24 Janvier 2022

• #3

fanch55 à dit:

Bonjour ,

for i = 2 to ubound(table) step 4 : c'est une table pas forcément une collection de cellules .

Je ne sais pas ce que vous entendez par fichier txt,
mais si c'est une chaine et que vous considérez qu'elle constitue une collection de mots séparés par des espaces:

Table=Split(chaine)
for i = 2 to ubound(table) step 4

Sinon, précisez votre demande ....

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

H

Haytam.be

XLDnaute Nouveau

• 24 Janvier 2022

• #4

merci bien Monsieur pour votre réponse,
peut j'ai trouvé que mon probléme dans le code est c'est comment declarer les colonnes ex:
01-- dercol = Cells(1, Columns.Count).End(xlToLeft).Column
02-- For i = 9 To dercol Step 4

mais si je veux modifié le code dercol = Cells(1, Columns.Count).End(xlToLeft).Column dans une table comment se faire?
j'ai essayé ceci qui n'a pas fonctionné:
dercol = lbound(Base) to ubound(Base)
Cl= 9 to dercol Step 4
mais n'a pas fonctionné.
Merci

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 24 Janvier 2022

• #5

dercol = ubound(Base) <-- attention si base(100), on va de base(0) à Base(100)
For i = 9 to dercol step 4 <-- attention, dercol doit être au moins égal à 9

 

Vote positif 0 Vote négatif

H

Haytam.be

XLDnaute Nouveau

• 24 Janvier 2022

• #6

merci beaucoup Monsieur, je viens de résoudre mon problème, c'est ça ce que je voulais exactement

 

Vote positif 0 Vote négatif