Salut tout le monde,

Voilà, j'ai une plage à remplir de L colonnes sur H lignes.
Dans chaque cellule de ma plage je veux mettre un numéro : 1 dans la première, 2 dans la suivante et ainsi de suite sauf que quand j'arrive à la dernière cellule de ma ligne, je veux continuer la numérotation sur la ligne suivante au début de la ligne.

J'ai essayé avec des boucles imbriquées mais sans succés :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
L = Sheets("Feuil1").Range("N1").Value
H = Sheets("Feuil1").Range("N2").Value
T = Sheets("Feuil1").Range("N3").Value
 
For n = 1 To H
    For j = 1 To T
        For i = 1 To L
        Cells(n, i).Value = j
        Next i
 
    Next j
 
Next n
J'ai ensuite essayé via une variable tableau, je pense que ça pourrait simplifier le code mais je suis encore trop nul pour ça.