Bonjour,

J'ai une question sur mon code que voici:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Imports System.IO
 
Module Module1
    Sub Main()
 
        Dim monStreamReader As New StreamReader("C:\Documents and Settings\tanner\Desktop\liste.txt") 'Stream pour la lecture
        Dim ligne As String ' Variable contenant le texte de la ligne
        Dim test As String
        Dim excel As New Excel.Application
        Dim wb As Excel.Workbook
        Dim ws As Excel.Worksheet
        Dim Li As Long
 
        Li = 1
 
        excel.Visible = True 'la fenêtre excel est visible 
        wb = excel.Workbooks.Add(1) 'on ouvre un classeur dans excel
        ws = wb.Worksheets(1) 'on ouvre une feuille dans le classeur excel
        wb.Sheets("Feuil1").Select() 'on séléctionne la feuille nommé "Feuil1"
        wb.Sheets("Feuil1").Name = "Droits sur Y" 'on renomme la feuil1 en Alloga
        excel.Visible = True 'la fenêtre excel est visible 
 
 
        Do
            ligne = monStreamReader.ReadLine
 
            test = ligne.Chars(0)
 
            If test = "Y" Then
                ws.Range("A" & Li).Value = ligne
                Li = Li + 1
            Else
 
                ws.Range("").Value = ligne
 
            End If
        Loop Until ligne Is Nothing
 
        wb.SaveAs("H:\droits Y\Liste.xls") 'Enregistrement du fichier
        monStreamReader.Close()
 
    End Sub
 
End Module
Le but du code est de récupérer des infos d'un fichier texte en lisant ligne par ligne et en écrivant dans un fichier excel. J'aimerais que mon fichier excel se présente sous cette forme:

A1= Y:\blabla1 B1 = Droit 1 C1 = Droit2 etc...

A2= Y:\blabla2 B2 = Droit 1 C2 = Droit 2 etc..


Seulement le problème, C'est au niveau de mon else dans la boucle... il faudrait que je lui dise de d'abord mettre B1 ensuite C1 puis D1 etc... Le même principe que pour mon If mais cette fois pour les lettres et non les chiffres... ALors est-il possible d'assigner un chiffre à une lettre? si oui comment?

Merci