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 :
J'ai ensuite essayé via une variable tableau, je pense que ça pourrait simplifier le code mais je suis encore trop nul pour ça.
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
Partager