XL 2016 For to - de bas en haut d'une liste.

[Raka]

Bonjour,

Je rencontre un petit souci étrange, et que je n'arrive étrangement pas à appréhender malgré ma logique, il doit reste quelque chose que je ne comprends pas.

Une de mes macros crée un fichier texte à partir d'une liste présente sur deux colonnes E et F, mais en ne citant uniquement que les lignes où du texte est présent.

Voici donc :

Sub Export_txt()

Dim i As Long, derlig As Long, tabl

derlig = Range("E" & Rows.Count).End(xlUp).Row + 1
tabl = Range("E2:F" & derlig)

Range("AW1").Value = Now

Open Range("AU24").Value & "\" & Range("AW1").Text & ".txt" For Output As #1

For i = 1 To UBound(tabl, 1)
 If tabl(i, 1) <> "" Then
   Print #1, tabl(i, 2) & " : "; tabl(i, 1)
 End If
Next
Close #1

End Sub

Jusque là pas de souci.

Mais j'aimerais que le fichier txt ainsi créé le soit à partir de la liste de bas en haut, et non de haut en bas.

Alors j'ai tenté de remplacer For i = 1 To UBound(tabl, 1) par For i = UBound(tabl, 1) To 1
Mais ça ne fonctionne pas, le fichier txt reste vide dans ce cas.

Qui pourrait me dire où je me trompe ?

Merci beaucoup 🙂

 

[chris]

Fil en double