Discussion :

[Windaube]

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

[Pol63]

si je me trompe pas on t'as donné la solution pour faire l'inverse y a pas longtemps
avec asc ou chr selon le sens ca doit etre possible

[Amadeo]

Non c'était pour moi, et d'après moi sa ne marchera pas, car là il le prend en compte, mais faire l'inverse ça n'aurait pas de sens...

[Pol63]

asc("A") = un nombre, je ne sais pas lequel mais disons 60
donc vous faites asc("A") - 59 = 1
asc("B") - 59 = 61 - 59 = 2
comme par hasard asc(lettre) - 59 vous donne le nombre que vous cherchez

et en générique ca donne : asc(lettre) - asc("A") + 1

[Amadeo]

Salut oublie pas de mettre les parenthèses car sa ne marchera pas sinon... Voici un extrès de mon code fais juste adapter le tient...

Asc(("a") - 96)

[Windaube]

Merci beaucoup ça m'a beaucoup aidé mais j'ai un autre petit problème... Voici mon code maintenant:

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
45
46
47
48
49
50
51
52
53
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
        Dim Li2 As Long
        Dim tmp As Double
        Dim x As String
 
        x = Chr(66)
 
        Li = 1
        Li2 = 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)
            MsgBox(x)
 
            If test = "Y" Then
                ws.Range("A" & Li).Value = ligne
                Li = Li + 1
 
            Else
 
                ws.Range(x + "1").Value = ligne
                x = Chr(66 + Li2)
                Li2 = Li2 + 1
 
            End If
        Loop Until ligne Is Nothing
 
        wb.SaveAs("H:\droits Y\Liste.xls") 'Enregistrement du fichier
        monStreamReader.Close()
 
    End Sub
 
End Module

Dans mon else toujours, Dans "ws.Range(x + "1").Value = ligne, Je voudrais pouvoir mettre "ws.Range(x + Li3).Value = ligne" Pour que ça change aussi le chiffre mais il me dis "Conversion from string "B" to type 'Double' is not valid." Comment dois je faire?

Merci