bonjour à tous,

je rencontre un petit problème pour une de mes macros.
voici le code:
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
19
20
Sub deltaz()
    Dim point As Integer
        point = Range("C11").Value
    Dim i As Integer
    Dim x As Integer
        x = 19
    Dim y As Integer
        y = 17
 
    Dim p As Single
        p = WorksheetFunction.pi 'permet d'utiliser le nombre pi
 
    For i = 1 To point + 2
        Cells(x, 11) = (Cells(x, 7) / Tan(Cells(x, 6) * (p / 200))) + Cells(y, 9) - Cells(y, 10)
        x = x + 1
        y = y + 2
 
    Next i
 
End Sub
le problème est que :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Cells(19,11) = (Cells(19, 7) / Tan(Cells(19, 6) * (p / 200))) + Cells(17, 9) - Cells(17, 10)
 
Cells(20,11) = (Cells(20, 7) / Tan(Cells(20, 6) * (p / 200))) + Cells(19, 9) - Cells(19, 10)
 
Cells(21,11) = (Cells(21, 7) / Tan(Cells(21, 6) * (p / 200))) + Cells(19, 9) - Cells(19, 10)
pour les cellules (20,11), et (21,11) je dois utiliser la même valeur de cellule.