Besoin d'aide en VBA sur excel

Version imprimable

Bonjour a tous,
novice dans la programmation , je met un programme dessous ou je souhaite qu'il ouvre un classeur "essai loto" et je n'arrive pas a le modifié pour que lorsqu'il écrit les lignes quand il arrive a la ligne 65530 d'Excel je souhaite qu'il continu a écrire dans la colone b puis c et etc...
Voila si quelqu'un peu m'aider ?

merci a tous.
Code:

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 Sub loto() Dim chiffre(4) As Integer Dim z As Double Dim i, j, k, l, m As Integer z = 0 Open "essai loto.xls" For Output As #1 For i = 1 To 45 For j = i + 1 To 46 For k = j + 1 To 47 For l = k + 1 To 48 For m = l + 1 To 49 chiffre(0) = i chiffre(1) = j chiffre(2) = k chiffre(3) = l chiffre(4) = m Print #1, chiffre(0); "."; chiffre(1); "."; chiffre(2); "."; chiffre(3); "."; chiffre(4) z = z + 1 If z < 65530 Then ActiveCell.Offset(0, 1).Select Else ActiveCell.Offset(-65530, 1).Select z = 1 End If Next Next Next Next Next End Sub

15/11/2013, 09h58
EngueEngue

Tu devrais ouvrir ton classeur comme une excel.application au lieu de l'ouvrir en output..
15/11/2013, 10h51
etan3072

merci de cette indication je vais chercher la ligne de code a mettre à la place
merci, hésite pas si tu as d'autres infos
15/11/2013, 10h54
EngueEngue

Je ne comprends pas ce que tu veux faire... Ton code est on ne peut moins explicite... Donc si tu mets un exemple on pourra peut être t'aider

Code:

Workbooks.Open Filename:="C:\" & "essai loto" & ".xls"
15/11/2013, 12h02
etan3072

1 pièce(s) jointe(s)

voila j'ai mis les explications dedans
merci encore

Code:

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
Sub toto()
    Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, col As Integer
    Dim lig As Long
    Application.ScreenUpdating = False
    With Sheets("Feuil2")
        lig = 1
        col = 1
        For i = 1 To 45
            For j = i + 1 To 46
                For k = j + 1 To 47
                    For l = k + 1 To 48
                        For m = l + 1 To 49
                            If lig < .Rows.Count Then
                                .Cells(lig, col) = i & "." & j & "." & k & "." & l & "." & m
                                lig = lig + 1
                            Else
                                lig = 1
                                col = col + 1
                                .Cells(lig, col) = i & "." & j & "." & k & "." & l & "." & m
                            End If
                        Next m
                    Next l
                Next k
            Next j
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

15/11/2013, 12h52
etan3072

Un grand merci a toi, j'essaye d'apprendre a programmer seul et c'est pas facile j'ai beau lire des bouquins lollllllllll mais rien ne vaut la pratique mais j'ai un gros problème de langue. Je comprend rien de rien à l'anglais.
En tous cas vraiment merci a toi
Etan3072