Bonjour à tous,
J'ai un petit souci de code et j'ai besoin de votre lumière.
Le code ci-dessous me permet d'afficher une valeur sur la diagonale d'un tableau sauf que je voudrai que la valeur s'incrémente sur toute la plage an dessous de la diagonale (là où j'ai les x sur mon exemple) je n’arrive pas à l'insérer dans la boucle et à part faire un copier-coller je ne sais pas.

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
Sub tableau()
 
Application.ScreenUpdating = False
Application.Calculation = xlManual
 
 
Dim i As Long
Dim j As Long
 
 
 
    j = 2
    For i = 2 To 13
        Cells(i, j).Value = 10
    j = j + 1
    Next i
 
End Sub
10
x 10
x x 10
x x x 10
x x x x 10
x x x x x 10
x x x x x x 10
x x x x x x x 10
x x x x x x x x 10
x x x x x x x x x 10
x x x x x x x x x x 10
x x x x x x x x x x x 10
x x x x x x x x x x x x

Merci pour votre aide.