Bonjour les amis,
je suis entrain (j'essais) de bricoler un petit programme, et j'ai du mal sur une boucle, ce que je souhaiterais c'est que quand la copie arrive à la ligne 35,
l'écriture se poursuive à la ligne 1 et colonne à droite,voici mon code utilisé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Integer, x As Integer, y As Integer
Dim num As Long
    num = 33
    x = 1
    y = 4
        For x = 1 To 223 'si 1 to 34 pas erreur
            Cells(x, y) = Chr(num) 'ligne ou l'erreur apparait (erreur execution 5), pour info : num =256 quand erreur
                If x = 35 Then
                    y = y + 1
                x = 1
                End If
    num = num + 1
        Next x
en gros j'ai l'erreur (erreur execution 5) dès que cela change de colonne mais le code va quand même jusque au bout, ce code est s'en doute pas très clair mais si quelqu'un pourrait m'aider à affiner.